paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 17:59:22 +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; end;
function TClipboard.HasFormat(FormatID: TClipboardFormat): Boolean; function TClipboard.HasFormat(FormatID: TClipboardFormat): Boolean;
// ask interfaceobject // ask widgetset
var List: PClipboardFormat; var List: PClipboardFormat;
cnt, i: integer; cnt, i: integer;
begin begin
@ -701,7 +701,7 @@ begin
end; end;
function TClipboard.GetFormatCount: Integer; function TClipboard.GetFormatCount: Integer;
// ask interfaceobject // ask widgetset
var List: PClipboardFormat; var List: PClipboardFormat;
begin begin
//DebugLn('[TClipboard.GetFormatCount]'); //DebugLn('[TClipboard.GetFormatCount]');

4
lcl/include/winapi.inc
View File

@ -214,13 +214,13 @@ end;
function EnumFontFamilies(DC: HDC; Family: Pchar; function EnumFontFamilies(DC: HDC; Family: Pchar;
EnumFontFamProc: FontEnumProc; LParam:Lparam):longint; EnumFontFamProc: FontEnumProc; LParam:Lparam):longint;
begin begin
WidgetSet.EnumFontFamilies(DC, Family, EnumFontFamProc, LParam); Result := WidgetSet.EnumFontFamilies(DC, Family, EnumFontFamProc, LParam);
end; end;
function EnumFontFamiliesEx(DC: HDC; lpLogFont: PLogFont; function EnumFontFamiliesEx(DC: HDC; lpLogFont: PLogFont;
Callback: FontEnumExProc; LParam: Lparam; flags: dword): longint; Callback: FontEnumExProc; LParam: Lparam; flags: dword): longint;
begin begin
WidgetSet.EnumFontFamiliesEx(DC, lpLogFont, Callback, LParam, flags); Result := WidgetSet.EnumFontFamiliesEx(DC, lpLogFont, Callback, LParam, flags);
end; end;
function Ellipse(DC: HDC; x1,y1,x2,y2: Integer): Boolean; 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 (csLoading in ComponentState))
and (not CompareRect(@NewBounds,@FBoundsRealized)) then and (not CompareRect(@NewBounds,@FBoundsRealized)) then
begin 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} {$IFDEF CHECK_POSITION}
//if csDesigning in ComponentState then //if csDesigning in ComponentState then
if AnsiCompareText(ClassName,CheckPostionClassName)=0 then if AnsiCompareText(ClassName,CheckPostionClassName)=0 then