| |
| |
|
Roberto
Neu | | Yo möchte encima una Trackmenu el Función "EINFÜGEN" hacer el Trackmenu Yo ya erstellt pero yo finde el Befehl para EINFÜGEN no |
|
| |
| |
| |
|
|
Nico
Madysa | ¡Hola Roberto!
Yo fürchte, dass du dich algo genauer ausdrücken musst. Was genau willst du porque einfügen?
Nico |
|
| |
| |
| |
|
|
Roberto
Neu | Ein Bild una Screenshot
Como es el sí en uno Zwischenablage y luego por rechtsklick sólo einfügen ^ ^ |
|
| |
| |
| |
|
|
Frank
Abbing | | Schau doch simplemente öfter veces en el XProfan-Ayuda: ClipLoadBmp |
|
| |
| |
| |
|
|
Roberto
Neu | | Kann al auch con Sized Laden ??? |
|
| |
| |
| |
|
|
Roberto
Neu | Ok Yo habs fast rausgefunden.
Aber Yo bekomme el con el Koordinaten net hin
Wer kann me helfen
KompilierenMarcaSeparacióndeclare 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
End
|
|
| |
| |
| |
|
|
Nico
Madysa | Con el el Koordinaten es doch bastante simplemente.
En allen BMP-Befehlen gibst du el Koordinaten a, el du haben willst.
LoadSizedBMP "Test.bmp", X,Y - DX,DY ; 0
X y Y geben el Koordinaten el oberen linken Ecke des Bildes a. 0,0 wäre el obere linke Ecke su Fensters.
DX y DY posición para el Breite des Bildes. Soll el Bild also el gesamte Ventana einnehmen, entonces dies hier dein Freund:
LoadSizedBMP "Test.bmp", 0,0 - width(%hWnd),height(%hWnd) ; 0 |
|
| |
| |
| |
|
|
Roberto
Neu | Kopiere veces Por favor, mein Code y mache una Screenshot.
Dann geh en mein Programa mache una Rechtsklick en el Bildfläche y luego en einfügen clic.
Des fügt el Screen siempre komisch una |
|
| |
| |
| |
|
|
Nico
Madysa | Argh! Verzeih me, doch ahora haben wir beide el Prädikat "Flitzbiepe" verdient.
Der Befehl heißt ClipLoadBMP -- noClipLoadSizedBMP, esta hay nämlich no. Daher es auch no verwunderlich, dass él el Bild en Originalgröße ausgibt. ClipLoadBMP ha sólo 3 Parámetro, während du 5 angegeben hast. Willst Si es usted el Bild de el Zwischenablage verzerren, entonces musst du una Umweg nehmen.
1. Weg: Über el Speicherbitmap
KompilierenMarcaSeparaciónDu 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 el Handle uno Bildes
KompilierenMarcaSeparaciónUn Variable deklarieren
declarar hPic&
Dann weist du dieser Variables el Handle a, el en una Bild verweist
Dieses Bild es de el Zwischenablage y hier 320x240 Pixel groß
hPic& = Crear("hSizedPic",0,"&CLPBMP",320,240,0)
Dann se el Bild dorthin suscrito, wohin du lo haben willst
DrawPic hPic&,201,92 ; 0
Brauchst du el Handle uno Bildes no mehr, así vergiss no
el Speicher con DeleteObject otra vez freizugeben
DeleteObject hPic&
|
|
| |
| |
| |
|
|
Roberto
Neu | Und como se Yo el ahora en el código bekommen??
En me es siempre
Befehl Startpaint unbekannt |
|
| |
| |
| |
|
|
Nico
Madysa | Jaa, Yo tener mich verschrieben. 
Der Befehl heißt StartPaint, no StarPaint.
Yo habe el Ver código fuente korrigiert, si du ihn a ClipLoadBMPs Punto setzt, debería lo trabajo.
Aber Por favor, no sólo kopieren, pero auch verstehen.  |
|
| |
| |
| |
|
|
Roberto
Neu | Guck dir el veces a como kommt algo muy komisches fuera
KompilierenMarcaSeparacióndeclare 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/'>End
|
|
| |
| |
| |
|
(1.530)
Deutsch
English
Français
Español
Italia