Forum: Programmieren allgemein
by binio,
25. Sep 2009
Also die Kombi:
procedure TForm1.FormCreate(Sender: TObject);
begin { TForm1.FormCreate }
//Schriftart und Schriftgröße
Screen.MenuFont.Name := 'Courier New';
Screen.MenuFont.Size := 10;
mainmenu1.OwnerDraw :=True;
...
Forum: Programmieren allgemein
by binio,
25. Sep 2009
Wie meinst du das mit dem selber Zeichnen ?
hmmmm das ist doch mein Code aus der xyz.dfm
Forum: Programmieren allgemein
by binio,
25. Sep 2009
Hmm gute Idee jedoch schlecht in der Darstellung !
jetzt steht da:
1a{schöner Abstand}Beschreibung{nicht Darstellbares Zeichen}Strg+s
Und naja drei-Spalten habe ich leider auch nicht.... :(
Ach meine xyz.dfm sieht nun wie folgt aus:
object MainMenu1: TMainMenu
Left = 728
Top = 336
object Datei1: TMenuItem
Forum: Programmieren allgemein
by binio,
25. Sep 2009
Meine Menüstruktur die ich hier gepostet habe ist nur ein kleiner Teil des ganzen.
Insgesamt sind es 8 Menüpunkte mit bis zu 15 Einträgen.
Ich kann leider nicht alle Menüpunkt mit logischen Tastenkombinationen versehen.
Daher kann man sehr schnell und schön alle Einträge mit z.B. Zahl-Buchstabe also 1k erreichen :)
Hab mir schon fast sowas gedacht mit dem blöden Zeichnen. Nur kann ich auch...
Forum: Programmieren allgemein
by binio,
25. Sep 2009
Hallo ich habe eine Navigationsleiste (TMainMenu)
Ich möchte dort nun erzielen das alle Elemente schön Formatiert werden.
Meine Navigation sieht z.B. so aus:
1 - Datei
1a Öffnen Strg+o
1b Speichern Strg+s
1c Speichern unter... Strg+Alt+s
1d Beenden Alt+F4