paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-24 12:31:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

jcf: using buttonpanel and default font, patch from Alexey

Browse Source 
git-svn-id: trunk@50240 -
This commit is contained in:
mattias 2015-11-06 22:31:47 +00:00
parent 5ae051ec60
commit 5fa48e6e5f
2 changed files with 29 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
components/jcf2/Ui/fAbout.lfm
View File

@ -1,16 +1,13 @@
object frmAboutBox: TfrmAboutBox object frmAboutBox: TfrmAboutBox
Left = 326 Left = 326
Height = 432 Height = 394
Top = 235 Top = 235
Width = 483 Width = 483
ActiveControl = bbOK BorderIcons = [biSystemMenu]
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'About JEDI Code Format' Caption = 'About JEDI Code Format'
ClientHeight = 432 ClientHeight = 394
ClientWidth = 483 ClientWidth = 483
Font.CharSet = ANSI_CHARSET
Font.Height = -15
Font.Name = 'Segoe UI'
KeyPreview = True KeyPreview = True
OnCreate = FormCreate OnCreate = FormCreate
OnKeyUp = FormKeyUp OnKeyUp = FormKeyUp
@ -18,12 +15,12 @@ object frmAboutBox: TfrmAboutBox
LCLVersion = '1.5' LCLVersion = '1.5'
object pnlClient: TPanel object pnlClient: TPanel
Left = 0 Left = 0
Height = 393 Height = 353
Top = 0 Top = 0
Width = 483 Width = 483
Align = alTop Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 393 ClientHeight = 353
ClientWidth = 483 ClientWidth = 483
TabOrder = 0 TabOrder = 0
object imgOpenSource: TImage object imgOpenSource: TImage
@ -418,16 +415,12 @@ object frmAboutBox: TfrmAboutBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Cursor = crHandPoint Cursor = crHandPoint
Left = 11 Left = 11
Height = 20 Height = 17
Top = 309 Top = 303
Width = 462 Width = 462
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8 BorderSpacing.Top = 8
Caption = 'hlHomePage' Caption = 'hlHomePage'
Font.CharSet = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -15
Font.Name = 'Segoe UI'
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
WordWrap = True WordWrap = True
@ -443,12 +436,12 @@ object frmAboutBox: TfrmAboutBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Cursor = crHandPoint Cursor = crHandPoint
Left = 11 Left = 11
Height = 40 Height = 34
Top = 261 Top = 261
Width = 462 Width = 462
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8 BorderSpacing.Top = 8
Caption = 'This program is open source software. It is released under the Mozilla '#13#10'Public licence (MPL). http://www.mozilla.org/MPL' Caption = 'This program is open source software. It is released under the Mozilla Public licence (MPL). http://www.mozilla.org/MPL'
ParentColor = False ParentColor = False
WordWrap = True WordWrap = True
OnClick = lblMPLClick OnClick = lblMPLClick
@ -491,17 +484,21 @@ object frmAboutBox: TfrmAboutBox
TabOrder = 1 TabOrder = 1
end end
end end
object bbOK: TButton object ButtonPanel1: TButtonPanel
AnchorSideLeft.Control = pnlClient Left = 6
AnchorSideLeft.Side = asrCenter Height = 29
Left = 191 Top = 359
Height = 25 Width = 471
Top = 400 OKButton.Name = 'OKButton'
Width = 100 OKButton.DefaultCaption = True
Cancel = True HelpButton.Name = 'HelpButton'
Caption = 'OK' HelpButton.DefaultCaption = True
Default = True CloseButton.Name = 'CloseButton'
ModalResult = 1 CloseButton.DefaultCaption = True
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 1 TabOrder = 1
ShowButtons = [pbOK]
ShowBevel = False
end end
end end

7
components/jcf2/Ui/fAbout.pas
View File

@ -30,14 +30,14 @@ unit fAbout;
interface interface
uses uses
Classes, Forms, Graphics, StdCtrls, Buttons, ExtCtrls, SysUtils; Classes, Forms, Graphics, StdCtrls, Buttons, ExtCtrls, ButtonPanel, SysUtils;
type type
{ TfrmAboutBox } { TfrmAboutBox }
TfrmAboutBox = class(TForm) TfrmAboutBox = class(TForm)
bbOK: TButton; ButtonPanel1: TButtonPanel;
pnlClient: TPanel; pnlClient: TPanel;
imgOpenSource: TImage; imgOpenSource: TImage;
mWarning: TMemo; mWarning: TMemo;
@ -106,7 +106,8 @@ var
begin begin
inherited; inherited;
SetObjectFontToSystemFont(Self); //LCL already has 'default' font
//SetObjectFontToSystemFont(Self);
Caption := lisAboutAboutJEDICodeFormat; Caption := lisAboutAboutJEDICodeFormat;
mWhat.Text := Format(lisAboutVersion, [NativeLineBreak, NativeLineBreak, mWhat.Text := Format(lisAboutVersion, [NativeLineBreak, NativeLineBreak,