docview: improved the looks of the topic title panel

Later I will probably make this configurable too.

1 files changed, 14 insertions, 0 deletions

diff --git a/docview/src/frm_main.pas b/docview/src/frm_main.pas
index d22d88fb..0b8cd694 100644
--- a/docview/src/frm_main.pas
+++ b/docview/src/frm_main.pas
@@ -165,6 +165,7 @@ type
     procedure   btnNotesGotoClicked(Sender: TObject);
     procedure   UpdateEncodingComboBox;
     procedure   IndexSearchEditOnChange(Sender: TObject);
+    procedure   pnlTitleGradientPaint(Sender: TObject);
     procedure   DisplaySelectedSearchResultTopic;
     procedure   NavigateToHistoryIndex(AIndex: integer);
     procedure   UpdateLocationPanel;
@@ -1122,6 +1123,13 @@ begin
   InIndexSearch:= false;
 end;
 
+procedure TMainForm.pnlTitleGradientPaint(Sender: TObject);
+begin
+  pnlTitle.Canvas.GradientFill(pnlTitle.GetClientRect, TfpgColor($ff4466d9),
+      TfpgColor($ff63a0fe), gdHorizontal);
+  pnlTitle.Canvas.DrawText(pnlTitle.Margin, 3, pnlTitle.Text);
+end;
+
 procedure TMainForm.DisplaySelectedSearchResultTopic;
 var
   Topic: TTopic;
@@ -3034,9 +3042,15 @@ begin
     Name := 'pnlTitle';
     SetPosition(2, 2, 377, 20);
     Align := alTop;
+    Alignment := taLeftJustify;
+    BackgroundColor := TfpgColor($559DD4);
     FontDesc := '#Label2';
     Hint := '';
+    Margin := 15;
+    Style := bsFlat;
     Text := 'Panel';
+    TextColor := TfpgColor($FFFFFF);
+    OnPaint:=@pnlTitleGradientPaint;
   end;
 
   RichView := TRichTextView.Create(bvlContentArea);