XProfan

- Page 1 -

Nico
Madysa

With the whom Coordinates is still integrally simply.
with all BMP-command give You The Coordinates on, The You having want.
LoadSizedBMP "Test.bmp", X,Y - DX,DY ; 0

X and Y give The Coordinates the oberen left corner the Bildes on. 0,0 would The upper left corner your Fensters.
DX and DY stand for wide the Bildes. should the image So the entire Window receive, then is this here your friend:
LoadSizedBMP "Test.bmp", 0,0 - width(%hWnd),height(%hWnd) ; 0

Nico Madysa

07/04/09 ▲

Roberto
Neu

copy time Please my code and make a Screenshot.
then go in my Program make a Rechtsklick on The Bildfläche and then on insert clicking.
the fügt whom Screen always comic one

Nico
Madysa

Argh! forgive me, still now having both of us the predicate "Flitzbiepe" earn.
The commands is ClipLoadBMP -- notClipLoadSizedBMP, this there namely not. therefore is it neither verwunderlich, that it the image in Originalgröße outputs. ClipLoadBMP has only 3 Parameter, during You 5 indicated have. want You the image from the Clipboard verzerren, then must You a detour take.

1. lane: About The Memory bitmap
Compile Mark Separation

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>

2. lane: About the lever one Bildes
Compile Mark Separation

an Variable deklarieren
declare hPic&
then points You this variables the lever To, the on one Image verweist
this Image is from the Clipboard and here 320x240 Pixel big
hPic& = Create("hSizedPic",0,"&CLPBMP",320,240,0)
then becomes the Image there drawn, where You it having want
DrawPic hPic&,201,92 ; 0
need You the lever one Bildes not More, so vergiss not
whom memory with DeleteObject again freizugeben
DeleteObject hPic&

Nico Madysa

Roberto
Neu

and How should I the now into code get??
With me is always
commands Startpaint uncharted

Nico
Madysa

Jaa, I Have me verschrieben.

The commands is StartPaint, not StarPaint.
I have whom View source korrigiert, if You it on ClipLoadBMPs place setting, ought to it functions.

but Please not only copy, separate too understand.

Nico Madysa

Roberto
Neu

Guck you the at times there comes what integrally komisches out
Compile Mark Separation

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/'>End

- Page 2 -

Nico
Madysa

over again: These row
Compile Mark Separation

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

is purer Blödsinn. in the first has ClipLoadBMP only three Parameter (means is it in the best entrapment
ClipLoadBMP 201,92;1), secondly give You the image in your code twice from. once in your ClipLoadBMP and once on my Nature and point. therefore the council, too To understand, what You there hineinkopiert have.

Nico Madysa

Roberto
Neu

But if to the so writes

ClipLoadBMP 201,92;1)

Can only indicate where the image his should and not How big it his should

07/06/09 ▲

Jörg
Sellmeyer

which Profanversion uses Thou?
If you XProfanFree using, look you time @Create("HPIC",n,s)

"&CLPBMP" - it'll a Bitmapkopie the actually Clipboard prepares, if these a Bitmap contains.

on.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Thomas
Freier

Jörg: [...]

Roberto New
good day
I have me latest week XProfan 10 free runtergeladen and then a little bit experimented.

and iF having so well with it started. Well....

Gruß Thomas
Windows XP SP2, XProfan X2

I at least lose interest gladly then, if I faith, that something rotten is.

Hierbei is only my feeling determining - Please not überbewerten.

Roberto New, Beitrag=53115, Zeitpunkt=06.07.2009

Nico
Madysa

But if to the so writes

ClipLoadBMP 201,92;1)

Can only indicate where the image his should and not How big it his should

the try I you To say.

therefore have I you whom detour over The Memory bitmap suggested. there You whom Content the Clipboard only in Originalgröße draw can, must You it in Originalgröße into Memory bitmap draw. from there can you then the image copy and währenddessen verzerren, How You want.

Nico Madysa