002
19.06.2005, 15:43 Uhr
CDW
|
z.B hier steht das:
http://delphi.zsg-rottenburg.de/faq.html#drehen
so siehts angepasst aus:
| Code: |
procedure TForm1.FormCreate(Sender: TObject);
begin
with image1.canvas do
BEGIN
TextOut(20,20,'TEXT');
END;
end;
procedure TForm1.Image1Click(Sender: TObject);
var
a, b : TBitmap;
x,y, breite: integer;
begin
a :=Tbitmap.Create;
b := TBitmap.Create;
try
a.Assign(Image1.Picture.Bitmap);
b.Width := Image1.Picture.height;
b.Height := Image1.Picture.Width;
breite := b.Width - 1;
for x := 0 to b.Width -1 do for y := 0 to b.Height - 1 do
b.Canvas.pixels[x,y] := a.Canvas.Pixels[y,breite - x];
Image1.Picture.Assign(b);
finally a.free; b.Free end;
end;
end.
|
--
EB FE |
