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

wince: added GetLastErrorText

Browse Source 
git-svn-id: trunk@14512 -
This commit is contained in:
paul 2008-03-14 03:40:53 +00:00
parent 76f4d692ba
commit ba718c3a42
1 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lcl/interfaces/wince/winceproc.pp
View File

@ -62,7 +62,7 @@ procedure FillRawImageDescription(const ABitmapInfo: Windows.TBitmap; out ADesc:
function GetBitmapBytes(ABitmap: HBITMAP; const ARect: TRect; ALineEnd: TRawImageLineEnd; var AData: Pointer; var ADataSize: PtrUInt): Boolean; function GetBitmapBytes(ABitmap: HBITMAP; const ARect: TRect; ALineEnd: TRawImageLineEnd; var AData: Pointer; var ADataSize: PtrUInt): Boolean;
function GetLastErrorText(AErrorCode: Cardinal): WideString;
function LCLControlSizeNeedsUpdate(Sender: TWinControl; function LCLControlSizeNeedsUpdate(Sender: TWinControl;
SendSizeMsgOnDiff: boolean): boolean; SendSizeMsgOnDiff: boolean): boolean;
@ -753,6 +753,24 @@ begin
Result := True; Result := True;
end; end;
function GetLastErrorText(AErrorCode: Cardinal): WideString;
var
r: cardinal;
tmp: PWideChar;
begin
tmp := nil;
r := Windows.FormatMessage(
FORMAT_MESSAGE_ALLOCATE_BUFFER or FORMAT_MESSAGE_FROM_SYSTEM or FORMAT_MESSAGE_ARGUMENT_ARRAY,
nil, AErrorCode, LANG_NEUTRAL, @tmp, 0, nil);
if r = 0 then Exit('');
Result := tmp;
SetLength(Result, Length(Result)-2);
if tmp <> nil
then LocalFree(HLOCAL(tmp));
end;
(*********************************************************************** (***********************************************************************
Widget member Functions Widget member Functions