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

made Form.Close more Delphish, added some windows compatibility functions

Browse Source 
git-svn-id: trunk@2383 -
This commit is contained in:
mattias 2002-08-17 23:41:19 +00:00
parent a5a504b865
commit e6857350d2
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/include/interfacebase.inc
View File

@ -900,6 +900,12 @@ begin
Result := 0;
end;
function TInterfaceBase.GetTextExtentExPoint(DC: HDC; Str: PChar;
Count, p4: Integer; p5, p6: PInteger; var Size: TSize): BOOL;
begin
Result := False;
end;
function TInterfaceBase.GetTextExtentPoint(DC: HDC; Str: PChar;
Count: Integer; var Size: TSize): Boolean;
begin
@ -1430,6 +1436,11 @@ begin
Result := False;
end;
function TInterfaceBase.SetTextAlign(DC: HDC; Flags: UINT): UINT;
begin
Result := 0;
end;
Function TInterfaceBase.SetTextCharacterExtra(_hdc : hdc;
nCharExtra : Integer):Integer;
begin
@ -1512,6 +1523,9 @@ end;
{ =============================================================================
$Log$
Revision 1.73 2002/12/25 10:21:05 mattias
made Form.Close more Delphish, added some windows compatibility functions
Revision 1.72 2002/02/09 02:30:56 mattias
added patch from Jeroen van Idekinge