mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-23 15:49:33 +02:00
ide: improve representation of project file name in the compile dialog
git-svn-id: trunk@24783 -
This commit is contained in:
paul
parent
4135aa5ec6
commit
f7c60ca76e
@ -1,6 +1,6 @@
|
||||
object CompileInfoDlg: TCompileInfoDlg
|
||||
Left = 677
|
||||
Height = 167
|
||||
Height = 173
|
||||
Top = 462
|
||||
Width = 384
|
||||
AutoSize = True
|
||||
@ -11,7 +11,7 @@ object CompileInfoDlg: TCompileInfoDlg
|
||||
ChildSizing.TopBottomSpacing = 6
|
||||
ChildSizing.HorizontalSpacing = 6
|
||||
ChildSizing.VerticalSpacing = 6
|
||||
ClientHeight = 167
|
||||
ClientHeight = 173
|
||||
ClientWidth = 384
|
||||
FormStyle = fsStayOnTop
|
||||
KeyPreview = True
|
||||
@ -60,7 +60,7 @@ object CompileInfoDlg: TCompileInfoDlg
|
||||
Left = 4
|
||||
Height = 22
|
||||
Top = 2
|
||||
Width = 39
|
||||
Width = 41
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
BorderSpacing.Left = 4
|
||||
BorderSpacing.Top = 2
|
||||
@ -103,7 +103,6 @@ object CompileInfoDlg: TCompileInfoDlg
|
||||
Layout = tlCenter
|
||||
ParentColor = False
|
||||
Transparent = False
|
||||
WordWrap = True
|
||||
end
|
||||
object lbCompiling: TLabel
|
||||
AnchorSideLeft.Control = Panel1
|
||||
@ -113,7 +112,7 @@ object CompileInfoDlg: TCompileInfoDlg
|
||||
Left = 4
|
||||
Height = 22
|
||||
Top = 2
|
||||
Width = 50
|
||||
Width = 60
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
BorderSpacing.Left = 4
|
||||
BorderSpacing.Top = 2
|
||||
@ -126,7 +125,7 @@ object CompileInfoDlg: TCompileInfoDlg
|
||||
object pnlButton: TPanel
|
||||
Left = 6
|
||||
Height = 26
|
||||
Top = 135
|
||||
Top = 141
|
||||
Width = 372
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
@ -158,7 +157,7 @@ object CompileInfoDlg: TCompileInfoDlg
|
||||
end
|
||||
object pnlInfo: TPanel
|
||||
Left = 6
|
||||
Height = 36
|
||||
Height = 40
|
||||
Top = 70
|
||||
Width = 372
|
||||
Align = alTop
|
||||
@ -168,12 +167,12 @@ object CompileInfoDlg: TCompileInfoDlg
|
||||
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 3
|
||||
ClientHeight = 36
|
||||
ClientHeight = 40
|
||||
ClientWidth = 372
|
||||
TabOrder = 3
|
||||
object pnlLines: TPanel
|
||||
Left = 0
|
||||
Height = 36
|
||||
Height = 40
|
||||
Top = 0
|
||||
Width = 110
|
||||
AutoSize = True
|
||||
@ -182,14 +181,14 @@ object CompileInfoDlg: TCompileInfoDlg
|
||||
BevelOuter = bvLowered
|
||||
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
||||
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
||||
ClientHeight = 36
|
||||
ClientHeight = 40
|
||||
ClientWidth = 110
|
||||
TabOrder = 0
|
||||
object LNLines: TLabel
|
||||
Left = 35
|
||||
Height = 32
|
||||
Left = 37
|
||||
Height = 36
|
||||
Top = 2
|
||||
Width = 69
|
||||
Width = 67
|
||||
Align = alClient
|
||||
Alignment = taRightJustify
|
||||
AutoSize = False
|
||||
@ -200,9 +199,9 @@ object CompileInfoDlg: TCompileInfoDlg
|
||||
end
|
||||
object LInfoLines: TLabel
|
||||
Left = 6
|
||||
Height = 32
|
||||
Height = 36
|
||||
Top = 2
|
||||
Width = 29
|
||||
Width = 31
|
||||
Align = alLeft
|
||||
BorderSpacing.Left = 4
|
||||
Caption = 'Lines:'
|
||||
@ -212,9 +211,9 @@ object CompileInfoDlg: TCompileInfoDlg
|
||||
end
|
||||
object Panel3: TPanel
|
||||
Left = 114
|
||||
Height = 36
|
||||
Height = 40
|
||||
Top = 0
|
||||
Width = 135
|
||||
Width = 137
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 4
|
||||
BorderSpacing.Right = 4
|
||||
@ -224,27 +223,27 @@ object CompileInfoDlg: TCompileInfoDlg
|
||||
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 1
|
||||
ClientHeight = 36
|
||||
ClientWidth = 135
|
||||
ClientHeight = 40
|
||||
ClientWidth = 137
|
||||
TabOrder = 1
|
||||
object pnlHints: TPanel
|
||||
Left = 2
|
||||
Height = 15
|
||||
Height = 17
|
||||
Top = 4
|
||||
Width = 131
|
||||
Width = 133
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 2
|
||||
BorderSpacing.Top = 4
|
||||
BorderSpacing.Right = 2
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 15
|
||||
ClientWidth = 131
|
||||
ClientHeight = 17
|
||||
ClientWidth = 133
|
||||
TabOrder = 0
|
||||
object LNHint: TLabel
|
||||
Left = 35
|
||||
Height = 15
|
||||
Left = 38
|
||||
Height = 17
|
||||
Top = 0
|
||||
Width = 92
|
||||
Width = 91
|
||||
Align = alClient
|
||||
Alignment = taRightJustify
|
||||
AutoSize = False
|
||||
@ -256,9 +255,9 @@ object CompileInfoDlg: TCompileInfoDlg
|
||||
end
|
||||
object LInfoHint: TLabel
|
||||
Left = 4
|
||||
Height = 15
|
||||
Height = 17
|
||||
Top = 0
|
||||
Width = 29
|
||||
Width = 32
|
||||
Align = alLeft
|
||||
BorderSpacing.Left = 4
|
||||
Caption = 'Hints:'
|
||||
@ -267,32 +266,32 @@ object CompileInfoDlg: TCompileInfoDlg
|
||||
end
|
||||
object pnlWarnings: TPanel
|
||||
Left = 2
|
||||
Height = 15
|
||||
Top = 19
|
||||
Width = 131
|
||||
Height = 17
|
||||
Top = 21
|
||||
Width = 133
|
||||
BorderSpacing.Left = 2
|
||||
BorderSpacing.Top = 2
|
||||
BorderSpacing.Right = 2
|
||||
BorderSpacing.Bottom = 2
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 15
|
||||
ClientWidth = 131
|
||||
ClientHeight = 17
|
||||
ClientWidth = 133
|
||||
TabOrder = 1
|
||||
object LInfoWarning: TLabel
|
||||
Left = 4
|
||||
Height = 15
|
||||
Height = 17
|
||||
Top = 0
|
||||
Width = 50
|
||||
Width = 54
|
||||
Align = alLeft
|
||||
BorderSpacing.Left = 4
|
||||
Caption = 'Warnings:'
|
||||
ParentColor = False
|
||||
end
|
||||
object LNWarning: TLabel
|
||||
Left = 56
|
||||
Height = 15
|
||||
Left = 60
|
||||
Height = 17
|
||||
Top = 0
|
||||
Width = 71
|
||||
Width = 69
|
||||
Align = alClient
|
||||
Alignment = taRightJustify
|
||||
AutoSize = False
|
||||
@ -305,10 +304,10 @@ object CompileInfoDlg: TCompileInfoDlg
|
||||
end
|
||||
end
|
||||
object pnlNotesErrors: TPanel
|
||||
Left = 253
|
||||
Height = 36
|
||||
Left = 255
|
||||
Height = 40
|
||||
Top = 0
|
||||
Width = 119
|
||||
Width = 117
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 4
|
||||
BevelInner = bvRaised
|
||||
@ -317,37 +316,37 @@ object CompileInfoDlg: TCompileInfoDlg
|
||||
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
||||
ChildSizing.Layout = cclTopToBottomThenLeftToRight
|
||||
ChildSizing.ControlsPerLine = 2
|
||||
ClientHeight = 36
|
||||
ClientWidth = 119
|
||||
ClientHeight = 40
|
||||
ClientWidth = 117
|
||||
TabOrder = 2
|
||||
object pnlNotes: TPanel
|
||||
Left = 2
|
||||
Height = 15
|
||||
Height = 17
|
||||
Top = 4
|
||||
Width = 115
|
||||
Width = 113
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 2
|
||||
BorderSpacing.Top = 4
|
||||
BorderSpacing.Right = 2
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 15
|
||||
ClientWidth = 115
|
||||
ClientHeight = 17
|
||||
ClientWidth = 113
|
||||
TabOrder = 0
|
||||
object LInfoNote: TLabel
|
||||
Left = 4
|
||||
Height = 15
|
||||
Height = 17
|
||||
Top = 0
|
||||
Width = 33
|
||||
Width = 35
|
||||
Align = alLeft
|
||||
BorderSpacing.Left = 4
|
||||
Caption = 'Notes:'
|
||||
ParentColor = False
|
||||
end
|
||||
object LNNote: TLabel
|
||||
Left = 39
|
||||
Height = 15
|
||||
Left = 41
|
||||
Height = 17
|
||||
Top = 0
|
||||
Width = 72
|
||||
Width = 68
|
||||
Align = alClient
|
||||
Alignment = taRightJustify
|
||||
AutoSize = False
|
||||
@ -360,21 +359,21 @@ object CompileInfoDlg: TCompileInfoDlg
|
||||
end
|
||||
object pnlErrors: TPanel
|
||||
Left = 2
|
||||
Height = 15
|
||||
Top = 19
|
||||
Width = 115
|
||||
Height = 17
|
||||
Top = 21
|
||||
Width = 113
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 2
|
||||
BorderSpacing.Top = 2
|
||||
BorderSpacing.Right = 2
|
||||
BorderSpacing.Bottom = 2
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 15
|
||||
ClientWidth = 115
|
||||
ClientHeight = 17
|
||||
ClientWidth = 113
|
||||
TabOrder = 1
|
||||
object LInfoError: TLabel
|
||||
Left = 4
|
||||
Height = 15
|
||||
Height = 17
|
||||
Top = 0
|
||||
Width = 34
|
||||
Align = alLeft
|
||||
@ -384,9 +383,9 @@ object CompileInfoDlg: TCompileInfoDlg
|
||||
end
|
||||
object LNError: TLabel
|
||||
Left = 40
|
||||
Height = 15
|
||||
Height = 17
|
||||
Top = 0
|
||||
Width = 71
|
||||
Width = 69
|
||||
Align = alClient
|
||||
Alignment = taRightJustify
|
||||
AutoSize = False
|
||||
@ -401,8 +400,8 @@ object CompileInfoDlg: TCompileInfoDlg
|
||||
end
|
||||
object cbAutoCloseOnSuccess: TCheckBox
|
||||
Left = 6
|
||||
Height = 17
|
||||
Top = 112
|
||||
Height = 19
|
||||
Top = 116
|
||||
Width = 372
|
||||
Align = alTop
|
||||
BorderSpacing.Top = 6
|
||||
|
||||
@ -31,7 +31,7 @@ interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Buttons, LCLType,
|
||||
LCLProc, ExtCtrls, StdCtrls, ExtDlgs, LazIDEIntf, LazarusIDEStrConsts;
|
||||
LCLProc, ExtCtrls, StdCtrls, ExtDlgs, LazIDEIntf, LazarusIDEStrConsts, FileCtrl;
|
||||
|
||||
type
|
||||
|
||||
@ -178,7 +178,7 @@ end;
|
||||
|
||||
procedure TCompileInfoDlg.SetProjectName(const Sname : String);
|
||||
begin
|
||||
lbInfo.Caption := ExtractFileName(Sname);
|
||||
lbInfo.Caption := MiniMizeName(Sname, lbInfo.Canvas, lbInfo.Width);
|
||||
end;
|
||||
|
||||
procedure TCompileInfoDlg.SetStatus(const SStatus : String);
|
||||
|
||||
Loading…
Reference in New Issue
Block a user