paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 08:20:35 +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;
I, C: Integer;
DropForm: TWinControl;
AnsiBuffer: string;
WideBuffer: WideString;
begin
Drop := HDROP(WParam);

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

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

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

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

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

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