Permalink
Browse files

Issue #213: activate ParentFont on remaining TLabel's, so their font …

…scales like all others
  • Loading branch information...
ansgarbecker committed Oct 24, 2018
1 parent e9fd1d4 commit 0e73a8cb92a29690387198f4f28123430d40dbef
Showing with 7 additions and 38 deletions.
  1. +0 −9 source/connections.dfm
  2. +2 −0 source/connections.pas
  3. +0 −14 source/main.dfm
  4. +2 −2 source/main.pas
  5. +1 −7 source/sqlhelp.dfm
  6. +1 −0 source/sqlhelp.pas
  7. +0 −6 source/usermanager.dfm
  8. +1 −0 source/usermanager.pas
View
@@ -456,12 +456,6 @@ object connform: Tconnform
Cursor = crHandPoint
Hint = 'http://www.chiark.greenend.org.uk/~sgtatham/putty/'
Caption = 'Download plink.exe'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsUnderline]
ParentFont = False
OnClick = lblDownloadPlinkClick
end
object lblPlinkTimeout: TLabel
@@ -783,9 +777,6 @@ object connform: Tconnform
object tabStatistics: TTabSheet
Caption = 'Statistics'
ImageIndex = 145
DesignSize = (
417
287)
object lblLastConnectLeft: TLabel
Left = 3
Top = 31
View
@@ -225,6 +225,8 @@ procedure Tconnform.FormCreate(Sender: TObject);
TranslateComponent(Self);
InheritFont(Font);
FixDropDownButtons(Self);
lblDownloadPlink.Font.Style := [fsUnderline];
lblDownloadPlink.Font.Color := clBlue;
Width := AppSettings.ReadInt(asSessionManagerWindowWidth);
Height := AppSettings.ReadInt(asSessionManagerWindowHeight);
View
@@ -737,12 +737,6 @@ object MainForm: TMainForm
Hint = 'Analyze this query'
Caption = 'EXPLAIN'
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'Default'
Font.Style = [fsUnderline]
ParentFont = False
OnClick = lblExplainProcessClick
end
object lblExplainProcessAnalyzer: TLabel
@@ -754,12 +748,6 @@ object MainForm: TMainForm
Hint = 'Analyze this query on MariaDB.org'
Caption = 'EXPLAIN Analyzer on MariaDB.org'
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'Default'
Font.Style = [fsUnderline]
ParentFont = False
OnClick = lblExplainProcessAnalyzerClick
end
end
@@ -1045,8 +1033,6 @@ object MainForm: TMainForm
Caption = 'No data available for this item.'
Layout = tlCenter
WordWrap = True
ExplicitWidth = 147
ExplicitHeight = 13
end
object pnlDataTop: TPanel
Left = 0
View
@@ -1746,8 +1746,8 @@ procedure TMainForm.FormCreate(Sender: TObject);
InheritFont(Font);
InheritFont(SynCompletionProposal.Font);
// Simulated link label, has non inherited blue font color
InheritFont(lblExplainProcess.Font);
InheritFont(lblExplainProcessAnalyzer.Font);
lblExplainProcess.Font.Color := clBlue;
lblExplainProcessAnalyzer.Font.Color := clBlue;
StatusBar.Height := GetTextHeight(StatusBar.Font)+4;
// Upscale panels in non-96-DPI mode
View
@@ -155,14 +155,8 @@ object frmSQLhelp: TfrmSQLhelp
Left = 0
Top = 0
Width = 405
Height = 16
Height = 13
Align = alTop
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
ShowAccelChar = False
end
object lblExample: TLabel
View
@@ -82,6 +82,7 @@ procedure TfrmSQLhelp.FormCreate(Sender: TObject);
begin
// Set window-layout
InheritFont(Font);
lblKeyword.Font.Style := [fsBold];
Top := AppSettings.ReadInt(asSQLHelpWindowTop);
Left := AppSettings.ReadInt(asSQLHelpWindowLeft);
Width := AppSettings.ReadInt(asSQLHelpWindowWidth);
View
@@ -44,12 +44,6 @@ object UserManagerForm: TUserManagerForm
Height = 30
Anchors = [akLeft, akRight, akBottom]
AutoSize = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
Layout = tlCenter
WordWrap = True
end
View
@@ -208,6 +208,7 @@ procedure TUserManagerForm.FormCreate(Sender: TObject);
begin
// Restore GUI setup
InheritFont(Font);
lblWarning.Font.Color := clRed;
Width := AppSettings.ReadInt(asUsermanagerWindowWidth);
Height := AppSettings.ReadInt(asUsermanagerWindowHeight);
pnlLeft.Width := AppSettings.ReadInt(asUsermanagerListWidth);

0 comments on commit 0e73a8c

Please sign in to comment.