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