XProfan

Du erzeugst die Speicherbitmap in der Größe des Bildschirmfotos
MCls %MaxX,%MaxY,RGB(255,255,255)
Du wechselst in die Speicherbitmap
StartPaint -1
Und zeichnest in diese das Bild aus der Zwischenablage
ClipLoadBMP 0,0 ; 0
Dann wechselst du wieder auf dein Hauptfenster
EndPaint
Dann holst du das Bild aus der Zwischenablage
%BMPX und %BMPY sind Breite und Höhe des letzten gezeichneten Bildes
Nach dem Pfeil kommen die Koordinaten, an die du das Bild setzen willst
MCopySizedBMP 0,0 - %BMPX,%BMPY > 201,92-160,120 ; span>

une Variable déclarer
declare hPic&
ensuite weist du cette Variablen cela Handle trop, cela sur un Bild verweist
cet Bild ist aus qui Zwischenablage et ici 320x240 Pixel grand
hPic& = Créer("hSizedPic",0,"&CLPBMP",320,240,0)
ensuite wird cela Bild dorthin gezeichnet, òu du es avons veux
DrawPic hPic&,201,92 ; 0
Brauchst du cela Handle eines Bildes pas plus, so vergiss pas
den grenier avec DeleteObject wieder freizugeben
DeleteObject hPic&

declare Name$, text$, titeltext$, text2$, titeltext2$, ende%
WindowTitle "BMPviewer 2 Chrome"
Window 50,20 - 800,600
CreateMenu 100,20
UsePen 0,2,RGB(192,192,192)
RecTangle 200,91 - 600,500
AppendMenu 100,"&Bild Laden"
AppendMenu 101,"&by Roberto Neu"
AppendMenu 102,"&Screenshot"
AppendMenu 103,"&Speichern unter"
AppendMenu 104,"&Beenden"
TrackMenu 672,92

if %MouseKey = 2

    CreateMenu
    AppendMenu 1,"Einfügen"
    TrackMenu %MouseX,%MouseY
    Case MenuItem(1) : ClipLoadBMP 201,92-397,400;1
    Du erzeugst die Speicherbitmap in der Größe des Bildschirmfotos
    MCls %MaxX,%MaxY,RGB(255,255,255)
    Du wechselst in die Speicherbitmap
    StartPaint -1
    Und zeichnest in diese das Bild aus der Zwischenablage
    ClipLoadBMP 0,0 ; 0
    Dann wechselst du wieder auf dein Hauptfenster
    EndPaint
    Dann holst du das Bild aus der Zwischenablage
    %BMPX und %BMPY sind Breite und Höhe des letzten gezeichneten Bildes
    Nach dem Pfeil kommen die Koordinaten, an die du das Bild setzen willst
    MCopySizedBMP 0,0 - %BMPX,%BMPY > 201,92-160,120 ; 0

endif

Case @MenuItem(100): Name$ = @LoadFile$("Bilddateien","*.BMP")

While Name$ <> ""

    LoadSizedBMP Name$,201,92-397,400;0
    WindowTitle "BMPviewer 2 Chrome - [" + Name$ + "]"
    WaitMouse
    Name$ = @LoadFile$("Bilddateien","*.BMP")

Wend

Case @MenuItem(101) :
Text$ = "BMPviewer 1.0 by Roberto Neu"
Titeltext$ = "Roberto Neu"
Messagebox(Text$,Titeltext$,0)
Case @Menuitem(102) :
Text2$ = "Wenn sie einen Screenshot machen möchten.
Klicken sie auf die Taste PrtSc/Druck.
Gehen sie dan wieder in dieses Programm
Machen sie einen rechtsklick/Einfügen"
Titeltext2$ = "Screenshot"
Messagebox(Text2$,Titeltext2$,0)
Case @MenuItem(103) : SaveBmp "Bild1.BMP",10,10 - 200,140
waitkey
end
ef='./../../references-fonction/XProfan/end/'>Fin

Case MenuItem(1) : ClipLoadBMP 201,92-397,400;1