paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 16:59:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

PoChecker: fix missing icons in GraphStat ListView on Linux GTK2

Browse Source 
git-svn-id: trunk@46266 -
This commit is contained in:
bart 2014-09-20 15:49:39 +00:00
parent cccbde05f6
commit d9d7efd73d
3 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/pochecker/Proj/pochecker.lpi
View File

@ -77,7 +77,6 @@
<Unit1> <Unit1>
<Filename Value="..\pofamilies.pp"/> <Filename Value="..\pofamilies.pp"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="PoFamilies"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="..\resultdlg.pp"/> <Filename Value="..\resultdlg.pp"/>
@ -90,12 +89,10 @@
<Unit3> <Unit3>
<Filename Value="..\simplepofiles.pp"/> <Filename Value="..\simplepofiles.pp"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="SimplePoFiles"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="..\pocheckerconsts.pas"/> <Filename Value="..\pocheckerconsts.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="pocheckerconsts"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="..\pocheckermain.pp"/> <Filename Value="..\pocheckermain.pp"/>

7
components/pochecker/graphstat.lfm
View File

@ -6,6 +6,7 @@ object GraphStatForm: TGraphStatForm
Caption = 'Graphical summary' Caption = 'Graphical summary'
ClientHeight = 544 ClientHeight = 544
ClientWidth = 636 ClientWidth = 636
OnActivate = FormActivate
OnClose = FormClose OnClose = FormClose
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
@ -42,7 +43,7 @@ object GraphStatForm: TGraphStatForm
Left = 104 Left = 104
Height = 15 Height = 15
Top = 17 Top = 17
Width = 83 Width = 100
Caption = 'TranslatedLabel' Caption = 'TranslatedLabel'
ParentColor = False ParentColor = False
end end
@ -50,7 +51,7 @@ object GraphStatForm: TGraphStatForm
Left = 104 Left = 104
Height = 15 Height = 15
Top = 36 Top = 36
Width = 98 Width = 118
Caption = 'UnTranslatedLabel' Caption = 'UnTranslatedLabel'
ParentColor = False ParentColor = False
end end
@ -58,7 +59,7 @@ object GraphStatForm: TGraphStatForm
Left = 104 Left = 104
Height = 15 Height = 15
Top = 55 Top = 55
Width = 57 Width = 70
Caption = 'FuzzyLabel' Caption = 'FuzzyLabel'
ParentColor = False ParentColor = False
end end

13
components/pochecker/graphstat.pp
View File

@ -8,6 +8,10 @@ uses
Classes, SysUtils, Types, FileUtil, Forms, Controls, Graphics, Dialogs, Classes, SysUtils, Types, FileUtil, Forms, Controls, Graphics, Dialogs,
ExtCtrls, PoFamilies, PoCheckerConsts, LCLProc, StdCtrls, ComCtrls; ExtCtrls, PoFamilies, PoCheckerConsts, LCLProc, StdCtrls, ComCtrls;
{$ifndef windows}
{$define lv_}
{$endif}
type type
{ TGraphStatForm } { TGraphStatForm }
@ -21,6 +25,7 @@ type
TranslatedShape: TShape; TranslatedShape: TShape;
UnTranslatedShape: TShape; UnTranslatedShape: TShape;
FuzzyShape: TShape; FuzzyShape: TShape;
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
@ -76,7 +81,6 @@ const
procedure TGraphStatForm.FormShow(Sender: TObject); procedure TGraphStatForm.FormShow(Sender: TObject);
begin begin
DrawGraphs;
FOldHintHidePause := Application.HintHidePause; FOldHintHidePause := Application.HintHidePause;
Application.HintHidePause := 5000; Application.HintHidePause := 5000;
end; end;
@ -125,6 +129,12 @@ begin
Application.HintHidePause := FOldHintHidePause; Application.HintHidePause := FOldHintHidePause;
end; 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); procedure TGraphStatForm.FormDestroy(Sender: TObject);
begin begin
if Assigned(FImgList) then FImgList.Free; if Assigned(FImgList) then FImgList.Free;
@ -201,6 +211,7 @@ var
begin begin
if Assigned(FImgList) then FImgList.Free; if Assigned(FImgList) then FImgList.Free;
FImgList := TImageList.CreateSize(BmpWH, BmpWH); FImgList := TImageList.CreateSize(BmpWH, BmpWH);
ListView.Clear;
ListView.LargeImages := FImgList; ListView.LargeImages := FImgList;
ListView.BeginUpdate; ListView.BeginUpdate;
try try