paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 00:54:03 +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 Colors: array[0..1] of Cardinal; // reserve extra color for mono bitmaps
end; end;
BitsPtr: Pointer; BitsPtr: Pointer;
DataSize: Integer; DataSize: PtrUInt;
Align: Byte; Align: Byte;
begin begin
Result := False; Result := False;

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

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