paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-04 05:23:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

Opkman: OptionsFrm, ColorsFrm: Small GUI tweak.

Browse Source 
git-svn-id: trunk@56823 -
This commit is contained in:
balazs 2017-12-23 06:35:18 +00:00
parent 2b1a77d9af
commit 37c23339cf
3 changed files with 26 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
components/onlinepackagemanager/opkman_colorsfrm.lfm
View File

@ -2,24 +2,24 @@ object ColorsFrm: TColorsFrm
Left = 549
Height = 194
Top = 321
Width = 366
Width = 372
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Colors'
ClientHeight = 194
ClientWidth = 366
ClientWidth = 372
OnCreate = FormCreate
Position = poOwnerFormCenter
LCLVersion = '1.9.0.0'
object lbName: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 50
Left = 85
Height = 15
Top = 15
Top = 25
Width = 32
BorderSpacing.Left = 50
BorderSpacing.Top = 15
BorderSpacing.Left = 85
BorderSpacing.Top = 25
Caption = 'Name'
ParentColor = False
end
@ -27,9 +27,9 @@ object ColorsFrm: TColorsFrm
AnchorSideLeft.Control = lbName
AnchorSideTop.Control = lbName
AnchorSideTop.Side = asrBottom
Left = 50
Left = 85
Height = 15
Top = 50
Top = 60
Width = 60
BorderSpacing.Top = 20
Caption = 'Description'
@ -39,9 +39,9 @@ object ColorsFrm: TColorsFrm
AnchorSideLeft.Control = lbName
AnchorSideTop.Control = lbDescription
AnchorSideTop.Side = asrBottom
Left = 50
Left = 85
Height = 15
Top = 85
Top = 95
Width = 39
BorderSpacing.Top = 20
Caption = 'License'
@ -52,10 +52,10 @@ object ColorsFrm: TColorsFrm
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lbName
AnchorSideTop.Side = asrCenter
Left = 132
Left = 167
Height = 27
Top = 9
Width = 131
Top = 19
Width = 76
BorderSpacing.Left = 50
OnMouseUp = shNameMouseUp
end
@ -65,10 +65,10 @@ object ColorsFrm: TColorsFrm
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lbDescription
AnchorSideTop.Side = asrCenter
Left = 132
Left = 167
Height = 27
Top = 44
Width = 131
Top = 54
Width = 76
BorderSpacing.Left = 50
OnMouseDown = shNameMouseUp
end
@ -78,10 +78,10 @@ object ColorsFrm: TColorsFrm
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lbLicense
AnchorSideTop.Side = asrCenter
Left = 132
Left = 167
Height = 27
Top = 79
Width = 131
Top = 89
Width = 76
BorderSpacing.Left = 50
OnMouseDown = shNameMouseUp
end
@ -89,7 +89,7 @@ object ColorsFrm: TColorsFrm
Left = 6
Height = 34
Top = 154
Width = 354
Width = 360
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
HelpButton.Name = 'HelpButton'

4
components/onlinepackagemanager/opkman_colorsfrm.pas
View File

@ -6,7 +6,7 @@ interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls,
ButtonPanel;
ButtonPanel, Buttons;
type
@ -48,6 +48,8 @@ begin
lbLicense.Caption := rsMainFrm_VSTText_License;
CD.Title := rsColors_CD_Title;
bp.HelpButton.Caption := rsOptions_bpOptions_bHelp;
bp.HelpButton.Kind := bkCustom;
bp.HelpButton.Glyph.Clear;
end;
procedure TColorsFrm.HelpButtonClick(Sender: TObject);

4
components/onlinepackagemanager/opkman_optionsfrm.pas
View File

@ -33,7 +33,7 @@ uses
SysUtils, Math, Graphics, Classes,
// LCL
Forms, Controls, Dialogs, StdCtrls, ExtCtrls, Spin, ComCtrls, EditBtn, Menus,
ButtonPanel,
ButtonPanel, Buttons,
// LazUtils
LazFileUtils,
// OpkMan
@ -556,6 +556,8 @@ begin
pnProfilesMain.Visible := Options.UserProfile = 1;
bColors.Caption := rsOptions_bColors_Caption;
bpOptions.HelpButton.Caption := rsOptions_bpOptions_bHelp;
bpOptions.HelpButton.Kind := bkCustom;
bpOptions.HelpButton.Glyph.Clear;
SetupColors;
end;