Edit1 und Edit2 proportional ändern

Thema durchsuchen

Ansicht

Themen-Optionen

Edit1 und Edit2 proportional ändern

Ein Thema von thomas2009 · begonnen am 10. Apr 2011 · letzter Beitrag vom 11. Apr 2011

Vorheriger Beitrag

Nächster Beitrag

thomas2009

(Gast)

n/a Beiträge

AW: Edit1 und Edit2 proportional ändern

11. Apr 2011, 16:55

Problem gelöst

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Edit1Change(Sender: TObject);

begin

NeueBreite:=StrToInt(Edit1.Text);

AlteBreite:=Image1.width;

AlteHoehe:=Image1.Height;

if ((CheckBox1.Checked)and (edit1.Focused) ) or

   ((CheckBox1.Checked) and (UpDown1.Focused)) then

begin

Edit2.Text:=IntToStr(Round( NeueBreite * AlteHoehe /AlteBreite));

end;