Картинка вместо фона на форме

Добрый день! я хочу на форме фон сделать ввиде эмблемы фирмы, сейчас делаю вот так

procedure TFMain.FormCreate(Sender: TObject);
begin   
  Brush.Bitmap := TBitMap.Create;
  Brush.Bitmap.LoadFromFile('image\Fon.bmp'); 
end;

на форме показыватеся картинка все хорошо, но получается что картинка болше формы, и следовательно ее всю не видно, я хочу что бы моя картинка подстраивалась по размерам под форму, как бы я не меняла форму картинка была всегда полностью видна, что бы она меняла свои размеры с формой. как это сделать?

Обрабатывать WM_ERASEBACKGROUND.

Posted via ActualForum NNTP Server 1.4

TImage на всю форму

Обрабатываем OnResize формы:

var bm:TBitmap;
begin
  bm:=TBitmap.Create;
  bm.LoadFromFile('image\Fon.bmp');
  Canvas.StretchDraw(ClientRect,bm);
  bm.Free;
  end;

Спасибо большое за ответы

Проще всего Form.Brush.Bitmap задать

Hello, fd00ch!
You wrote on 20 мая 2011 г. 12:46:45:

fd00ch
Проще всего Form.Brush.Bitmap задать

и шо?

--
With best regards, Мимопроходящий.

Posted via ActualForum NNTP Server 1.4