Forum: Object-Pascal / Delphi-Language
by Fussball-Robby,
26. Feb 2008
Image1.Canvas... Das ist Canvas
MfG
ps: Wenn du dein Programm vostellen willst, dann tu das unter Freeware :wink:
Forum: Object-Pascal / Delphi-Language
by Fussball-Robby,
25. Feb 2008
Indem du ins OnResize Event der Form
Image1.Height:=Form1.ClientHeight;
Image1.Width:=Form1.ClientWidth;
einfügst.
//Edit: dazu muss das Image aber Top & left =0 sein, also ganz links oben in der form, ansonsten gibts nen fehler...
//Edit²: Noch besser:
Image1.Height:=Form1.ClientHeight-Image1.Top;
Image1.Width:=Form1.ClientWidth-Image1.Left;
Forum: Object-Pascal / Delphi-Language
by Fussball-Robby,
25. Feb 2008
Okay, das heißt, du hast direkt auf die Form gezeichnet und das speichern des Inhaltes der Paintbox hätte sowieso nichts gebracht.
Aber in dem Fall, ja, du musst Canvas.blabla durch Image1.blabla ersetzen :wink:
Forum: Object-Pascal / Delphi-Language
by Fussball-Robby,
25. Feb 2008
Du hast doch vorher auf der paintbox gezeichnet, also Paintbox1.Canvas, das ersetzt du einfach überall durch Image1.Canvas
Forum: Object-Pascal / Delphi-Language
by Fussball-Robby,
25. Feb 2008
auf dem Image kannst du genau so zeichnen wie auf der paintbox (also mit Image1.Canvas...)
Forum: Object-Pascal / Delphi-Language
by Fussball-Robby,
25. Feb 2008
Ich weiß nicht, ob es eine bessere Lösung gibt, aber wenn du statt der Paintbox ein Image nimmst, bleibt das bild auch beim minimieren etc. da
Und zu der Endung, gib einfach beim SaveDialog bei DefaultExt ".bmp" an, dann wird das bmp automatisch hinzugefügt
Forum: Object-Pascal / Delphi-Language
by Fussball-Robby,
25. Feb 2008
DeddyH hat es doch schon so gut wie fertig gezeigt, du musst das nur noch ins OnClick vom Button packen und fertig:
procedure TForm1.Button1Click(Sender: TObject);
var
Bitmap : TBitmap;
begin
if SaveDialog1.Execute then
begin
Bitmap:=TBitmap.Create;
Try
Forum: Object-Pascal / Delphi-Language
by Fussball-Robby,
25. Feb 2008
Nein, da du den SaveDialog zum speichern irgendwie nicht anklicken kannst :-D
Außerdem ruft der Button den SaveDialog im Endeffekt ja sowieso auf
Forum: Object-Pascal / Delphi-Language
by Fussball-Robby,
25. Feb 2008
hey,
if SaveDialog1.execute then Bitmap.SaveToFile(SaveDialog1.FileName);
mfg
//Edit Da war wohl einer schneller :-D
Forum: Object-Pascal / Delphi-Language
by Fussball-Robby,
25. Feb 2008
Hey,
einfach mal Suchfunktion nutzen:
Klick