InsertMenu übernimmt keine Menü-Attribute

[Frabbing]

Der Titel sagts schon.

Wenn ich ein Menü mit AppendMenu's aufbauen und die Attribute verwende, klappt das wunderbar:

Set("MenuBackCol"
Set("MenuBorderCol"
Set("MenuIconSize"
Set("MenuFont"
Set("MenuTextCol"

Füge ich später per InsertMenu weitere Menüs dazu, nehmen die keinen der Menü-Attribute an, was echt übel ist.

[Frabbing]

Ach so, der letzte (neue) Parameter muß ein Iconhandle oder 0 sein, damit das überhaupt wirkt...
Damit geht es, aber so eine Syntax erscheint mir seltsam.

[RGH]

Ja, das ist genau das Unterscheidungsmerkmal zwischen Standard-Menü und User-Drawn-Menü.

Gruß
Roland

[Frabbing]

Ok, das passt auch hierher:

@Set("MenuIconSize", N)

N: Integer - Größe in Pixel

Die Größe aller Menüticons wird bestimmt.
Hinweis: Die Größe wirkt nur,wenn sie größer ist, als die durch die Schrifthöhe des Menütextes vorgegebene Mindestgröße.

Ich hab einen 14er oder 15er Font im Menü eingestellt und Icons in 16x16 Pixel. Trotzdem werden die Icons in die Länge gestreckt, sind dann 17x17 oder 18x18 Pixel groß, was unschön aussieht. Da ist zumindest die Hilfe nicht korrekt.

Ich fände es auch besser, wenn meine Icongröße immer erhalten bliebe, es sei denn, der Font würde zu groß (hohe DPI z.B. für Leute mit Sehschwäche). Dann sollten die Icons auf Format 32x32 geschaltet werden.
Icons verzerren sieht immer hässlich aus und ich möchte den Benutzer eigentlich auch nicht mit einem eigenen Font gängeln.
Damit 16er und 32er Icons zur Verfügung stehen, könnten AppendMenu und InsertMenu einen weiteren Parameter für das größere Iconhandle erhalten.

Also verzerrte Icons gehen meiner Meinung nach gar nicht, damit lässt sich nichts Professionelles erstellen...

[Frabbing]

Besteht da die Chance einer Verbesserung, Roland?

So sollte ein Menü aussehen:



So sieht es aus, zu eng und Icons (16x16 in Imagelist) pixelig (weil dargestellt in 18x18 oder so):



Toolbars oder Tabcontrol z.B. passen ihr Control an die Icongröße an, so sollte es auch bei den Menüs sein...

[RGH]

Ja, da ich Ähnliches scvhon vorgesehen hatte, habe ich als absolut allerletzte Erweiterung (und daher zu wenig getestet, um in der Hilfe dokumentiert zu werden) noch folgendes eingebaut:

Mit Set("MenuDynIcon", N%) kann das dynamische Anpassen der Icongröße gesteuert werden:

0 : Die Icongröße wird exakt wie angegeben beibehalten.
1 : Wie jetzt: Die Icongröße wird an die Textgröße angepasst, wenn diese größer als das Icon ist. Das Icon wird aber nicht verkleinert.
2 : Die Icongröße wird nur um ganzzahlige Vielfache angepasst, so dass es nicht zu "Verzerrungen" kommt.

Tipp für Modus 2: Die 32er Icons benutzen, aber als Icongröße 16 angeben. Bei kleinen Menüschriften werden sie dann auf 16 * 16 skaliert, was in der Regel gut ausseht, bei größeren Größen dann in Original 32 * 32 und erst bei sehr großer Schrift auf 48 * 48 oder 64 * 64.

Gruß
Roland

[Frabbing]

Huch, schon eingebaut?
Ne, grade getestet, "MenuDynIcon" kennt er nicht. In welcher Version denn?

[RGH]

Zitat von Frabbing

Huch, schon eingebaut?
Ne, grade getestet, "MenuDynIcon" kennt er nicht. In welcher Version denn?

Natürlich in der, die ich nachher verschicke. Da ich kein Hellseher bin, hatte ich es bislang noch nicht eingebaut, sondern nur in dieser Richtung etwas vorgesehen und vorbereitet, so dass der Einbau jetzt fix ging.

Gruß
Roland

[Frabbing]

Na vielleicht bist du hellseherisch doch etwas begabt...
Das werde ich dann intensiv testen, vorab schonmal vielen Dank!

[Frabbing]

Klasse, Roland. Das sieht wirklich schon viel besser aus, danke!
Hab mich bei meinem Fall für Modus 0 entschieden.

Bitte noch eine kleine Anregung. Wenn es möglich wäre, den Zwischenraum zwischen zwei Menüeintragen noch wählbar zu machen, damit die Texte nicht so zusammengequetscht aussehen wie bisher. Sowas wie eine Funktion:

Set("MenuTextSpace"

Setzt man das z.B. auf 4, dann werden 4 zusätzliche Pixel Platz zwischen zwei Einträgen gelassen. Sodass man auch etwas offenere Menüs erstellen kann, das würde die Lesbarkeit spürbar verbessern, gerade bei kleineren Fonts. Ginge das noch?

[Frabbing]

Einen hab ich noch. Du setzt ja jetzt Häkchen für "gecheckte" Menüpunkte direkt auf ein vorhandenes Icon. Finde ich besser als die vorherige Lösung, nur den Haken zu setzen. Allerdings hatte ich das anfangs für ein Icon-Darstellungsproblem gehalten, weil der Haken schlecht zu sehen ist und ich ihn für einen Schatten im Icon gehalten hatte.
Mein Vorschlag ist, das Icon vorher 2 mal zu "blenden", bevor der Haken darauf gepappt wird:

'
' (c) Frabbing für Paules-PC-Forum:
' http://www.paules-pc-forum.de/forum/xprofan/
'
$H windows.ph
$H messages.ph

Def ImageList_GetIcon(3) !"comctl32","ImageList_GetIcon"

Def &ILD_BLEND50 $4

Cls 

Var hIL& = Create("ImageList", 32, 32)

Var iC& = Create("hIcon", "GESICHT")
ImageList("AddIcon", hIL&, iC&)
DeleteObject iC&

iC& = ImageList_GetIcon(hIL&, 0, &ILD_BLEND50)
ImageList("AddIcon", hIL&, iC&)
DeleteObject iC&

iC& = ImageList_GetIcon(hIL&, 1, &ILD_BLEND50)
ImageList("AddIcon", hIL&, iC&)
DeleteObject iC&

iC& = ImageList_GetIcon(hIL&, 2, &ILD_BLEND50)
ImageList("AddIcon", hIL&, iC&)
DeleteObject iC&

iC& = ImageList_GetIcon(hIL&, 3, &ILD_BLEND50)
ImageList("AddIcon", hIL&, iC&)
DeleteObject iC&

Var hTV& = Create("TreeView",%hwnd,hIL&,16,16,200,(height(%HWnd)-30))

TreeView("InsertItem",hTV&, 0,0,"Normal")
TreeView("InsertItem",hTV&, 0,1,"Blend")
TreeView("InsertItem",hTV&, 0,2,"2 x Blend")
TreeView("InsertItem",hTV&, 0,3,"3 x Blend")
TreeView("InsertItem",hTV&, 0,4,"4 x Blend")

While 1

  WaitInput
  Case %key=2: BREAK
  
EndWhile

[Frabbing]

Die letzten beiden Anregungen schon gelesen, Roland?

[RGH]

Gelesen: Ja!

Aber für X2 geht nichts mehr!
Die letzte Änderung an der CD war Deine aktuelle Version des XProfed-A.

Gruß
Roland

[Frabbing]

Version 2.4.00 mit Autoupdate? Na prima, danke!
Dann warte ich bis X3
Jetzt schicke aber die X2 schnell auf den Weg, denn ich hab schon von einigen Leuten gehört, dass sie sehnsüchtig auf ihre Bestellung warten.

[RGH]

Zitat von Frabbing

Jetzt schicke aber die X2 schnell auf den Weg, denn ich hab schon von einigen Leuten gehört, dass sie sehnsüchtig auf ihre Bestellung warten.

Oh, es gibt außer den Subscriptionskunden noch andere Interessenten?

Gruß
Roland