Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by mimi,
11. Dez 2005
procedure TForm1.GetMenuItems(aMenuItem: TMenuItem;aNode2: TTreeNode;TreeView:TTReeView);
var z : Integer;
aItem : TMenuItem;
aNode : TTreeNode;
s : string;
begin
for z := 0 to aMenuItem.Count-1 do begin
if aMenuItem.Items.Tag <> -2 then begin
aItem := aMenuItem.Items;
aNode := ANode2;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by mimi,
11. Dez 2005
Lösung gefunden
du hattes einen kleinen fehler bei dir eingebaut:
s := aItem.Caption;
bei dir statt da .name und nicht .caption
jetzt wird es richtig angezeigt allerding mit 3 punkten die nicht angezeigt werden soll und das änder ich per tag glaube ich!
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by mimi,
11. Dez 2005
Das Problem ist das bearbeiten und Updaten Untermenupunkte von Favoriten menu sind und es werden in der TreeView angezeigt:
Bearbeiten(1 Eintrag)
Updaten(2 Eintrag)
und der Trennstrich(-)
aber erst ab den Trennstrich geht es los....
Edit:
ich rufe die funktion so auf:
GetMenuItems(Style_favoriten,form5.TreeView1.Items.GetFirstNode,Form5.TreeView1);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by mimi,
11. Dez 2005
nein kein fehlermeldung das menu wird in der TreeView falsch angezeigt:
dort stetht bearbeiten programm alles punkte die im menu vorkommen aber ich möchte ja nur das Favoriten menu auslesen und nicht die ganzen menus !
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by mimi,
11. Dez 2005
jetzt habe ich doch deinen code verwendet: Lannes
aber leider rufe ich ihn anscheid falsch auf:
procedure TForm1.GetMenuItems(aMenuItem: TMenuItem;aNode2: TTreeNode;TreeView:TTReeView);
var z : Integer;
aItem : TMenuItem;
aNode : TTreeNode;
s : string;
begin
for z := 0 to aMenuItem.Count-1 do
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by mimi,
11. Dez 2005
@xaromz
genau das habe ich schon versucht:
if (aComponent is TControl) or (aComponent is TMenuItem) then begin
aber leider ohne erfolg.
@Lannes
das mit if c.ClassParent kann ich mal versuchen vielen dank.
aber ich verstehe nicht warum das TMenuitem nicht bei einem normalen komponenten durchlauf gefunden wird . Weil TMenuItem ist doch auch von TControl oder etwa nicht ???
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by mimi,
10. Dez 2005
@Lannes
das währe auch eine idee. Vielen dank.
Wenn ich dein code richtig verstehe durchläuft er das menu und speichert es in eine TTreeView, richtig ?
ich wüste jetzt nicht genau wie :(
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by mimi,
10. Dez 2005
ich brauche es für eine farbänderung:
d.h. der user soll das ausehen der Komponenten verändern können(aber nur Schriftfarbe und TFont) und das klappt auch schon ganz gut bei allen andren komponenten nur die TMenuItems spielen da nicht mit.
ich wollte die möglichkeiten anbieten mein Programm in mehren sprachen zu benuzten mit Sprachdateien....
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by mimi,
4. Dez 2005
Hallo,
warum wird bei folgenden code Tmenuitem übersprungen:
for i:=0 to ComponentCount-1 do begin
c:=Components;
if (c is TControl) or (c is TMenuItem) then begin
ich möchte gerne alle komponenten durchlaufen die bestimmte eigenschaften aufweisen und Tmenuitem zählt dazu.... es gehörht zu TMainmenu *G*