TAboutScroller Fensterklasse [nonVCL]

[turboPASCAL]

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]);