pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fix TCustomRxCalendar.CreateParams - thx sobee from freepascal.ru

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1404 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2010-12-16 12:26:00 +00:00
parent 457ca8fcc7
commit a75b29b605
1 changed files with 13 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
components/rx/pickdate.pas
View File

@ -395,6 +395,18 @@ begin
end;
procedure TCustomRxCalendar.CreateParams(var Params: TCreateParams);
const
ClassStylesOff = CS_VREDRAW or CS_HREDRAW;
begin
inherited CreateParams(Params);
with Params do
begin
WindowClass.Style := WindowClass.Style and DWORD(not ClassStylesOff);
Style := Style or WS_VSCROLL or WS_HSCROLL or WS_CLIPCHILDREN;
end;
end;
(*
begin
inherited CreateParams(Params);
Params.Style := Params.Style or WS_BORDER;
@ -403,6 +415,7 @@ begin
AddBiDiModeExStyle(Params.ExStyle);
{$ENDIF}
end;
*)
procedure TCustomRxCalendar.Change;
begin