GenoTechs GTSizer Komponente

Question

Kennt jemand eine Komponente von Drittanbietern, die wie GTSizer funktioniert? Es scheint, dass GenoTechs nicht mehr existiert. Wir haben eine Reihe von Formularen in unserer Delphi/Oracle-Unternehmensanwendung mit der GTSizer-Komponente. Wir haben Delphi 2009 zu installieren, aber GTSizer ist nicht kompatibel, also halten wir uns vorerst zurück. Alle Vorschläge sind willkommen.

Answer 1

Ich habe dieses verwendet;

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; 

Quelle: About.com, Zarko Gajic

Answer 2

Vielleicht tut, was Sie brauchen. OTOH, es könnte ein großer Overkill sein. :)

Answer 3

ich Anker und Ausrichtgittern zu handhaben, Memos, usw., wie GenoTechs zeigt in ihrer animated example.

Ich war noch nie ein Fan von Ändern der Größe der Schaltfläche und Bearbeiten von Steuerelementen und deren Schriftarten basierend auf der Größe des Fensters. GTSizer demo.

Answer 4

Ich benutze elastic forms, aber sie haben es nicht für D2009 aktualisiert und ich habe es noch nicht auf D2009 getestet.