Changeset 214 for trunk/Components/MultiColumnListBox.pas

Timestamp:

Jun 13, 2007, 8:33:51 PM (18 years ago)

Author:

RBRi

Message:

using StringUtilsUnit

File:

• trunk/Components/MultiColumnListBox.pas (modified) (5 diffs)

trunk/Components/MultiColumnListBox.pas

@@ -175 +175 @@
 
 uses
-  ACLStringUtility;
+  StringUtilsUnit;
   
 { TMultiColumnListBox }
@@ -292 +292 @@
   Dest: TRect;
   LineClipRect: TRect;
+  tmpColumns : TStringList;
+  i : longint;
 begin
   LineClipRect := FListBox.Canvas.ClipRect;
@@ -317 +319 @@
   end;
 
-  while Line <> '' do
+  tmpColumns := TStringList.Create;
+  StrExtractStrings(tmpColumns, Line, [#9], #0);
+
+  for i := 0 to tmpColumns.Count - 1 do
   begin
-    ItemToDraw := ExtractNextValue( Line,
-                                   #9 );
+    ItemToDraw := tmpColumns[i];
     if ColumnIndex < FHeader.Sections.Count then
       ColumnWidth := FHeader.Sections[ ColumnIndex ].Width
@@ -349 +353 @@
         end
         else
+        begin
+          tmpColumns.Destroy;
           raise Exception.Create( 'Bitmap index out of range in MultiColumnListBox' )
+        end
       else
+      begin
+        tmpColumns.Destroy;
         raise Exception.Create( 'No imagelist assigned in MultiColumnListBox' );
-
+      end
     end
     else
@@ -362 +371 @@
     inc( ColumnIndex );
   end;
+  tmpColumns.Destroy;
 end;