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

Fix bug #817 : cannot see anything in the field editor; color is white on white background

Browse Source
This commit is contained in:
Ansgar Becker
2008-10-22 18:23:10 +00:00
parent 9369754fe7
commit 59609b99b6
2 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
source/bineditor.pas
View File

@ -67,7 +67,8 @@ end;
procedure TfrmBinEditor.SetFont(font: TFont); procedure TfrmBinEditor.SetFont(font: TFont);
begin begin
memoText.Font := font; memoText.Font.Name := font.Name;
memoText.Font.Size := font.Size;
end; end;
procedure TfrmBinEditor.FormCreate(Sender: TObject); procedure TfrmBinEditor.FormCreate(Sender: TObject);

3
source/texteditor.pas
View File

@ -68,7 +68,8 @@ end;
procedure TfrmTextEditor.SetFont(font: TFont); procedure TfrmTextEditor.SetFont(font: TFont);
begin begin
memoText.Font := font; memoText.Font.Name := font.Name;
memoText.Font.Size := font.Size;
end; end;
procedure TfrmTextEditor.FormCreate(Sender: TObject); procedure TfrmTextEditor.FormCreate(Sender: TObject);