Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SearchBot,
14. Sep 2017
Ja, das stimmt :shock:
Ich habe das Problem entdeckt - ich verwende ein anderes Erscheinungsbild (Projekt, Optionenen, Anwendung, Erscheinungsbild) - dann geht es nicht mehr mit dem ImageIndex, aber der Fix mit dem OnChange behebt es!
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SearchBot,
13. Sep 2017
Aah cool, so gehts (in Berlin).
Hab im MainMenu1.OnChange gesetzt und da drin geschrieben:
procedure TForm1.MainMenu1Change(Sender: TObject; Source: TMenuItem;
Rebuild: Boolean);
begin
SendMessage(MainMenu1.WindowHandle, CM_MENUCHANGED, 0, 0);
DrawMenuBar(MainMenu1.WindowHandle);
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SearchBot,
12. Sep 2017
Ne, nix geht.
Aber wenn man mit der Maus drüber fährt, malt es ein Hover um das Item, dadurch wird dann auch die "LED" korrekt gezeichnet.
Wenn man nun irgendwie dies durch ein Postmessage oder so auslösen könnte?
Ich hab irgendwoher sowas eingebaut:
type
THackedMenuItem = class(TMenuItem);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SearchBot,
11. Sep 2017
Hallo,
ich habe ein optisches Problem.
Im MainMenu habe ich sowas wie Status-Anzeigen angelegt.
Mit der ImageList habe ich 4 "LEDs" (grau, grün, gelb, rot), die ich je nach Situation einschalte.
Startet die Anwendung, werden die "LED" grau gezeigt.
Setze ich jetzt ImageIndex:=1 , soll neben dem MenuItem.Caption die Grüne "LED" angezeigt werden.