Skip to content
Permalink
Browse files

Fix non applied font name on some link labels

  • Loading branch information...
ansgarbecker committed Aug 20, 2019
1 parent 0bffd5d commit 05c4407b6aaf9a29f63893afcd34723d7e27ca5b
Showing with 10 additions and 13 deletions.
  1. +0 −1 source/about.dfm
  2. +4 −7 source/about.pas
  3. +2 −2 source/main.dfm
  4. +4 −3 source/main.pas
@@ -14,7 +14,6 @@ object AboutBox: TAboutBox
FormStyle = fsStayOnTop
OldCreateOrder = True
Position = poOwnerFormCenter
OnCreate = FormCreate
OnMouseMove = MouseOver
OnShow = FormShow
DesignSize = (
@@ -35,7 +35,6 @@ TAboutBox = class(TExtForm)
procedure btnDonatedOKClick(Sender: TObject);
procedure lblCreditsClick(Sender: TObject);
procedure menuCopyLabelClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
@@ -122,17 +121,15 @@ procedure TAboutBox.editDonatedExit(Sender: TObject);
btnClose.Default := True;
end;

procedure TAboutBox.FormCreate(Sender: TObject);
procedure TAboutBox.FormShow(Sender: TObject);
begin
Screen.Cursor := crHourGlass;

// Apply special font properties after form creation, as that disables ParentFont, which prevents InheritFont() to apply
lblAppName.Font.Size := Round(lblAppName.Font.Size * 1.5);
lblAppName.Font.Style := [fsBold];
lblAppWebpage.Font.Color := clBlue;
lblCredits.Font.Color := clBlue;
end;

procedure TAboutBox.FormShow(Sender: TObject);
begin
Screen.Cursor := crHourGlass;

imgDonate.Visible := MainForm.HasDonated(False) <> nbTrue;
imgDonate.OnClick := MainForm.DonateClick;
@@ -715,7 +715,7 @@ object MainForm: TMainForm
Caption = 'Process SQL:'
TabOrder = 0
object lblExplainProcess: TLabel
Left = 87
Left = 95
Top = 2
Width = 41
Height = 13
@@ -726,7 +726,7 @@ object MainForm: TMainForm
OnClick = lblExplainProcessClick
end
object lblExplainProcessAnalyzer: TLabel
Left = 142
Left = 170
Top = 2
Width = 162
Height = 13
@@ -1813,9 +1813,6 @@ procedure TMainForm.FormCreate(Sender: TObject);
Delimiter := AppSettings.ReadString(asDelimiter);

InheritFont(SynCompletionProposal.Font);
// Simulated link label, has non inherited blue font color
lblExplainProcess.Font.Color := clBlue;
lblExplainProcessAnalyzer.Font.Color := clBlue;

// Define static query tab as first one in our QueryTabs list
QueryTab := TQueryTab.Create(Self);
@@ -2578,6 +2575,10 @@ procedure TMainForm.FormShow(Sender: TObject);
// Apply resize event and call it once here in OnShow, when the form has its final dimensions
OnResize := FormResize;
OnResize(Sender);

// Simulated link label, has non inherited blue font color
lblExplainProcess.Font.Color := clBlue;
lblExplainProcessAnalyzer.Font.Color := clBlue;
end;

procedure TMainForm.actUserManagerExecute(Sender: TObject);

0 comments on commit 05c4407

Please sign in to comment.
You can’t perform that action at this time.