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!
Sto puta sam ti SRPSKI rekao:
ono što jednom crack-uješ,
ne možeš više da patch-uješ!