TLabel und Tabs

[mschaefer]

Hallo zusammen,

bevor ich meine TLabel Komponente mit tabulierter Textausgabe zusammenbaue gibts hier einfach mal die Txtausgabe mit Tabs auf
dem Formularcanva.
Um das folgende Beispiel auszupropbieren braucht man ein Formular mit
einem Button und zwei Edit-Komponenten. Die Routine liegt dann im
OnClick Ereignis des Buttons


In Edit1.Text würde zum Beispiel stehen : 'Col1 \t Col2 \t Col3'
In Edit2.Text sind die Tabs als String : '60,160,310'

Delphi-Quellcode:

 procedure TForm1.Button1Click(Sender: TObject);
                     var
                         Rect       : TRect;
                         tabPos, i  : integer;
                         TabPixels  : array[1..10] of integer;
                         L_Caption  : string;
                         L_Tabs     : string;
                     begin
                       L_Caption := Edit1.Text;
                       L_Tabs    := Edit2.Text;

                       { Set Tabs       }
                       i := 1;
                       while Pos(',',L_Tabs) > 0 do
                       begin
                           TabPixels[i] := strtoint(  
                           copy(L_Tabs,1,Pred(Pos(',',L_Tabs ))));
                           Delete(L_Tabs,1,(Pos(',',L_Tabs)));
                           inc(i);
                       end;
                       TabPixels[i] := strtoint( L_Tabs );
                       L_Tabs := '';

                       { Exchange \t to #9 }
                       tabPos := Pos( '\t', L_Caption);
                       while tabPos > 0 do
                       begin
                         Delete( L_Caption,succ(tabPos),1 );
                         L_Caption[tabPos] := #9;
                         tabPos := Pos( '\t', L_Caption);
                       end;

                       { Clear Canvas }
                       Canvas.Brush.Color := Color;
                       Rect.Left := 0;
                       Rect.Top := 0;
                       Rect.Right := Width;
                       Rect.Bottom := Height;
                       Canvas.FillRect(Rect);

                       { Write Text }

                       TabbedTextOut(Canvas.handle, 0, 10,
                                     PChar(L_Caption ),
                                     length(L_Caption),
                                     i,
                                     TabPixels[1], 0);
                     end;

Einen Restriktion besteht in der Arraydefinition wodurch die Anzahl der zu setzenden Tabs begrenzt ist. Würde mich freuen, wenn da jemand eine Idee hat wie man dies auflösen könnte. Man muß allerdings dabei ein Auge auf die TabbedTextOut Funktion haben...

Viele Grüße aus der Stadt an der Leine
// Martin

[edit=sakura]Delphi-Tags eingefügt[/edit]