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

LazStats: Less hints and warnings.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7634 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-08-23 22:53:18 +00:00
parent cafec170a8
commit 8dc19b33c8
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
applications/lazstats/source/forms/mainunit.pas
View File

@ -361,9 +361,9 @@ type
procedure CorrespondenceClick(Sender: TObject); procedure CorrespondenceClick(Sender: TObject);
procedure CrossTabsClick(Sender: TObject); procedure CrossTabsClick(Sender: TObject);
procedure DataGridClick(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 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 DataSmoothClick(Sender: TObject);
procedure DistributionsClick(Sender: TObject); procedure DistributionsClick(Sender: TObject);
procedure FreqAnalClick(Sender: TObject); procedure FreqAnalClick(Sender: TObject);
@ -1280,8 +1280,9 @@ begin
end else end else
if Command = HELP_COMMAND then if Command = HELP_COMMAND then
begin begin
s := PChar(Data); // Data is pointer to HelpKeyword here, but s := {%H-}PChar(Data);
// the Windows help viewer does not want the KeywordPrefix required for LHelp. // 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 if pos(HELP_KEYWORD_PREFIX + '/', s) = 1 then
Delete(s, 1, Length(HELP_KEYWORD_PREFIX) + 1); Delete(s, 1, Length(HELP_KEYWORD_PREFIX) + 1);
ws := UnicodeString(Application.HelpFile + '::/' + s); ws := UnicodeString(Application.HelpFile + '::/' + s);