paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 18:08:35 +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;
var
DCIndex: Integer;
ARect: TRect;
procedure SaveState;
begin
@ -1795,17 +1794,13 @@ begin
Result.cY := 0;
if Text='' then exit;
RequiredState([csHandleValid, csFontValid]);
DCIndex := 0;
if Font.IsDefault then
begin
SaveState;
SelectObject(FHandle, OnGetSystemFont());
end;
ARect := Rect(0, 0, 0, 0);
GetTextExtentPoint(FHandle, PChar(Text), Length(Text), Result);
RestoreState;
end;