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

tvplanit: Activate some code commented in the original Lazarus port. (Trying to make the navbar accept clicks at designtime, not successful so far).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5000 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-07-18 20:57:37 +00:00
parent 98d39ec706
commit b5317b3bae
1 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
components/tvplanit/source/vpnavbar.pas
View File

@@ -281,9 +281,9 @@ type
procedure nabProcessContainers; procedure nabProcessContainers;
{VCL message methods} {VCL message methods}
procedure CMDesignHitTest(var Msg: TCMDesignHitTest); message CM_DESIGNHITTEST;
{$IFNDEF LCL} {$IFNDEF LCL}
procedure CMCtl3DChanged(var Msg: TMessage); message CM_CTL3DCHANGED; procedure CMCtl3DChanged(var Msg: TMessage); message CM_CTL3DCHANGED;
procedure CMDesignHitTest(var Msg: TCMDesignHitTest); message CM_DESIGNHITTEST;
procedure CMFontChanged(var Message: TMessage); message CM_FONTCHANGED; procedure CMFontChanged(var Message: TMessage); message CM_FONTCHANGED;
procedure CMParentColorChanged(var Message: TMessage); message CM_PARENTCOLORCHANGED; procedure CMParentColorChanged(var Message: TMessage); message CM_PARENTCOLORCHANGED;
{windows message response methods} {windows message response methods}
@@ -297,6 +297,7 @@ type
{windows message response methods} {windows message response methods}
procedure WMEraseBkGnd(var Msg: TLMEraseBkGnd); message LM_ERASEBKGND; procedure WMEraseBkGnd(var Msg: TLMEraseBkGnd); message LM_ERASEBKGND;
procedure WMNCHitTest(var Msg: TLMNCHitTest); message LM_NCHITTEST; procedure WMNCHitTest(var Msg: TLMNCHitTest); message LM_NCHITTEST;
procedure WMSetCursor(var Msg: TLMSetCursor); message LM_SETCURSOR;
{$ENDIF} {$ENDIF}
procedure CreateParams(var Params: TCreateParams); override; procedure CreateParams(var Params: TCreateParams); override;
procedure CreateWnd; override; procedure CreateWnd; override;
@@ -1128,12 +1129,10 @@ begin
end; end;
{=====} {=====}
{$IFNDEF LCL}
procedure TVpCustomNavBar.CMDesignHitTest(var Msg: TCMDesignHitTest); procedure TVpCustomNavBar.CMDesignHitTest(var Msg: TCMDesignHitTest);
begin begin
Msg.Result := LongInt(nabOverButton); Msg.Result := LongInt(nabOverButton);
end; end;
{$ENDIF}
{=====} {=====}
procedure TVpCustomNavBar.CMFontChanged(var Msg: {$IFDEF LCL}TLMessage{$ELSE}TMessage{$ENDIF}); procedure TVpCustomNavBar.CMFontChanged(var Msg: {$IFDEF LCL}TLMessage{$ELSE}TMessage{$ENDIF});
@@ -2930,8 +2929,11 @@ begin
end; end;
{=====} {=====}
{$IFNDEF LCL} {$IFDEF LCL}
procedure TVpCustomNavBar.WMSetCursor(var Msg: TLMSetCursor);
{$ELSE}
procedure TVpCustomNavBar.WMSetCursor(var Msg: TWMSetCursor); procedure TVpCustomNavBar.WMSetCursor(var Msg: TWMSetCursor);
{$ENDIF}
var var
I : Integer; I : Integer;
R : TRect; R : TRect;
@@ -2952,7 +2954,6 @@ begin
end; end;
inherited; inherited;
end; end;
{$ENDIF}
{=====} {=====}
{ Overridden DragOver method. } { Overridden DragOver method. }