paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 16:00:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

inline few functions

Browse Source 
git-svn-id: trunk@14373 -
This commit is contained in:
paul 2008-03-03 06:39:51 +00:00
parent 921cee3b57
commit 2b483d841f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/win32/win32lclintf.inc
View File

@ -276,12 +276,12 @@ procedure TWin32WidgetSet.DrawDefaultDockImage(AOldRect, ANewRect: TRect; AOpera
const
LineSize = 4;
procedure DrawHorzLine(DC: HDC; x1, x2, y: integer);
procedure DrawHorzLine(DC: HDC; x1, x2, y: integer); inline;
begin
PatBlt(DC, x1, y, x2 - x1, LineSize, PATINVERT);
end;
procedure DrawVertLine(DC: HDC; y1, y2, x: integer);
procedure DrawVertLine(DC: HDC; y1, y2, x: integer); inline;
begin
PatBlt(DC, x, y1, LineSize, y2 - y1, PATINVERT);
end;