canvas do pliku

0

Wiecie jak zapisac canvas (z PaintBox-a) do pliku?--Vroc

0

Musisz ten canvas skopiowac do TBitmap i wtedy zapisac:

procedure TForm1.Button2Click(Sender: TObject);
var
Bmp: TBitmap;
begin
Bmp:=TBitmap.Create;
Bmp.Width:=PaintBox1.Width;
Bmp.Height:=PaintBox1.Height;
Bmp.Canvas.CopyRect(Rect(0,0,Bmp.Width,Bmp.Height),PaintBox1.Canvas,Rect(0,0,Bmp.Width,Bmp.Height));
Bmp.SaveToFile('Canvas.bmp');
Bmp.Free;
end;-------[ Delphi 6 Rulez 4 Ever!, przynajmniej do czasu gdy naucze sie C++ :) ]------

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0