opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Issue #8: give the info text memo a 1px border, so its background color does not mix with the underlying panels or whatever is behind it.

Browse Source
This commit is contained in:
Ansgar Becker
2018-11-09 18:02:12 +01:00
parent fbdfe4b244
commit 4c75d24b4c
1 changed files with 10 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
source/grideditlinks.pas
View File

@ -8,7 +8,7 @@ uses
Windows, Forms, Graphics, Messages, VirtualTrees, ComCtrls, SysUtils, Classes, Windows, Forms, Graphics, Messages, VirtualTrees, ComCtrls, SysUtils, Classes,
StdCtrls, ExtCtrls, CheckLst, Controls, Types, Dialogs, Menus, Mask, DateUtils, Math, StdCtrls, ExtCtrls, CheckLst, Controls, Types, Dialogs, Menus, Mask, DateUtils, Math,
dbconnection, mysql_structures, apphelpers, texteditor, bineditor, gnugettext, dbconnection, mysql_structures, apphelpers, texteditor, bineditor, gnugettext,
StrUtils, System.UITypes, SynRegExpr; StrUtils, System.UITypes, SynRegExpr, Vcl.Themes;
type type
// Radio buttons and checkboxes which do not pass <Enter> key to their parent control // Radio buttons and checkboxes which do not pass <Enter> key to their parent control
@ -1492,11 +1492,16 @@ begin
FMemoHelp := TMemo.Create(FParentForm); FMemoHelp := TMemo.Create(FParentForm);
FMemoHelp.Hide; FMemoHelp.Hide;
FMemoHelp.Parent := FParentForm; FMemoHelp.Parent := FParentForm;
FMemoHelp.Color := GetThemeColor(clInfoBk); FMemoHelp.Color := clInfoBk;
FMemoHelp.Font.Color := GetThemeColor(clInfoText); FMemoHelp.Font.Color := clInfoText;
FMemoHelp.BorderStyle := bsNone;
FMemoHelp.BevelKind := bkFlat; FMemoHelp.BevelKind := bkFlat;
FMemoHelp.BevelInner := bvNone; if TStyleManager.IsCustomStyleActive then begin
FMemoHelp.BorderStyle := bsSingle;
FMemoHelp.BevelInner := bvNone;
end else begin
FMemoHelp.BorderStyle := bsNone;
FMemoHelp.BevelInner := bvSpace;
end;
end; end;