Форум: "WinAPI";
Текущий архив: 2004.02.10;
Скачать: [xml.tar.bz2];

Вниз

Смена цвета окна   Найти похожие ветки 

← →
Леприкон   (2003-12-05 09:08) [0]

Как сменить цвет у окна?

Пытаюсь продвигаться в сторону

//newBrush:HBRUSH;
newBrush:=CreateSolidBrush(RGB(100,0,200));
SetClassLong(Handle,GCL_HBRBACKGROUND,newBrush);
UpdateWindow(Handle);

но ничего не получается.

---

← →
MBo   (2003-12-05 10:14) [1]


program Simple;

uses
Windows, Messages;

function AWndProc (Window: HWND; Message, WParam, LParam: DWord): Integer; stdcall;
var
ps : PAINTSTRUCT;
DC : HDC;
r : TRect;
begin
case Message of
WM_DESTROY:
begin
PostQuitMessage (0);
Result := 0;
Exit;
end;
WM_PAINT:
begin
dc := BeginPaint (Window, ps);
SetBKMode(dc,TRANSPARENT);
TextOut(DC, 10, 10, "Is it green?", 12);
EndPaint (Window, ps);
end;
end;
Result := DefWindowProc (Window, Message, WParam, LParam);
end;

var
WC : WNDCLASS;
H : HWND;
M : MSG;

begin
WC.hInstance := HInstance;
WC.hIcon := 0;

//WC.hbrBackground:=GetStockObject(LTGRAY_BRUSH);

WC.lpfnWndProc := @AWndProc;
WC.lpszClassName := "AClass";
RegisterClass(WC);
H := CreateWindowEx (0, "AClass", "Simple", WS_OVERLAPPEDWINDOW, Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT),
Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT), 0, 0, HInstance, nil);

////////////
SetClassLong(H,GCL_HBRBACKGROUND,CreateSolidBrush(RGB(0,100,0)));

ShowWindow (H, SW_SHOWNORMAL);

while GetMessage(M, 0, 0, 0) do begin
TranslateMessage (M);
DispatchMessage(M);
end;

end.



---

Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2004.02.10;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.009 c