Hi, lange ist's her, hier mal ein Beispiel für eine Non-
VCL Anwendung.
In der Resource gibt man einfach für ein Control den Classennamen "TAboutScroller" an, das ist alles.
Code:
[color=#005f00]// Inhalt der Resourcedatei Demo.rc[/color]
#define IDD_DLG1 100
#define IDC_BTN1 1001
#define IDC_SCR1 1002
IDD_DLG1 DIALOGEX 6,6,190,102
CAPTION "Demo"
FONT 8,"MS Sans Serif",0,0
STYLE 0x10CE0800
BEGIN
CONTROL "Close",IDC_BTN1,"Button",0x50010000,125,78,54,15
CONTROL "",IDC_SCR1,"[color=#ff0000]TAboutScroller[/color]",0x50000000,10,9,168,59
END
Danach mit dem Resourcencompiler die .Res erstellen.
Im Sourcecode der Anwendung kann man nun mit
SendDlgItemMessage(hwnd, IDC_SCR1, WM_ASSASETCOLORS, RGB(0, 0, 255), RGB(0, 0, 0));
die Text- und Hintergrundfarbe setzen.
Der Text für den AboutScroller wird per Sendmessage übergeben.
Delphi-Quellcode:
{var AboutTxt: String}
SetDlgItemText(hwnd, IDC_SCR1, @AboutTxt[1]);