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,
StdCtrls, ExtCtrls, CheckLst, Controls, Types, Dialogs, Menus, Mask, DateUtils, Math,
dbconnection, mysql_structures, apphelpers, texteditor, bineditor, gnugettext,
StrUtils, System.UITypes, SynRegExpr;
StrUtils, System.UITypes, SynRegExpr, Vcl.Themes;
type
// Radio buttons and checkboxes which do not pass <Enter> key to their parent control
@ -1492,11 +1492,16 @@ begin
FMemoHelp := TMemo.Create(FParentForm);
FMemoHelp.Hide;
FMemoHelp.Parent := FParentForm;
FMemoHelp.Color := GetThemeColor(clInfoBk);
FMemoHelp.Font.Color := GetThemeColor(clInfoText);
FMemoHelp.BorderStyle := bsNone;
FMemoHelp.Color := clInfoBk;
FMemoHelp.Font.Color := clInfoText;
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;