paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 08:41:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

Win32: Remove Windows 9x specific code, part 4 (less hints).

Browse Source 
git-svn-id: trunk@50773 -
This commit is contained in:
bart 2015-12-13 17:07:31 +00:00
parent 2ab84755d1
commit 36c58a9b68
4 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1025,7 +1025,6 @@ var
L: LongWord; L: LongWord;
I, C: Integer; I, C: Integer;
DropForm: TWinControl; DropForm: TWinControl;
AnsiBuffer: string;
WideBuffer: WideString; WideBuffer: WideString;
begin begin
Drop := HDROP(WParam); Drop := HDROP(WParam);

1
lcl/interfaces/win32/win32listsl.inc
View File

@ -147,7 +147,6 @@ end;
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
function TWin32ListStringList.Get(Index: Integer): String; function TWin32ListStringList.Get(Index: Integer): String;
Var Var
s: string;
w: widestring; w: widestring;
begin begin
if (Index < 0) Or (Index >= Count) then if (Index < 0) Or (Index >= Count) then

1
lcl/interfaces/win32/win32object.inc
View File

@ -585,7 +585,6 @@ end;
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
function TWin32WidgetSet.WinRegister: Boolean; function TWin32WidgetSet.WinRegister: Boolean;
var var
WindowClass: WndClass;
WindowClassW: WndClassW; WindowClassW: WndClassW;
begin begin
with WindowClassW do with WindowClassW do

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

@ -1271,7 +1271,6 @@ function TWin32WidgetSet.EnumFontFamiliesEx(DC: HDC; lpLogFont: PLogFont;
var var
FontName: String; FontName: String;
LFW: LogFontW; LFW: LogFontW;
LFA: LogFontA absolute LFW;
Rec: TProcRedirRec; Rec: TProcRedirRec;
begin begin
FontName := lpLogFont^.lfFaceName; FontName := lpLogFont^.lfFaceName;
@ -2037,7 +2036,6 @@ function TWin32WidgetSet.GetTextExtentExPoint(DC: HDC; Str: PChar;
Count, MaxWidth: Integer; MaxCount, PartialWidths: PInteger; var Size: TSize): Boolean; Count, MaxWidth: Integer; MaxCount, PartialWidths: PInteger; var Size: TSize): Boolean;
var var
LCLStr: string; LCLStr: string;
s: AnsiString;
w: WideString; w: WideString;
begin begin
// use temp buffer, if count is set, there might be no null terminator // use temp buffer, if count is set, there might be no null terminator