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 ?
Automatsko resizovanje komponenti na formi ?
Zaključano
Zakačeno
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
Rajko
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!
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!
Potpis
Sto puta sam ti SRPSKI rekao:
ono što jednom crack-uješ,
ne možeš više da patch-uješ!
ono što jednom crack-uješ,
ne možeš više da patch-uješ!
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!
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!
Potpis
Sto puta sam ti SRPSKI rekao:
ono što jednom crack-uješ,
ne možeš više da patch-uješ!
ono što jednom crack-uješ,
ne možeš više da patch-uješ!