[ reiser @ 12.03.2004. 18:44 ] @
Imam jednu formu koja je maximizovana. Na njoj imam jedan DBGrid, nekoliko TEdit-a, dugmica itd... Kako da napravim da komponente izgledaju isto i na drugim rezolucijama osim na 1024/768 na kojoj program radi ? Na vecim rezolucijama su komponente manje i obrnuto. ScaleBy ?
[ Rapaic Rajko @ 17.03.2004. 12:13 ] @
Mozes da procitas rezoluciju iz objekta Screen. A za velicinu komponenata, jedino da radis neko rekurzivno racunanje; ne verujem da mozes da izvedes preko propertija Align i/ili Anchors...

Rajko
[ chips @ 19.03.2004. 06:29 ] @
Uparavu si. Sa ScaleBy mozes to da uradis:

Recimo ScaleBy(75,100); ili ScaleBy(100,75); jedno povecava a, drugo smanjuje formu, ovo postavis da se odvija pri kreiranju forme "FormCreate".

Kasnije mozes preko promenljivih i SpinButona da napravis proceduru pa da ove vrednosti sam menjas.


Pozdrav!
[ chips @ 25.03.2004. 06:18 ] @
Moze i ovako:

procedure TForm1.ScaleButtonClick(Sender: TObject);
begin
AmountScaled := SpinEdit1.Value;
ScaleBy (AmountScaled, 100);
ScaleButton.Enabled := False;
RestoreButton.Enabled := True;
end;

procedure TForm1.RestoreButtonClick(Sender: TObject);
begin
ScaleBy (100, AmountScaled);
ScaleButton.Enabled := True;
RestoreButton.Enabled := False;
end;

Pozdrav!