From 2b2627a234c056c1e08cf8d0a68da909eef998e1 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Tue, 18 Dec 2007 14:22:14 +0000
Subject: [PATCH] fix compilation of wince

git-svn-id: trunk@13376 -
---
 lcl/interfaces/wince/wincelistsl.inc    | 6 +++---
 lcl/interfaces/wince/wincewschecklst.pp | 5 +++--
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/lcl/interfaces/wince/wincelistsl.inc b/lcl/interfaces/wince/wincelistsl.inc
index 663cf031c9..1678e35e51 100644
--- a/lcl/interfaces/wince/wincelistsl.inc
+++ b/lcl/interfaces/wince/wincelistsl.inc
@@ -398,7 +398,7 @@ function TWinCECheckListBoxStrings.GetState(AIndex: Integer): TCheckBoxState;
 var
   Data: PWinCECheckListBoxItemRecord;
 begin
-  Data := GetItemRecord(Index, false);
+  Data := GetItemRecord(AIndex, False);
   Result := Data^.State
 end;
 
@@ -426,9 +426,9 @@ procedure TWinCECheckListBoxStrings.SetState(AIndex: Integer;
 var
   ItemRecord: PWinCECheckListBoxItemRecord;
 begin
-  ItemRecord := GetItemRecord(Index, true);
+  ItemRecord := GetItemRecord(AIndex, True);
   ItemRecord^.State := AValue;
-  SetItemRecord(Index, ItemRecord);
+  SetItemRecord(AIndex, ItemRecord);
 end;
 
 procedure TWinCECheckListBoxStrings.Clear;
diff --git a/lcl/interfaces/wince/wincewschecklst.pp b/lcl/interfaces/wince/wincewschecklst.pp
index 350a0c19c9..27251a12d1 100644
--- a/lcl/interfaces/wince/wincewschecklst.pp
+++ b/lcl/interfaces/wince/wincewschecklst.pp
@@ -46,6 +46,7 @@ type
   private
   protected
   public
+    class function GetStrings(const ACustomListBox: TCustomListBox): TStrings; override;
     class function  GetState(const ACheckListBox: TCustomCheckListBox;
       const AIndex: integer): TCheckBoxState; override;
     class procedure SetState(const ACheckListBox: TCustomCheckListBox;
@@ -55,7 +56,7 @@ type
 
 implementation
 
-class function  TWinCEWSCustomCheckListBox.GetStrings(const ACustomListBox: TCustomListBox): TStrings;
+class function TWinCEWSCustomCheckListBox.GetStrings(const ACustomListBox: TCustomListBox): TStrings;
 var
   Handle: HWND;
 begin
@@ -78,7 +79,7 @@ var
   SizeRect: Windows.RECT;
   Handle: HWND;
 begin
-  TWinCECheckListBoxStrings(ACheckListBox.Items).State[AIndex] := AChecked;
+  TWinCECheckListBoxStrings(ACheckListBox.Items).State[AIndex] := AState;
 
   // redraw control
   Handle := ACheckListBox.Handle;