Hi zusammen....
Ich habe das selbe Problem, wie lemming hatte, leider konnte ich es auch mit dem Eintrag von alfons-g nicht lösen!!
Kann mir evtl. jemand sagen, was am folgenden Code falsch ist??
Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15:
| var bmp: TBitmap; bmp2: TBitmap;
begin bmp := TBitmap.Create; bmp2 := TBitmap.Create; try bmp.LoadFromFile('D:\test.bmp'); bmp2.Canvas.StretchDraw(Rect(0, 0, 150, 120), bmp); bmp2.SaveToFile('D:\test2.bmp'); finally FreeAndNil(bmp); FreeAndNil(bmp2); end; |
Ich bedanke mich für eure Antworten!!
Grüsse Dominic