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

win32: Move WndText, WndClassName to win32proc to use for debugging in more units

Browse Source 
git-svn-id: trunk@24959 -
This commit is contained in:
paul 2010-04-26 09:51:40 +00:00
parent bc2f3b23e6
commit 6469d26fdd
2 changed files with 22 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/interfaces/win32/win32callback.inc
View File

@ -51,22 +51,6 @@ begin
Assert(False, 'Trace:PropEnumProc - Exit');
end;
function WndClassName(Wnd: HWND): String; inline;
var
winClassName: array[0..19] of char;
begin
GetClassName(Wnd, @winClassName, 20);
Result := winClassName;
end;
function WndText(Wnd: HWND): String; inline;
var
winText: array[0..255] of char;
begin
GetWindowText(Wnd, @winText, 256);
Result := winText;
end;
{------------------------------------------------------------------------------
Function: CallDefaultWindowProc
Params: Window - The window that receives a message
@ -1029,7 +1013,7 @@ var
begin
Assert(False, 'Trace:WindowProc - Start');
FillChar(LMessage, SizeOf(LMessage), 0);
PLMsg := @LMessage;
WinProcess := True;

21
lcl/interfaces/win32/win32proc.pp
View File

@ -134,6 +134,9 @@ procedure BlendRect(ADC: HDC; const ARect: TRect; Color: ColorRef);
function GetLastErrorText(AErrorCode: Cardinal): String;
function BitmapToRegion(hBmp: HBITMAP; cTransparentColor: COLORREF = 0; cTolerance: COLORREF = $101010): HRGN;
function WndClassName(Wnd: HWND): String; inline;
function WndText(Wnd: HWND): String; inline;
{ String functions that may be moved to the RTL in the future }
function WideStrLCopy(dest, source: PWideChar; maxlen: SizeInt): PWideChar;
procedure UpdateWindowsVersion;
@ -286,6 +289,7 @@ begin
// edit control messages start (todo: add more if needed)
$00B0: Result := 'EM_GETSEL';
$00B1: Result := 'EM_SETSEL';
$00B7: Result := 'EM_SCROLLCARET';
$00C5: Result := 'EM_LIMITTEXT';
$00CC: Result := 'EM_SETPASSWORDCHAR';
$00CF: Result := 'EM_SETREADONLY';
@ -443,6 +447,7 @@ begin
$0312: Result := 'WM_HOTKEY';
$0317: Result := 'WM_PRINT';
$0318: Result := 'WM_PRINTCLIENT';
$031F: Result := 'WM_DWMNCRENDERINGCHANGED';
$0358: Result := 'WM_HANDHELDFIRST';
$035F: Result := 'WM_HANDHELDLAST';
$0380: Result := 'WM_PENWINFIRST';
@ -1776,6 +1781,22 @@ begin
Result := Dest;
end;
function WndClassName(Wnd: HWND): String; inline;
var
winClassName: array[0..19] of char;
begin
GetClassName(Wnd, @winClassName, 20);
Result := winClassName;
end;
function WndText(Wnd: HWND): String; inline;
var
winText: array[0..255] of char;
begin
GetWindowText(Wnd, @winText, 256);
Result := winText;
end;
procedure UpdateWindowsVersion;
begin