From 13f820e23bb3894104a907b7ce861f53f406523a Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Sun, 18 Aug 2002 08:54:26 +0000
Subject: [PATCH] MG: started customdrawitem

git-svn-id: trunk@2809 -
---
 lcl/interfaces/gtk/gtklistsl.inc | 23 ++++++++++++++++++-----
 1 file changed, 18 insertions(+), 5 deletions(-)

diff --git a/lcl/interfaces/gtk/gtklistsl.inc b/lcl/interfaces/gtk/gtklistsl.inc
index 0eda71df98..ceb027ed2d 100644
--- a/lcl/interfaces/gtk/gtklistsl.inc
+++ b/lcl/interfaces/gtk/gtklistsl.inc
@@ -46,13 +46,23 @@ end;
 ------------------------------------------------------------------------------}
 function gtkListItemDrawAfterCB(Widget: PGtkWidget; area: PGDKRectangle;
   data: gPointer) : GBoolean; cdecl;
-//var
-  //Msg: TLM_;
+var
+  Msg: TLMDrawItems;
 begin
   Result:=true;
-  //writeln('gtkListItemDrawCB ');
   
-  //Result := DeliverMessage(Data, Msg);
+  exit;
+  
+  writeln('gtkListItemDrawCB ');
+  FillChar(Msg,SizeOf(Msg),0);
+  Msg.Msg:=CN_DrawItem;
+  New(Msg.DrawItemStruct);
+  try
+  
+    Result := DeliverMessage(Data, Msg)=0;
+  finally
+    Dispose(Msg.DrawItemStruct);
+  end;
 end;
 
 
@@ -126,7 +136,7 @@ begin
   if Source is TStrings then begin
     Clear;
     for Counter:= TStrings(Source).Count - 1 downto 0 do begin
-      Insert(0, TStrings(Source)[Counter]);
+      InsertObject(0, TStrings(Source)[Counter],TStrings(Source).Objects[Counter]);
     end;
   end else inherited Assign(Source);
 //writeln('[TGtkListStringList.Assign] END ',Source.Classname);
@@ -426,6 +436,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.9  2002/10/03 18:04:46  lazarus
+  MG: started customdrawitem
+
   Revision 1.8  2002/10/03 14:47:31  lazarus
   MG: added TComboBox.OnPopup+OnCloseUp+ItemWidth