| |
| |
|
Roberto
Neu | | je voudrais sur un Trackmenu qui Funktion "EINFÜGEN" faire cela Trackmenu habe je déjà erstellt mais je trouve den Befehl pour EINFÜGEN pas |
|
| |
| |
| |
|
|
Nico
Madysa | allô Roberto!
je fürchte, dass du toi quelque chose genauer ausdrücken musst. quoi oui c'est ca veux du car insérer?
Nico |
|
| |
| |
| |
|
|
Roberto
Neu | un Bild pour einem Screenshot
voilà cela oui dans einer Zwischenablage et ensuite per rechtsklick arrêt insérer ^ ^ |
|
| |
| |
| |
|
|
Frank
Abbing | | exposition doch simple öfter la fois dans qui XProfan-Aider: ClipLoadBmp |
|
| |
| |
| |
|
|
Roberto
Neu | | peux on cela aussi avec Sized magasin ??? |
|
| |
| |
| |
|
|
Roberto
Neu | Ok je habs presque rausgefunden.
mais je bekomme cela avec den Koordinaten net hin
qui peux mir aider
KompilierenMarqueSéparationdeclare 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-0,0;1
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
end
Fin
|
|
| |
| |
| |
|
|
Nico
Madysa | Avec l' den Koordinaten mais est entier simple.
chez allen BMP-Befehlen gibst du qui Koordinaten à, qui du avons veux.
LoadSizedBMP "Test.bmp", X,Y - DX,DY ; 0
X et Y donner qui Koordinaten qui oberen linken coin des Bildes à. 0,0 wäre qui obere linke coin votre Fensters.
DX et DY stehen pour qui Breite des Bildes. Soll cela Bild alors cela gesamte la fenêtre einnehmen, ensuite ist ca ici dein ami:
LoadSizedBMP "Test.bmp", 0,0 - width(%hWnd),height(%hWnd) ; 0 |
|
| |
| |
| |
|
|
Roberto
Neu | Kopiere la fois s'il te plaît mon Code et fais une Screenshot.
ensuite va dans mon Programme fais une Droit sur qui Bildfläche et ensuite sur insérer klicken.
Des fügt den Screen toujours komisch un |
|
| |
| |
| |
|
|
Nico
Madysa | Argh! Verzeih mir, doch maintenant avons wir beide cela Prädikat "Flitzbiepe" verdient.
qui Befehl est ClipLoadBMP -- pasClipLoadSizedBMP, cette gibt es nämlich pas. Daher ist es aussi pas verwunderlich, dass il Bild dans Originalgröße ausgibt. ClipLoadBMP hat seulement 3 paramètre, au cours de du 5 angegeben la hâte. veux du cela Bild aus qui Zwischenablage verzerren, ensuite musst du une le détour prendre.
1. Weg: Über qui Speicherbitmap
KompilierenMarqueSéparationDu 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>
2. Weg: Über cela Handle eines Bildes
KompilierenMarqueSéparationune 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&
|
|
| |
| |
| |
|
|
Roberto
Neu | et comment soll je cela maintenant dans den Code bekommen??
chez mir steht toujours
Befehl Startpaint inconnu |
|
| |
| |
| |
|
|
Nico
Madysa | Jaa, je hab mich verschrieben. 
qui Befehl est Début de peinture, pas StarPaint.
j'ai den Voir le texte source korrigiert, si du ihn à ClipLoadBMPs Stelle mets, sollte es marcher.
mais s'il te plaît pas seulement kopieren, mais aussi comprendre.  |
|
| |
| |
| |
|
|
Roberto
Neu | Guck dir cela la fois à là venez quoi entier komisches raus
KompilierenMarqueSéparationdeclare 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
|
|
| |
| |
| |
|
(448)
Deutsch
English
Français
Español
Italia