paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-30 19:22:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

Set some defaults in interfacebase.inc

Browse Source 
Shane

git-svn-id: trunk@61 -
This commit is contained in:
lazarus 2000-12-06 14:54:38 +00:00
parent d28ac7d22f
commit 503f8131c6
2 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/include/interfacebase.inc
View File

@ -96,8 +96,7 @@ end;
Function TInterfaceBase.EmptyClipBoard : Boolean;
begin
// Your default here
// Result :=
Result := False;
end;
function TInterfaceBase.EnableMenuItem(hMenu: HMENU; uIDEnableItem: Integer; bEnable: Boolean): Boolean;
@ -112,8 +111,7 @@ end;
function TInterfaceBase.EnableWindow(hWnd: HWND; bEnable: Boolean): Boolean;
begin
// Your default here
// Result :=
Result := False;
end;
function TInterfaceBase.ExtTextOut(DC: HDC; X, Y: Integer; Options: Longint; Rect: PRect; Str: PChar; Count: Longint; Dx: PInteger): Boolean;
@ -168,8 +166,7 @@ end;
Function TInterfaceBase.GetParent(Handle : HWND): HWND;
begin
// Your default here
// Result :=
Result := 0;
end;
Function TInterfaceBase.GetProp(Handle : hwnd; Str : PChar): Pointer;
@ -405,6 +402,10 @@ end;
{ =============================================================================
$Log$
Revision 1.7 2000/12/06 14:54:38 lazarus
Set some defaults in interfacebase.inc
Shane
Revision 1.6 2000/09/10 19:58:47 lazarus
MWE:
* Updated makefiles for FPC release 1.0 binary units

4
lcl/interfaces/win32/interfaces.pp
View File

@ -24,10 +24,10 @@ unit interfaces;
{$mode objfpc}
interface
{ $DEFINE WIN}
{$DEFINE WIN}
{ $DEFINE QT}
{$DEFINE GTK}
{ $DEFINE GTK}
{$ifdef WIN}