Edit1 und Edit2 proportional ändern

[thomas2009]

Hi
ich möchte die Image Grösse proportional ändern
Edit1 : W1
Edit2: H1

Nun möchte ich in Edit1OnChange den Wert in Edit2 Proportional ändern

Wie kann ich das machen ?
H2 : Round( H1*W2 / W1 )

[s.h.a.r.k]

Du brauchst lediglich die Größen (Breite und Höhe) von vorher. Dann kannst du über das Verhältnis von vorher zu nachher, z.B. bei der geänderten Breite den Multiplikator für (in diesem Beispiel) die Höhe errechnen:

Code:

Höhe_nachher = Breite_nachher / Breite_vorher * Höhe_vorher

Daraus resultiert aber die Frage, warum du deine Formel nicht einfach ausprobiert hast? Du hättest ziemlich schnell mit ein paar Testwerten gesehen, ob es geklappt hätte oder eben nicht.

[thomas2009]

Problem gelöst

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;

Warum ich if ((CheckBox1 ... rein gemacht habe, ist schon klar

[Deep-Sea]

Zitat von thomas2009:

Delphi-Quellcode:

[...]
StrToInt(Edit1.Text);
[...]

Ist das nicht ein SpinEdit? Wieso nutzt du dann Text?


Nachtrag:

Delphi-Quellcode:

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

Das kann man verkürzen zu:
If CheckBox1.Checked and (Edit1.Focused or UpDown1.Focused) then

[himitsu]

Zitat:

Delphi-Quellcode:

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

Warum es aber zweimal drin ist, ist nicht klar.
if CheckBox1.Checked and (edit1.Focused or UpDown1.Focused) then .

Und warum die lokalen Variablen (NeueBreite, AlteBreite, AlteHoehe) global deklariert sind, auch nicht.

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
begin
  if CheckBox1.Checked and (Sender = Edit1) then
    Edit2.Text := IntToStr(Round(StrToInt(Edit1.Text) * Image1.Height / Image1.Width));
  if CheckBox1.Checked and (Sender = Edit2) then
    Edit1.Text := IntToStr(Round(StrToInt(Edit2.Text) * Image1.Width / Image1.Height));
end;

[thomas2009]

Zitat von Deep-Sea:

Ist das nicht ein SpinEdit? Wieso nutzt du dann Text?

Was meinst Du mit SpinEdit !? Ich verwende normale TEdit.


Die Abkürzung habe ich echt nicht aufgepasst
Ich finde so ist am kürzesten :
if CheckBox1.Checked and (Sender = Edit1) then

[rollstuhlfahrer]

Das mit dem "0" verhindern ist ja ganz einfach, nämlich mit 2 If-Strukturen.

Zu dem Spin-Edit: In #1 (siehe Anhang) verwendest du das Delphi-SpinEdit. Jetzt schreibst du von einem normalen Edit-Feld. Das ist ganz schön verwirrend.

Bernhard

[thomas2009]

Stimmt, mit SpinEdit, kann man das Problem von /0 verhindern


Aber Nur wenn man Updown von SpinEdit verwendet sonst kann man 0 eintippen
obwohl SpinEdit Min-Value 1 !!!