Маштабирование программы

[Hacker19_90]

procedure TForm1.FormPaint(Sender: TObject);
var
  bmp: TBitmap;
  fRgn: hRGN;
begin
  fRgn := CreateRectRgn(0, 0, Width, Height);
  bmp := TBitmap.Create;
  try
    bmp.LoadFromFile ('C:\WINDOWS\winnt256.bmp');
    Canvas.Brush.Bitmap := bmp;
    PaintRgn (Canvas.Handle, fRgn);
  finally
    Canvas.Brush.Bitmap := nil;
    bmp.Free;
  end;
end;

попробуйте!
Впринципе поисковиком побегайте! Тему раз 100500 обсуждали

[CMS]

Сообщение от lowercase

эээмм.. а может свойства елеметов Anchors? смотри вложения я накидал на форму елементов поставил для них разные(в отличии от стандартных) свойства anchors.

Тут обнаружил, что если на форму закинуть несколько объектов СтрингГрид (один под другим) и используя свойство Anchors попробовать привязать их к рамкам экрана, то :
1. Вариант, когда я показываю им всем привязку ко всем 4 границам- ИТОГ они наезжают друг на друга
2. Вариант, когда я два привязываю к низу и право, лево, а один к верху и права, лево - ИТОГ между первым и двумя последующими очень большая зияющая дыра!

Может можно как то по другому сделать так что бы элементы не плясали..и сохраняли свои пропорции??

[phomm]

Либо можно как-то исхитриться с Tpanel +Tsplitter (каждый грид на панель и меж панелями сплиттеры, тут уж просто надо найти верную комбинацию анкоров и Align'ов)
Либо писать свою обработку в OnResize , я бы второе взял , примерно так:
4 грида, все гриды распиханы (своими углами касаются углов формы) и заанкорены по своим углам и в ресайз такой код

procedure TMainForm.FormResize(Sender: TObject);
begin
sg1.clientwidth := clientwidth div 2;
sg1.clientheight := clientheight div 2; // аналогично для остальных
end;

Если я ничего не попутал, то увидите 4 грида расположеных в виде таблички 2*2 по всей форме.
В дизайн-тайм остальные параметры размещения, кроме указанных не повлияют, ибо код ресайза их выставит сам.