XProfan

- Página 1 -

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

Nico Madysa

04.07.2009 ▲

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
Kompilieren Marca Separación

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. Weg: Über el Handle uno Bildes
Kompilieren Marca Separación

Un 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&

Nico Madysa

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.

Nico Madysa

Roberto
Neu

Guck dir el veces a como kommt algo muy komisches fuera
Kompilieren Marca Separación

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

- Página 2 -

Nico
Madysa

Nochmals: Diese Línea
Kompilieren Marca Separación

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

Ist purer Blödsinn. Erstens ha ClipLoadBMP sólo drei Parámetro (also heißt lo en el besten Falle
ClipLoadBMP 201,92;1), zweitens gibst Si es usted el Bild en deinem Code zweimal de. Einmal en deinem ClipLoadBMP y una vez en mi Art y Weise. Deswegen el Rat, auch a verstehen, qué du como hineinkopiert hast.

Nico Madysa

Roberto
Neu

Aber si al así schreibt

ClipLoadBMP 201,92;1)

Kann uno sólo angeben wo el Bild ser se y no como groß lo ser se

06.07.2009 ▲

Jörg
Sellmeyer

Welche Profanversion nutzt Usted porque?
Si usted XProfanFree benutzt, sieh Dir veces @Crear("HPIC",N,S)

"&CLPBMP" - Lo se una Bitmapkopie el aktuellen Zwischenablage erstellt, si esta una Mapa de bits enthält.

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

Thomas
Freier

Jörg: [...]

Roberto Neu
Bueno Tag
Yo habe me letzte Semana XProfan 10 free runtergeladen y luego una bisschen herumexperimentiert.

Und IF hatte tan bueno con ihm angefangen. Naja....

Gruß Thomas
Windows XP SP2, XProfan X2

Yo zumindest verliere Interesse gerne entonces, si yo glaube, dass algo faul es.

Hierbei es einzig mein Gefühl ausschlaggebend - Por favor, no überbewerten.

Roberto Neu, Beitrag=53115, Zeitpunkt=06.07.2009

Nico
Madysa

Aber si al así schreibt

ClipLoadBMP 201,92;1)

Kann uno sólo angeben wo el Bild ser se y no como groß lo ser se

Das versuche Yo dir a sagen.

Deswegen Yo dir el Umweg en Speicherbitmap vorgeschlagen. Como du el Inhalt el Zwischenablage sólo en Originalgröße dibujar kannst, musst du ihn en Originalgröße en el Speicherbitmap dibujar. Von hay de kannst du entonces el Bild kopieren y währenddessen verzerren, como du willst.

Nico Madysa