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

fixed compilation

Browse Source 
git-svn-id: trunk@9291 -
This commit is contained in:
vincents 2006-05-16 21:41:21 +00:00
parent 675ab2b3f5
commit 1dc696deef
2 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/wince/interfaces.pp
View File

@ -25,7 +25,7 @@
unit Interfaces;
{$mode objfpc}{$H+}
{$define OldToolbar}
//{$define OldToolbar}
interface
@ -43,4 +43,4 @@ initialization
finalization
FreeWidgetSet;
end.
end.

20
lcl/interfaces/wince/wincewscomctrls.pp
View File

@ -297,9 +297,9 @@ function TWinCEWSStatusBar.CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND;
var
Params: TCreateWindowExParams;
init : INITCOMMONCONTROLSEX;
init : TINITCOMMONCONTROLSEX;
begin
init.dwSize := Sizeof(INITCOMMONCONTROLSEX);
init.dwSize := Sizeof(TINITCOMMONCONTROLSEX);
init.dwICC := ICC_BAR_CLASSES;
InitCommonControlsEx_(@init);
// general initialization of Params
@ -388,9 +388,9 @@ function TWinCEWSProgressBar.CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND;
var
Params: TCreateWindowExParams;
init : INITCOMMONCONTROLSEX;
init : TINITCOMMONCONTROLSEX;
begin
init.dwSize := Sizeof(INITCOMMONCONTROLSEX);
init.dwSize := Sizeof(TINITCOMMONCONTROLSEX);
init.dwICC := ICC_PROGRESS_CLASS;
InitCommonControlsEx_(@init);
// general initialization of Params
@ -446,14 +446,14 @@ end;
{ TWinCEWSToolbar}
{$IFDEF OldToolbar}
function TWinCEWSToolBar.CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND;
var
Params: TCreateWindowExParams;
init : INITCOMMONCONTROLSEX;
init : TINITCOMMONCONTROLSEX;
begin
init.dwSize := Sizeof(INITCOMMONCONTROLSEX);
init.dwSize := Sizeof(TINITCOMMONCONTROLSEX);
init.dwICC := ICC_BAR_CLASSES;
InitCommonControlsEx_(@init);
// general initialization of Params
@ -520,7 +520,7 @@ begin
// TODO: code buggy, Index of button to delete ?!
SendMessage(AToolBar.Handle, TB_DELETEBUTTON, 0, 0);
end;
{$ENDIF}
{ TWinCEWSTrackBar }
@ -528,9 +528,9 @@ function TWinCEWSTrackBar.CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND;
var
Params: TCreateWindowExParams;
init : INITCOMMONCONTROLSEX;
init : TINITCOMMONCONTROLSEX;
begin
init.dwSize := Sizeof(INITCOMMONCONTROLSEX);
init.dwSize := Sizeof(TINITCOMMONCONTROLSEX);
init.dwICC := ICC_BAR_CLASSES;
InitCommonControlsEx_(@init);
// general initialization of Params