2. TImage akzeptiert kein visible := FALSE

[Ajintaro]

Hallo DP !

Ich möchte den Power-Status (Batterie oder Wechselstrom) mit einem PNG Symbol darstellen. Jetzt habe ich auf ein Panel 2 x TImage Komponenten mit jeweils einer PNG-Grafik gelegt. Beide TImage sind bei Formcreate nicht sichtbar haben Align := alLeft.

Delphi-Quellcode:

//Battery Status
...
    if HasBattery then
    begin
      img_power.Visible   := FALSE;
      img_battery.Visible := TRUE;
    end
    else
      img_battery.Visible := FALSE;
      img_power.Visible   := TRUE;
  end
 ...
    //----------------

Das img_battery reagiert entsprechend, jedoch bleibt das andere TImage (img_power) hartnäckig sichtbar. Warum kann ich mir nicht erklären.

[EWeiss]

img_power.Width := 1;
else
img_power.Width:= orginalweite;

wäre eine möglichkeit

gruss

[fkerber]

Hi,

deinem else fehlt ein begin-end, wenn ich das richtig sehe.

Viele Grüße,
Frederic

[EWeiss]

Zitat von fkerber:

Hi,

deinem else fehlt ein begin-end, wenn ich das richtig sehe.

Viele Grüße,
Frederic

Jup sehe ich auch gerade

gruss

[Ajintaro]

Ich hab nur einen Schnipsel der Funktion gepostet, im Original passt das mit den IF/ELSE/END

Ich hab auch schon versucht über die Größe des TImage anzupassen, das hat auch nicht geholfen. Testweise habe ich eine 3. TImage auf das Panel gelegt, komischerweise kann ich immer nur 1 TImage ansteuern, die anderen beiden reagieren auf keine einzige Code-Zeile

[EWeiss]

Delphi-Quellcode:

if HasBattery then
     begin
       img_power.Visible := FALSE;
       img_battery.Visible := TRUE;
     end
     else
     begin //<<

       img_battery.Visible := FALSE;
       img_power.Visible := TRUE;
     end; //<<

Ohne begin end wird nach else img_power.Visible übersprungen..

gruss

[Ajintaro]

Grml stimmt. Wie peinlich.

Danke dir EWeiss

[EWeiss]

Zitat von Ajintaro:

Grml stimmt. Wie peinlich.

Danke dir EWeiss

Kein Problem
Am besten kann man das testen in dem man prüft ob man in einer zeile bei IF/THEN/ELSE einen Breakpoint setzen kann
geht das nicht .. dann liegt in deiner Abfrage ein problem vor. (fehlendes (begin/end)

gruss