Canvas

← →
Nimda (2002-12-26 16:58) [0]

Люди, у меня такой код:
...
var
Bmp : TBitmap;
begin
Bmp:= TBitmap.Create;
Bmp.Canvas.Restangle(10,10,40,40);
Bmp.SaveToFile("picture1.bmp");
end;
...
А почему в файле пустота?

← →
Skier © (2002-12-26 17:02) [1]

>Nimda
Нужно задавать размеры Bitmap-а :

Bmp:= TBitmap.Create;
try
Bmp.Width := 50;
Bmp.Height := 50;
Bmp.Canvas.Rectangle(10,10,40,40);
Bmp.SaveToFile("C:\###\picture1.bmp");
finally
Bmp.Free;
end; //try

Canvas Найти похожие ветки