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]