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

reduce warnings and hints

Browse Source 
git-svn-id: trunk@14099 -
This commit is contained in:
paul 2008-02-12 05:47:43 +00:00
parent 4e33251c35
commit e158ce57ae
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/win32/win32lclintf.inc
View File

@ -417,7 +417,7 @@ var
Colors: array[0..1] of Cardinal; // reserve extra color for mono bitmaps
end;
BitsPtr: Pointer;
DataSize: Integer;
DataSize: PtrUInt;
Align: Byte;
begin
Result := False;

6
lcl/interfaces/win32/win32winapi.inc
View File

@ -414,11 +414,15 @@ var
DataHandle: HGLOBAL;
Data: pointer;
Size: integer;
{$IFDEF VerboseWin32Clipbrd}
DbgFormatID: integer;
{$ENDIF}
Bitmap: TBitmap;
{$IFDEF WindowsUnicodeSupport}
BufferStream: TMemoryStream;
BufferWideString: widestring;
BufferString: ansistring;
{$ENDIF}
function ReadClipboardToStream(DestStream: TStream): Boolean;
begin
@ -595,8 +599,10 @@ function TWin32WidgetSet.ClipboardGetOwnerShip(ClipboardType: TClipboardType;
var
DataStream, BufferStream: TStream;
Bitmap: TBitmap;
{$IFDEF WindowsUnicodeSupport}
BufferWideString: widestring;
BufferString: ansistring;
{$ENDIF}
begin
DataStream := TMemoryStream.Create;
BufferStream := TMemoryStream.Create;