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

fixed warnings

Browse Source 
git-svn-id: trunk@8014 -
This commit is contained in:
vincents 2005-10-31 10:14:51 +00:00
parent dd93247ae6
commit 3e08307ac5
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/clipbrd.inc
View File

@ -563,7 +563,7 @@ begin
end;
function TClipboard.HasFormat(FormatID: TClipboardFormat): Boolean;
// ask interfaceobject
// ask widgetset
var List: PClipboardFormat;
cnt, i: integer;
begin
@ -701,7 +701,7 @@ begin
end;
function TClipboard.GetFormatCount: Integer;
// ask interfaceobject
// ask widgetset
var List: PClipboardFormat;
begin
//DebugLn('[TClipboard.GetFormatCount]');

4
lcl/include/winapi.inc
View File

@ -214,13 +214,13 @@ end;
function EnumFontFamilies(DC: HDC; Family: Pchar;
EnumFontFamProc: FontEnumProc; LParam:Lparam):longint;
begin
WidgetSet.EnumFontFamilies(DC, Family, EnumFontFamProc, LParam);
Result := WidgetSet.EnumFontFamilies(DC, Family, EnumFontFamProc, LParam);
end;
function EnumFontFamiliesEx(DC: HDC; lpLogFont: PLogFont;
Callback: FontEnumExProc; LParam: Lparam; flags: dword): longint;
begin
WidgetSet.EnumFontFamiliesEx(DC, lpLogFont, Callback, LParam, flags);
Result := WidgetSet.EnumFontFamiliesEx(DC, lpLogFont, Callback, LParam, flags);
end;
function Ellipse(DC: HDC; x1,y1,x2,y2: Integer): Boolean;

2
lcl/include/wincontrol.inc
View File

@ -5442,7 +5442,7 @@ begin
and (not (csLoading in ComponentState))
and (not CompareRect(@NewBounds,@FBoundsRealized)) then
begin
// the new bounds were not yet sent to the InterfaceObject -> send them
// the new bounds were not yet sent to the WidgetSet -> send them
{$IFDEF CHECK_POSITION}
//if csDesigning in ComponentState then
if AnsiCompareText(ClassName,CheckPostionClassName)=0 then