var myimage: TPicture;
begin
myimage:=TPicture.Create;
размеры Canvas
Как менять(задавать при создании) размеры Canvas? А то при коде
Код:
Создаёт myimage, но с размерами 0 и 0, и как следствие
Код:
myimage.Bitmap.Canvas.CopyRect(Rect(0,0,myimage.Width, myimage.Height),
FormRun.Canvas,
Rect(0,0,FormRun.ClientWidth, FormRun.ClientHeight));
FormRun.Canvas,
Rect(0,0,FormRun.ClientWidth, FormRun.ClientHeight));
А сделать
Код:
myimage.Width:=FormRun.ClientWidth;
myimage.Height:=FormRun.ClientHeight;
myimage.Height:=FormRun.ClientHeight;
Код:
myimage.Bitmap.width := 100;
myimage.Bitmap..heigth := 100;
myimage.Bitmap..heigth := 100;
Изначально они равны нулю...