forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix, font size of reloaded document not always correct

This commit is contained in:
Basile Burg 2023-09-17 11:52:18 +02:00
parent 68f2d53b5c
commit e576ad1702
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
CHANGELOG.md
View File

@ -8,6 +8,7 @@
- Fixed windows release (#116). From now ldc2 >= 1.31.0 is a minimal requirement. - Fixed windows release (#116). From now ldc2 >= 1.31.0 is a minimal requirement.
- The context lines of the diff viewer were not legible whith dark themes. - The context lines of the diff viewer were not legible whith dark themes.
- Font size of reloaded document not always correct.
# v3.9.25 # v3.9.25

7
src/u_synmemo.pas
View File

@ -98,6 +98,7 @@ type
fCaretPosition: Integer; fCaretPosition: Integer;
fSelectionEnd: Integer; fSelectionEnd: Integer;
fFontSize: Integer; fFontSize: Integer;
fFontHeight: Integer;
fSourceFilename: string; fSourceFilename: string;
procedure setFolds(someFolds: TCollection); procedure setFolds(someFolds: TCollection);
published published
@ -106,6 +107,7 @@ type
property folds: TCollection read fFolds write setFolds; property folds: TCollection read fFolds write setFolds;
property selectionEnd: Integer read fSelectionEnd write fSelectionEnd; property selectionEnd: Integer read fSelectionEnd write fSelectionEnd;
property fontSize: Integer read fFontSize write fFontSize; property fontSize: Integer read fFontSize write fFontSize;
property fontHeight: Integer read fFontHeight write fFontHeight;
public public
constructor create(aComponent: TComponent); override; constructor create(aComponent: TComponent); override;
destructor destroy; override; destructor destroy; override;
@ -846,6 +848,7 @@ begin
fSourceFilename := fMemo.fileName; fSourceFilename := fMemo.fileName;
fSelectionEnd := fMemo.SelEnd; fSelectionEnd := fMemo.SelEnd;
fFontSize := fMemo.Font.Size; fFontSize := fMemo.Font.Size;
fFontHeight := fMemo.Font.Height;
TEditorHintWindow.FontSize := fMemo.Font.Size; TEditorHintWindow.FontSize := fMemo.Font.Size;
prev := fMemo.Lines.Count-1; prev := fMemo.Lines.Count-1;
@ -873,8 +876,10 @@ begin
if fMemo.isNotAssigned then if fMemo.isNotAssigned then
exit; exit;
if fFontSize > 0 then if fFontSize <> 0 then
fMemo.Font.Size := fFontSize; fMemo.Font.Size := fFontSize;
if fFontHeight <> 0 then
fMemo.Font.Height := fFontHeight;
// Currently collisions are not handled. // Currently collisions are not handled.
if fMemo.fileName <> fSourceFilename then if fMemo.fileName <> fSourceFilename then