forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix, about box, status text not fully drawn with gtk

This commit is contained in:
Basile Burg 2015-08-26 12:45:00 +02:00
parent fd3262d02d
commit 9b74529023
2 changed files with 16 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/ce_infos.lfm
View File

@ -1,7 +1,7 @@
inherited CEInfoWidget: TCEInfoWidget
Left = 714
Left = 713
Height = 282
Top = 271
Top = 245
Width = 337
BorderIcons = [biSystemMenu, biMinimize, biMaximize]
Caption = 'About'
@ -25,14 +25,14 @@ inherited CEInfoWidget: TCEInfoWidget
Align = alTop
BorderSpacing.Around = 4
Caption = 'about'
ClientHeight = 85
ClientWidth = 325
ClientHeight = 87
ClientWidth = 327
TabOrder = 0
object Label1: TLabel
Left = 0
Height = 85
Height = 87
Top = 0
Width = 325
Width = 327
Align = alClient
Alignment = taCenter
AutoSize = False
@ -52,14 +52,14 @@ inherited CEInfoWidget: TCEInfoWidget
Align = alClient
BorderSpacing.Around = 4
Caption = 'tools status'
ClientHeight = 145
ClientWidth = 325
ClientHeight = 147
ClientWidth = 327
TabOrder = 1
object boxTools: TScrollBox
Left = 4
Height = 137
Height = 139
Top = 4
Width = 317
Width = 319
HorzScrollBar.Page = 1
VertScrollBar.Page = 1
Align = alClient

11
src/ce_infos.pas
View File

@ -75,6 +75,7 @@ begin
fStatus.BorderSpacing.Around := 2;
fStatus.BorderStyle := sbsSunken;
fStatus.AutoSize:=false;
fStatus.Width:= 800;
//
fKind:=kind;
fToolName:=toolName;
@ -113,12 +114,12 @@ begin
pth := exeFullName(fToolName + exeExt);
if pth = '' then
begin
fStatus.Caption:= 'the tool cannot be found';
fStatus.Caption:= ' the tool cannot be found';
png.LoadFromLazarusResource('bullet_red');
end
else
begin
fStatus.Caption:= 'the tool is available';
fStatus.Caption:= ' the tool is available';
png.LoadFromLazarusResource('bullet_green');
end;
end;
@ -127,17 +128,17 @@ begin
pth := exeFullName(fToolName + exeExt);
if pth = '' then
begin
fStatus.Caption:= 'the tool cannot be found';
fStatus.Caption:= ' the tool cannot be found';
png.LoadFromLazarusResource('bullet_red');
end
else if AppIsRunning(fToolName + exeExt) then
begin
fStatus.Caption:= 'the tool is available and running';
fStatus.Caption:= ' the tool is available and running';
png.LoadFromLazarusResource('bullet_green');
end
else
begin
fStatus.Caption:= 'the tool is available but is not running';
fStatus.Caption:= ' the tool is available but is not running';
png.LoadFromLazarusResource('bullet_yellow');
end;
end;