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

decrease amount of win32 interface hints

Browse Source 
git-svn-id: trunk@14241 -
This commit is contained in:
paul 2008-02-25 07:26:46 +00:00
parent d303b5d6d5
commit e43614c705
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/win32/win32trayicon.inc
View File

@ -140,9 +140,11 @@ end;
class function TWin32WSCustomTrayIcon.Show(const ATrayIcon: TCustomTrayIcon): Boolean;
var
tnida: TNotifyIconDataA;
{$ifdef WindowsUnicodeSupport}
tnidw: TNotifyIconDataW;
AnsiBuffer: ansistring;
WideBuffer: widestring;
{$endif}
Window: Windows.TWndClassEx;
begin
vwsTrayIcon := ATrayIcon;
@ -240,9 +242,11 @@ end;
class procedure TWin32WSCustomTrayIcon.InternalUpdate(const ATrayIcon: TCustomTrayIcon);
var
tnida: TNotifyIconDataA;
{$ifdef WindowsUnicodeSupport}
tnidw: TNotifyIconDataW;
AnsiBuffer: ansistring;
WideBuffer: widestring;
{$endif}
begin
{$ifdef WindowsUnicodeSupport}
if UnicodeEnabledOS then

2
lcl/interfaces/win32/win32wsstdctrls.pp
View File

@ -899,8 +899,10 @@ end;
class procedure TWin32WSCustomComboBox.SetText(const AWinControl: TWinControl; const AText: string);
var
Handle: HWND;
{$ifdef WindowsUnicodeSupport}
AnsiBuffer: ansistring;
WideBuffer: widestring;
{$endif}
begin
Assert(False, Format('Trace:TWin32WSCustomComboBox.SetText --> %S', [AText]));
Handle := AWinControl.Handle;