[beavi5]

работаю в делфи 2009. написал обычное окно на API. Фигня в том что фон окна не закрашивается.
толи тут какаято фигня hbrBackground := GetStockObject (White_Brush); ... как не про6овал, фон оставался прозрачным. Толи делфи тупит, толи я.. Мож у кого чо подо6ное 6ыло??

вот весь код:

Код:

program WinMin;
uses
Windows, Messages;
const
AppName = 'WinMin';
Var
Window : HWnd;  
Message : TMsg; 
WindowClass : TWndClass; 
function WindowProc (Window : HWnd; Message, WParam : Word;LParam : LongInt) : LongInt; stdcall;
begin
WindowProc := 0;
case Message of
wm_Destroy : begin 
PostQuitMessage (0); 
Exit;              
end;
end; 
WindowProc := DefWindowProc (Window, Message, WParam, LParam); 
end;
begin
with WindowClass do begin
Style := cs_HRedraw or cs_VRedraw;  
lpfnWndProc := @WindowProc;       
cbClsExtra := 0;                
cbWndExtra := 0;                 
hInstance := 0;                   
hIcon := LoadIcon (0, idi_Application);
hCursor := LoadCursor (0, idc_Arrow); 
hbrBackground := GetStockObject (White_Brush); 
lpszMenuName := '';                 
lpszClassName := AppName;          
end;
RegisterClass (WindowClass);
Window := CreateWindow    
(AppName,  'Win_Min', ws_OverlappedWindow,
 cw_UseDefault, cw_UseDefault, cw_UseDefault, cw_UseDefault,
0,  0,
HInstance,  nil);             
ShowWindow (Window, CmdShow); 
UpdateWindow (Window);       
while GetMessage (Message, 0, 0, 0) do 
begin
TranslateMessage (Message); 
DispatchMessage (Message);   
end;
end.