paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 13:17:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Remove an unused Rect from TCanvas.TextExtent. Suggested by lagprogramming.

Browse Source
This commit is contained in:
Juha 2023-03-11 17:10:32 +02:00
parent e4a334e330
commit 79fadc1fa5
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/canvas.inc
View File

@ -1776,7 +1776,6 @@ end;
function TCanvas.TextExtent(const Text: string): TSize; function TCanvas.TextExtent(const Text: string): TSize;
var var
DCIndex: Integer; DCIndex: Integer;
ARect: TRect;
procedure SaveState; procedure SaveState;
begin begin
@ -1795,17 +1794,13 @@ begin
Result.cY := 0; Result.cY := 0;
if Text='' then exit; if Text='' then exit;
RequiredState([csHandleValid, csFontValid]); RequiredState([csHandleValid, csFontValid]);
DCIndex := 0; DCIndex := 0;
if Font.IsDefault then if Font.IsDefault then
begin begin
SaveState; SaveState;
SelectObject(FHandle, OnGetSystemFont()); SelectObject(FHandle, OnGetSystemFont());
end; end;
ARect := Rect(0, 0, 0, 0);
GetTextExtentPoint(FHandle, PChar(Text), Length(Text), Result); GetTextExtentPoint(FHandle, PChar(Text), Length(Text), Result);
RestoreState; RestoreState;
end; end;