paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-02 20:20:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

pochecker: less hints

Browse Source 
git-svn-id: trunk@50934 -
This commit is contained in:
mattias 2015-12-19 14:48:10 +00:00
parent 649bb59f7e
commit 1b0314f516
3 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/pochecker/graphstat.pp
View File

@ -30,14 +30,14 @@ type
UnTranslatedShape: TShape;
FuzzyShape: TShape;
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ListViewMouseMove(Sender: TObject; Shift: TShiftState; X,
procedure ListViewMouseMove(Sender: TObject; {%H-}Shift: TShiftState; X,
Y: Integer);
procedure ListViewMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ListViewMouseUp(Sender: TObject; {%H-}Button: TMouseButton;
{%H-}Shift: TShiftState; X, Y: Integer);
private
{ private declarations }
FPoFamilyStats: TPoFamilyStats;
@ -50,7 +50,7 @@ type
procedure AddToListView(AStat: TStat; ABmp: TBitmap);
procedure DrawGraphs(Cnt: PtrInt);
procedure MaybeOpenInLazIDE(const Fn: String);
procedure MaybeOpenInExternalEditor(const Fn: String);
procedure MaybeOpenInExternalEditor(const {%H-}Fn: String);
public
{ public declarations }
property PoFamilyStats: TPoFamilyStats read FPoFamilyStats write FPoFamilyStats;

1
components/pochecker/pocheckersettings.pp
View File

@ -164,7 +164,6 @@ const
pTestTypes = 'TestTypes/';
pTestOptions = 'TestOptions/';
pWindowsGeometry = 'General/WindowsGeometry/';
pExternalEditor = 'ExternalEditor/';
pMasterPoFiles = 'MasterPoFiles/';
pMasterPoSelection = 'MasterPoSelection/';

4
components/pochecker/pofamilies.pp
View File

@ -272,7 +272,7 @@ end;
{function CompareFormatArgs(S1, S2: String): Boolean;
(*function CompareFormatArgs(S1, S2: String): Boolean;
var
Extr1, Extr2: String;
ArgErr1, ArgErr2: Integer;
@ -310,7 +310,7 @@ begin
end;
//writeln('CompareFormatArgs: Result = ',Result);
end;
end;}
end;*)
{ TStat }