Цитата:
|
Сообщение от Adler
Brute Force И не стыдно тебе такие глупые вопросы задавать. Ну, уж напряги свой мозг, подумай как прямоугольник отцентрировать(зная его высоту, ширину и координаты верхнего левого угла).
|
В общем это выглядит примерно так :
procedure TForm1.Button1Click(Sender: TObject);
var
BitMap1 : TBitMap;
begin
BitMap1 := TBitMap.Create;
try
BitMap1.LoadFromFile('C:\1.bmp'); // здесь указывай свой ...\*.bmp
Canvas.Draw(0,0,BitMap1);
BitMap1.Height:= form1.Height;
BitMap1.Width:= form1.Width;
finally
BitMap1.Free;
end;