So ich habe deinen Rat befolgt Muetze1, und meine Routine entsprechend angepasst.
Delphi-Quellcode:
procedure TfrmMain.pShowStatusBarIcon(IconIdx: Byte; bShow: Boolean; Panel: Byte);
begin
if (IconIdx < imlStatusBar.Count)
then begin
if bShow
then begin
//Icon holen...
imlStatusBar.GetIcon(IconIdx, AnimatedIcon);
//Icon anzeigen
try
SendMessage(Integer(barStatus.Handle), SB_SETICON, Panel, Integer(AnimatedIcon.Handle));
except
on E:
exception do begin
ShowMessage(E.
Message);
end;
end;
end
else begin
//Icon wieder löschen
SendMessage(Integer(barStatus.Handle), SB_SETICON, Panel, 0);
end;
{else}
end;
{if IconIdx Ok}
end;
Ich bin mal gespannt ob der Fehler noch auftritt oder die Bereichsprüfung nicht mehr anschlägt.
Zitat von
hoika:
Hallo,
Zitat:
Was ich mich jetzt nur Frage der Compiler meldet: "Warnung: Vorzeichenbehaftete und -lose Typen werden verglichen - beide Operanden werden erweitert"
wie ich diese Warnung wieder weg bekomme.
Ich hoffe, die Warnung wurde nicht schon von Anfang angezeigt ???
Wenn ja, hättest du usn das mal sagen können.
Heiko
Nein die Warnung kam nur als ich die If Abfrage "if
Handle < MaxInt" hinzugefügt hatte. Davor und mit dem jetztigen Stand
kommt diese Warnung nicht mehr.