Hiho und da bin ich wieder hab da noch ne kleine Frage
und mein Problem ist, ich bin grade dabei ein kleines Bildbearbeitungsprogramm zu entwickeln weil ich mich mehr mit Images beschäftigen will und mein Problem ist jetz ich würde gerne ein screenshot machen gesagt getan kein Problem
jetz würde ich das bild nur gerne links vergrößern aber nicht damit es sich dehnt oder so sondern es sollte eine weiße fläche links neben dem screenshot erscheinen nach rechts und nach unten geht es ja ist ja kein problem aber halt nach oben und nach links vergrößern habe es schon versucht zu spiegeln und dann zu vergrößern und wieder zurück nur dauert diese Prozedur mehrere sekunden was nicht so toll ist
schonmal danke im voraus
liebe Grüße sebi
ein Image nach Links vergrößern [gelöst]
ein Image nach Links vergrößern [gelöst]
Zuletzt geändert von Dragomir am Di 5. Mai 2015, 15:53, insgesamt 1-mal geändert.
Re: ein Image nach Links vergrößern
Da musst du dein Bild (Bitmap) auf ein neues, größeres kopieren.
Re: ein Image nach Links vergrößern
danke hat alles wunderbar funktioniert
Re: ein Image nach Links vergrößern
Code: Alles auswählen
cCanvas := TCanvas.Create;
P_Bild.Width := P_Bild.Width + 50;
Image1.Left := Image1.Left + 50;
Frm_bearbeitung.Width := Frm_bearbeitung.Width + 50;
Application.ProcessMessages;
cCanvas.Handle := GetWindowDC(P_Bild.Handle);
crect := Classes.Rect(0,0,P_Bild.Width, P_Bild.Height);
Image1.Picture.Bitmap.Width := Image1.Picture.Bitmap.Width +50;
Image1.Picture.Bitmap.Canvas.CopyRect(crect, cCanvas, crect);
ReleaseDC(P_Bild.Handle,cCanvas.Handle);
Image1.Left := Image1.Left - 50;