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

removed useless code 

this didn't fix the bug "first hint window size is wrong"
This commit is contained in:
Basile Burg 2015-03-06 22:23:35 +01:00
parent 13f59d1ff4
commit a954f31417
1 changed files with 2 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/ce_synmemo.pas
View File

@ -18,7 +18,6 @@ type
TCEEditorHintWindow = class(THintWindow) TCEEditorHintWindow = class(THintWindow)
public public
class var FontSize: Integer; class var FontSize: Integer;
constructor Create(AOwner: TComponent); override;
function CalcHintRect(MaxWidth: Integer; const AHint: String; function CalcHintRect(MaxWidth: Integer; const AHint: String;
AData: Pointer): TRect; override; AData: Pointer): TRect; override;
end; end;
@ -139,15 +138,9 @@ implementation
uses uses
ce_interfaces, ce_staticmacro, ce_dcd, SynEditHighlighterFoldBase; ce_interfaces, ce_staticmacro, ce_dcd, SynEditHighlighterFoldBase;
constructor TCEEditorHintWindow.Create(AOwner: TComponent);
begin
inherited;
Canvas.Font.Size:= FontSize;
end;
function TCEEditorHintWindow.CalcHintRect(MaxWidth: Integer; const AHint: String; AData: Pointer): TRect; function TCEEditorHintWindow.CalcHintRect(MaxWidth: Integer; const AHint: String; AData: Pointer): TRect;
begin begin
Canvas.Font.Size:= FontSize; Font.Size:= FontSize;
result := inherited CalcHintRect(MaxWidth, AHint, AData); result := inherited CalcHintRect(MaxWidth, AHint, AData);
end; end;
@ -156,7 +149,7 @@ constructor TCESynMemoCache.create(aComponent: TComponent);
begin begin
inherited create(nil); inherited create(nil);
if (aComponent is TCESynMemo) then if (aComponent is TCESynMemo) then
fMemo := TCESynMemo(aComponent); fMemo := TCESynMemo(aComponent);
fFolds := TCollection.Create(TCEFoldCache); fFolds := TCollection.Create(TCEFoldCache);
end; end;