From 8dc19b33c8e63d52c7a9956a8985a79c95a8a1b0 Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Sun, 23 Aug 2020 22:53:18 +0000 Subject: [PATCH] LazStats: Less hints and warnings. git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7634 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- applications/lazstats/source/forms/mainunit.pas | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/applications/lazstats/source/forms/mainunit.pas b/applications/lazstats/source/forms/mainunit.pas index 8836b968a..430940419 100644 --- a/applications/lazstats/source/forms/mainunit.pas +++ b/applications/lazstats/source/forms/mainunit.pas @@ -361,9 +361,9 @@ type procedure CorrespondenceClick(Sender: TObject); procedure CrossTabsClick(Sender: TObject); procedure DataGridClick(Sender: TObject); - procedure DataGridKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); + procedure DataGridKeyDown(Sender: TObject; var Key: Word; {%H-}Shift: TShiftState); procedure DataGridKeyPress(Sender: TObject; var Key: char); - procedure DataGridPrepareCanvas(sender: TObject; aCol, aRow: Integer; aState: TGridDrawState); + procedure DataGridPrepareCanvas(sender: TObject; aCol, {%H-}aRow: Integer; {%H-}aState: TGridDrawState); procedure DataSmoothClick(Sender: TObject); procedure DistributionsClick(Sender: TObject); procedure FreqAnalClick(Sender: TObject); @@ -1280,8 +1280,9 @@ begin end else if Command = HELP_COMMAND then begin - s := PChar(Data); // Data is pointer to HelpKeyword here, but - // the Windows help viewer does not want the KeywordPrefix required for LHelp. + s := {%H-}PChar(Data); + // Data is pointer to HelpKeyword here, but the Windows help viewer does + // not want the KeywordPrefix required for LHelp. if pos(HELP_KEYWORD_PREFIX + '/', s) = 1 then Delete(s, 1, Length(HELP_KEYWORD_PREFIX) + 1); ws := UnicodeString(Application.HelpFile + '::/' + s);