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

jvcllaz: Less hints and warnings.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7423 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-04-30 20:50:58 +00:00
parent 7e6c0bb36e
commit 5874c00df8
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/jvcllaz/run/JvPageComps/jvnavigationpane.pas
View File

@ -213,7 +213,7 @@ type
procedure WMLButtonDown(var Msg: TLMLButtonDown); message LM_LBUTTONDOWN; procedure WMLButtonDown(var Msg: TLMLButtonDown); message LM_LBUTTONDOWN;
procedure WMMouseMove(var Msg: TLMMouseMove); message LM_MOUSEMOVE; procedure WMMouseMove(var Msg: TLMMouseMove); message LM_MOUSEMOVE;
procedure RequestAlign; override; procedure RequestAlign; override;
procedure SetCursor(Value: TCursor); //override; // FIX ME: Crash when override is active !!! procedure SetCursor(Value: TCursor); reintroduce; //override; // FIX ME: Crash when override is active !!!
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
@ -490,7 +490,7 @@ type
procedure DoStyleChange(Sender: TObject); procedure DoStyleChange(Sender: TObject);
procedure SetAlignment(const Value: TAlignment); procedure SetAlignment(const Value: TAlignment);
procedure SetWordWrap(const Value: Boolean); procedure SetWordWrap(const Value: Boolean);
procedure CMDialogChar(var Msg: TCMDialogChar); message CM_DIALOGCHAR; //procedure CMDialogChar(var Msg: TCMDialogChar); message CM_DIALOGCHAR;
procedure ParentStyleManagerChanged(var Msg: TMsgStyleManagerChange); message CM_PARENTSTYLEMANAGERCHANGED; procedure ParentStyleManagerChanged(var Msg: TMsgStyleManagerChange); message CM_PARENTSTYLEMANAGERCHANGED;
procedure SetParentStyleManager(const Value: Boolean); procedure SetParentStyleManager(const Value: Boolean);
function IsColorsStored: Boolean; function IsColorsStored: Boolean;
@ -2493,6 +2493,7 @@ begin
end; end;
end; end;
{ wp: Warning: "Symbol 'CM_DIALOGCHAR' is not implemented." --> this method cannot be called.
procedure TJvNavPanelButton.CMDialogChar(var Msg: TCMDialogChar); procedure TJvNavPanelButton.CMDialogChar(var Msg: TCMDialogChar);
begin begin
@ -2504,6 +2505,7 @@ begin
else else
inherited; inherited;
end; end;
}
procedure TJvNavPanelButton.ParentStyleManagerChanged( procedure TJvNavPanelButton.ParentStyleManagerChanged(
var Msg: TMsgStyleManagerChange); var Msg: TMsgStyleManagerChange);