diff options
| -rw-r--r-- | docview/src/frm_main.pas | 14 |
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); |