Question

Does anyone know of a 3rd party component that works like GTSizer? It appears that GenoTechs no longer exists. We have a number of forms in our Delphi/Oracle enterprise application that have the GTSizer component. We have Delphi 2009 to install but GTSizer is not compatible, so we are holding off for now. Any and all suggestions are welcome.

Answer 1

I’ve been using this one;

procedure ScaleForm(F: TForm; ScreenWidth, ScreenHeight: LongInt) ;
begin
   F.Scaled := True;
   F.AutoScroll := False;
   F.Position := poScreenCenter;
   F.Font.Name := 'Arial';
   if (Screen.Width <> ScreenWidth) then begin
     F.Height :=
         LongInt(F.Height) * LongInt(Screen.Height)
         div ScreenHeight;
     F.Width :=
         LongInt(F.Width) * LongInt(Screen.Width)
         div ScreenWidth;
     F.ScaleBy(Screen.Width,ScreenWidth) ;
   end;
end;

Source: About.com, zarko gajic