AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Menuitem und Ownderdraw und Hotkey

Ein Thema von NoGAD · begonnen am 16. Okt 2019 · letzter Beitrag vom 22. Okt 2019
Antwort Antwort
Benutzerbild von NoGAD
NoGAD

Registriert seit: 31. Jan 2006
Ort: Weimar
305 Beiträge
 
Delphi 10.4 Sydney
 
#1

Menuitem und Ownderdraw und Hotkey

  Alt 16. Okt 2019, 14:23
Hallo,

in Menü zeichne ich die Einträge selbst.

Jedoch muss ich, wenn AutoHotkeys eingeschaltet sind, diese erkennen.

Gibt es dafür eine Function?

LG Mathias
Mathias
  Mit Zitat antworten Zitat
Alt 16. Okt 2019, 19:07     Erstellt von Frühlingsrolle
Dieser Beitrag wurde von Daniel gelöscht. - Grund: Verdacht auf SPAM und den damit verbundenen verschwenderischen Umgang von wertvollen Bits und Bytes
Benutzerbild von NoGAD
NoGAD

Registriert seit: 31. Jan 2006
Ort: Weimar
305 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: Menuitem und Ownderdraw und Hotkey

  Alt 16. Okt 2019, 20:40
Huhu Frühlingsrolle, schön, dich wieder einmal schreiben zu sehen


Danke für den Hinweis, ich hatte einen Fehler im Code, deshalb hatte es nicht funktioniert.

Mit folgendem Code kann ich es selbst zeichnen:

Code:
  var
    X : Integer;
    Y : Integer;
    dummy_string : string;
    dummy_string_and : String;

[..]
      if Pos( '&', dummy_string ) > 0 then
      begin
        dummy_string_and := Copy( dummy_string, 0, Pos( '&', dummy_string ) - 1 );
        ACanvas.Font.Style := [ ];
        ACanvas.TextOut( X, Y, dummy_string_and );
        dummy_string_and := Copy( dummy_string, Pos( '&', dummy_string ) + 1, 1 );
        ACanvas.Font.Style := [ fsBold, fsUnderline ];
        X := ACanvas.PenPos.X + ACanvas.TextWidth( dummy_string_and );
        ACanvas.TextOut( ACanvas.PenPos.X, Y, dummy_string_and );
        dummy_string_and := Copy( dummy_string, Pos( '&', dummy_string ) + 2, Length( dummy_string ) );
        ACanvas.Font.Style := [ ];
        ACanvas.TextOut( X, Y, dummy_string_and );
      end;

Jedoch habe ich in der Zeile:
Code:
X := ACanvas.PenPos.X + ACanvas.TextWidth( dummy_string_and );
noch einen Fehler, welchen ich beinah mit
Code:
X := ACanvas.PenPos.X + round(ACanvas.TextWidth( dummy_string_and ) * 1.125);
beheben kann. (Screenshot zeigt die Darstellung ohne * 1.125)

Fehlt mir da noch irgendein Zeichenabstand zwischen den Buchstaben?

LG Mathias
Miniaturansicht angehängter Grafiken
bildschirmfoto-vom-2019-10-16-20-37-19.png  
Mathias
  Mit Zitat antworten Zitat
Alt 17. Okt 2019, 01:09     Erstellt von Frühlingsrolle
Dieser Beitrag wurde von Daniel gelöscht. - Grund: Verdacht auf SPAM und den damit verbundenen verschwenderischen Umgang von wertvollen Bits und Bytes
Benutzerbild von NoGAD
NoGAD

Registriert seit: 31. Jan 2006
Ort: Weimar
305 Beiträge
 
Delphi 10.4 Sydney
 
#3

AW: Menuitem und Ownderdraw und Hotkey

  Alt 22. Okt 2019, 15:19
Hallo zurück,

in der angehängten Grafik meines Posts ist beim unterstrichenen P zu erkennen, dass etwas fehlt.

Und ich weiß nicht, wie das zu beheben sein könnte.

LG Mathias
Mathias
  Mit Zitat antworten Zitat
Aviator

Registriert seit: 3. Jun 2010
1.610 Beiträge
 
Delphi 10.3 Rio
 
#4

AW: Menuitem und Ownderdraw und Hotkey

  Alt 22. Okt 2019, 15:27
Versuch mal ein Canvas.BrushStyle := bsClear zu setzen. Du scheinst ja den Text auch komplett selbst zu malen und schneidest den unterstrichenen Buchstaben aus und zeichnest ihn separat. Durch das nachträgliche Zeichnen der restlichen Caption wird dann natürlich der vordere Teil übermalt, da Canvas.TextOut() ein Rechteck zeichnet und nicht nur den Text.
  Mit Zitat antworten Zitat
Benutzerbild von NoGAD
NoGAD

Registriert seit: 31. Jan 2006
Ort: Weimar
305 Beiträge
 
Delphi 10.4 Sydney
 
#5

AW: Menuitem und Ownderdraw und Hotkey

  Alt 22. Okt 2019, 15:43
Darauf bin ich einfach nicht gekommen.

Danke für die Hilfe!

LG Mathias
Mathias
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:35 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz