From 7853ec49554b313a159b290774913231c0b2cf89 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 17 Aug 2002 23:41:17 +0000
Subject: [PATCH] made Form.Close more Delphish, added some windows
 compatibility functions

git-svn-id: trunk@2353 -
---
 lcl/include/winapi.inc  | 14 ++++++++++++++
 lcl/include/winapih.inc |  6 +++++-
 2 files changed, 19 insertions(+), 1 deletion(-)

diff --git a/lcl/include/winapi.inc b/lcl/include/winapi.inc
index 28fc966c72..c972b28e99 100644
--- a/lcl/include/winapi.inc
+++ b/lcl/include/winapi.inc
@@ -446,6 +446,12 @@ begin
   Result := InterfaceObject.GetTextColor(DC);
 end;
 
+function GetTextExtentExPoint(DC: HDC; Str: PChar; Count, p4: Integer;
+  p5, p6: PInteger; var Size: TSize): BOOL;
+begin
+  Result := InterfaceObject.GetTextExtentExPoint(DC,Str,Count,p4,p5,p6,Size);
+end;
+
 function GetTextExtentPoint(DC: HDC; Str: PChar; Count: Integer; var Size: TSize): Boolean;
 begin
   Result := InterfaceObject.GetTextExtentPoint(DC, Str, Count, Size);
@@ -839,6 +845,11 @@ begin
   Result := InterfaceObject.SetSysColors(cElements, lpaElements, lpaRgbValues);
 end;
 
+function SetTextAlign(DC: HDC; Flags: UINT): UINT;
+begin
+  Result := InterfaceObject.SetTextAlign(DC,Flags);
+end;
+
 Function SetTextCharacterExtra(_hdc : hdc; nCharExtra : Integer):Integer;
 begin
   Result := InterfaceObject.SetTextCharacterExtra(_hdc, nCharExtra);
@@ -1397,6 +1408,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.65  2002/12/25 10:21:05  mattias
+  made Form.Close more Delphish, added some windows compatibility functions
+
   Revision 1.64  2002/12/05 22:16:29  mattias
   double byte char font started
 
diff --git a/lcl/include/winapih.inc b/lcl/include/winapih.inc
index 89fc47f799..c5be56cced 100644
--- a/lcl/include/winapih.inc
+++ b/lcl/include/winapih.inc
@@ -126,13 +126,13 @@ function GetStockObject(Value: Integer): LongInt; {$IFDEF IF_BASE_MEMBER}virtual
 function GetSysColor(nIndex: Integer): DWORD; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 function GetSystemMetrics(nIndex: Integer): Integer;  {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 function GetTextColor(DC: HDC) : TColorRef; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
+function GetTextExtentExPoint(DC: HDC; Str: PChar; Count, p4: Integer; p5, p6: PInteger; var Size: TSize): BOOL; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 function GetTextExtentPoint(DC: HDC; Str: PChar; Count: Integer; var Size: TSize): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 function GetTextMetrics(DC: HDC; var TM: TTextMetric): Boolean;  {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 function GetWindowLong(Handle : hwnd; int : Integer): Longint; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 function GetWindowRect(Handle : hwnd; var Rect : TRect): Integer; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 Function GetWindowSize(Handle : hwnd; var Width, Height: integer): boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 function GetWindowOrgEx(dc : hdc; var P : TPoint): Integer; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
-
 function GradientFill(DC: HDC; Vertices: PTriVertex; NumVertices : Longint;
   Meshes: Pointer; NumMeshes : Longint; Mode : Longint): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 
@@ -204,6 +204,7 @@ function SetScrollInfo(Handle: HWND; SBStyle : Integer; ScrollInfo: TScrollInfo;
 //function SetScrollPos --> independent
 //function SetScrollRange --> independent
 function SetSysColors(cElements: Integer; const lpaElements; const lpaRgbValues): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
+function SetTextAlign(DC: HDC; Flags: UINT): UINT; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 Function SetTextCharacterExtra(_hdc : hdc; nCharExtra : Integer):Integer; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 function SetTextColor(DC: HDC; Color: TColorRef): TColorRef; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 function SetWindowLong(Handle: HWND; Idx: Integer; NewLong : Longint): Longint;{$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
@@ -336,6 +337,9 @@ Function RGB(R, G, B : Byte) : TColorRef;
 { =============================================================================
 
   $Log$
+  Revision 1.58  2002/12/25 10:21:05  mattias
+  made Form.Close more Delphish, added some windows compatibility functions
+
   Revision 1.57  2002/12/05 22:16:30  mattias
   double byte char font started