![]() |
Theme-Rahmen vom TEdit zeichnen
Liste der Anhänge anzeigen (Anzahl: 1)
Hallo,
ich möchte in eine Paintbox den Rahmen von einem TEdit zeichnen. Dabei soll das aktive Theme (XP,Vista,7) verwendet werden. Ich habe es mit dem Code unten probiert, doch der gezeichnete Rahmen sieht nicht so aus wie der Rahmen vom TEdit. Im Bildschirmfoto mein mit der Paintbox gezeichneter Rahmen und zum Vergleich ein TEdit, so wie es aussehen soll. Danke für die Hilfe! Bitte ganz genau hinschauen, sonst sieht man evtl. die Unterschiede nicht.
Delphi-Quellcode:
uses Themes;
procedure TForm1.PaintBox1Paint(Sender: TObject); var Details: TThemedElementDetails; begin if ThemeServices.ThemesEnabled then begin Details := ThemeServices.GetElementDetails(teEditRoot); ThemeServices.DrawElement(PaintBox1.Canvas.Handle, Details, PaintBox1.ClientRect); end; end; |
AW: Theme-Rahmen vom TEdit zeichnen
Liste der Anhänge anzeigen (Anzahl: 1)
Unter XP schaut's gleich aus, soweit ich erkennen kann.
|
AW: Theme-Rahmen vom TEdit zeichnen
Zitat:
|
AW: Theme-Rahmen vom TEdit zeichnen
Hast du mal 'nen anderes Detail probiert, wie z.B. teEditTextNormal?
|
AW: Theme-Rahmen vom TEdit zeichnen
Zitat:
![]() |
AW: Theme-Rahmen vom TEdit zeichnen
Zitat:
|
AW: Theme-Rahmen vom TEdit zeichnen
|
AW: Theme-Rahmen vom TEdit zeichnen
Eine grundsätzliche Frage zu dieser Thematik: Muss das "XP-Manifest" für die Anwendung vorliegen, oder geht das auch ohne?
Sherlock |
AW: Theme-Rahmen vom TEdit zeichnen
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:30 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz