diff options
author | Graeme Geldenhuys <graemeg@gmail.com> | 2013-03-14 00:00:09 +0000 |
---|---|---|
committer | Graeme Geldenhuys <graemeg@gmail.com> | 2013-03-14 00:00:09 +0000 |
commit | 0a4f73aa00061529ffd538aba3f618d73753f911 (patch) | |
tree | d834893dfd8be1cd42530290559e0da8e8f179d1 /docview/src | |
parent | 7a3a82f8d23b4f8e4f30c0de3914375a5ab05f48 (diff) | |
download | fpGUI-0a4f73aa00061529ffd538aba3f618d73753f911.tar.xz |
docview: improved the looks of the topic title panel
Later I will probably make this configurable too.
Diffstat (limited to 'docview/src')
-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); |