diff --git a/components/pochecker/Proj/pochecker.lpi b/components/pochecker/Proj/pochecker.lpi index 7473e4b8db..4247f577b4 100644 --- a/components/pochecker/Proj/pochecker.lpi +++ b/components/pochecker/Proj/pochecker.lpi @@ -77,7 +77,6 @@ - @@ -90,12 +89,10 @@ - - diff --git a/components/pochecker/graphstat.lfm b/components/pochecker/graphstat.lfm index d73aeb8257..011254351c 100644 --- a/components/pochecker/graphstat.lfm +++ b/components/pochecker/graphstat.lfm @@ -6,6 +6,7 @@ object GraphStatForm: TGraphStatForm Caption = 'Graphical summary' ClientHeight = 544 ClientWidth = 636 + OnActivate = FormActivate OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy @@ -42,7 +43,7 @@ object GraphStatForm: TGraphStatForm Left = 104 Height = 15 Top = 17 - Width = 83 + Width = 100 Caption = 'TranslatedLabel' ParentColor = False end @@ -50,7 +51,7 @@ object GraphStatForm: TGraphStatForm Left = 104 Height = 15 Top = 36 - Width = 98 + Width = 118 Caption = 'UnTranslatedLabel' ParentColor = False end @@ -58,7 +59,7 @@ object GraphStatForm: TGraphStatForm Left = 104 Height = 15 Top = 55 - Width = 57 + Width = 70 Caption = 'FuzzyLabel' ParentColor = False end diff --git a/components/pochecker/graphstat.pp b/components/pochecker/graphstat.pp index 45e84ce630..806caa8677 100644 --- a/components/pochecker/graphstat.pp +++ b/components/pochecker/graphstat.pp @@ -8,6 +8,10 @@ uses Classes, SysUtils, Types, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls, PoFamilies, PoCheckerConsts, LCLProc, StdCtrls, ComCtrls; + +{$ifndef windows} +{$define lv_} +{$endif} type { TGraphStatForm } @@ -21,6 +25,7 @@ type TranslatedShape: TShape; UnTranslatedShape: TShape; FuzzyShape: TShape; + procedure FormActivate(Sender: TObject); procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); @@ -76,7 +81,6 @@ const procedure TGraphStatForm.FormShow(Sender: TObject); begin - DrawGraphs; FOldHintHidePause := Application.HintHidePause; Application.HintHidePause := 5000; end; @@ -125,6 +129,12 @@ begin Application.HintHidePause := FOldHintHidePause; end; +procedure TGraphStatForm.FormActivate(Sender: TObject); +begin + //Doing this in TGraphStatForm.FormShow results in icons disappearing in Linux GTK2 + DrawGraphs; +end; + procedure TGraphStatForm.FormDestroy(Sender: TObject); begin if Assigned(FImgList) then FImgList.Free; @@ -201,6 +211,7 @@ var begin if Assigned(FImgList) then FImgList.Free; FImgList := TImageList.CreateSize(BmpWH, BmpWH); + ListView.Clear; ListView.LargeImages := FImgList; ListView.BeginUpdate; try