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

try to fix some problems with vpdayview

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@344 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
christian_u
2008-02-07 16:22:04 +00:00
parent ee3296a1cd
commit 07ffdaab39
2 changed files with 7 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/tvplanit/source/vpbase.pas
View File

@ -48,7 +48,7 @@ uses
const const
{Message base} {Message base}
Vp_First = $7DF0; {Sets base for all Vp messages} Vp_First = WM_USER;//$7DF0; {Sets base for all Vp messages}
const const
{Custom message types} {Custom message types}

14
components/tvplanit/source/vpdayview.pas
View File

@ -61,9 +61,9 @@ uses
{$IFDEF LCL} {$IFDEF LCL}
LMessages,LCLProc,LCLType,LCLIntf, LMessages,LCLProc,LCLType,LCLIntf,
{$ELSE} {$ELSE}
Windows,Messages, Windows,
{$ENDIF} {$ENDIF}
Classes, Graphics, Controls, ComCtrls, ExtCtrls, StdCtrls, Messages, Classes, Graphics, Controls, ComCtrls, ExtCtrls, StdCtrls,
Buttons, VpBase, VpBaseDS, VpMisc, VpData, VpSR, VpConst, Buttons, VpBase, VpBaseDS, VpMisc, VpData, VpSR, VpConst,
VpCanvasUtils, Menus; VpCanvasUtils, Menus;
@ -390,6 +390,7 @@ type
procedure KeyDown(var Key: Word; Shift: TShiftState); override; procedure KeyDown(var Key: Word; Shift: TShiftState); override;
procedure SetTimeIntervals (UseGran : TVpGranularity); procedure SetTimeIntervals (UseGran : TVpGranularity);
{ message handlers } { message handlers }
procedure VpDayViewInit (var Msg : TMessage); Message Vp_DayViewInit;
{$IFNDEF LCL} {$IFNDEF LCL}
procedure WMSize(var Msg: TWMSize); message WM_SIZE; procedure WMSize(var Msg: TWMSize); message WM_SIZE;
procedure WMVScroll(var Msg: TWMVScroll); message WM_VSCROLL; procedure WMVScroll(var Msg: TWMVScroll); message WM_VSCROLL;
@ -397,7 +398,6 @@ type
procedure WMEraseBackground (var Msg : TWMERASEBKGND); procedure WMEraseBackground (var Msg : TWMERASEBKGND);
procedure CMWantSpecialKey(var Msg: TCMWantSpecialKey); procedure CMWantSpecialKey(var Msg: TCMWantSpecialKey);
message CM_WANTSPECIALKEY; message CM_WANTSPECIALKEY;
procedure VpDayViewInit (var Msg : TMessage); Message Vp_DayViewInit;
{$ELSE} {$ELSE}
procedure WMSize(var Msg: TLMSize); message LM_SIZE; procedure WMSize(var Msg: TLMSize); message LM_SIZE;
procedure WMVScroll(var Msg: TLMVScroll); message LM_VSCROLL; procedure WMVScroll(var Msg: TLMVScroll); message LM_VSCROLL;
@ -724,7 +724,6 @@ end;
{ TVpDayView } { TVpDayView }
constructor TVpDayView.Create(AOwner: TComponent); constructor TVpDayView.Create(AOwner: TComponent);
begin begin
inherited; inherited;
ControlStyle := [csCaptureMouse, csOpaque, csDoubleClicks]; ControlStyle := [csCaptureMouse, csOpaque, csDoubleClicks];
@ -1912,8 +1911,7 @@ end;
procedure TVpDayView.CreateWnd; procedure TVpDayView.CreateWnd;
begin begin
inherited; inherited;
PostMessage (Handle, Vp_DayViewInit, 0, 0);
PostMessage (Handle, Vp_DayViewInit, 0, 0);
end; end;
{=====} {=====}
@ -4517,7 +4515,7 @@ begin
end; end;
{=====} {=====}
{$IFNDEF LCL} {.$IFNDEF LCL}
procedure TVpDayView.VpDayViewInit (var Msg : TMessage); procedure TVpDayView.VpDayViewInit (var Msg : TMessage);
begin begin
if csLoading in ComponentState then begin if csLoading in ComponentState then begin
@ -4531,7 +4529,7 @@ begin
TopLine, -1); TopLine, -1);
SetVScrollPos; SetVScrollPos;
end; end;
{$ENDIF} {.$ENDIF}
(*****************************************************************************) (*****************************************************************************)
{ TVpCHAttributes } { TVpCHAttributes }