Raportowanie Rave problem.

0

Witam serdecznie.

Wlasnie pisze aplikacje, ktora korzysta z raportowania w technologii
Rave. Calosc opiera sie na generowaniu raportów z uzyciem kodu bez
narzedzia VisualDesigner.

Moj problem jest nastepujacy :

Mam dwie kolumny stworzone przy uzyciu SetTab w pierwszej sa
identyfikatory w drugiej odpowiadajace im wartosci. Wszystko wyglada
jak nalezy do chwili, gdy w drugiej kolumnie tekst sie nie miesci wtedy
zostaje uciety. No i moje pytanie brzmi jak sprawic aby tekst nie
mieszczacy sie w kolumnie byl zawijany do nastepnej linii w tej
kolumnie (cos na ksztalt WordWrap w labelach) ?

0

Zrobiłem po swojemu :) Nie jest to może zbyt eleganckie rozwiązanie ale działa. Procedurka wypełnia dwukolumnowy układ danymi [pierwszy parametr to identyfikator pozycji drugi wartosc pozycji trzeci raport dla ktorego dodac pozycję :
[code]
Procedure WO(Ident,Value:String;BR:TBaseReport);//WriteOne
var I:Integer;
PartB:String;
Begin
If Value<>'' then
Begin
PartB:='';

If Length(Value)>43 then
Begin
 For I:=35 DownTo 1 do If Value[I]=' ' then
 Begin
  PartB:=Copy(Value,I,Length(Value)-I+1);
  Delete(Value,I,Length(Value)-I+1);
  Break;
 End;
End;

BR.NewLine;
 BR.Bold:=False;
BR.PrintTab(Ident);
 BR.Bold:=True;
BR.PrintTab(Value);

If PartB<>'' then
Begin
 BR.NewLine;
  BR.Bold:=False;
 BR.PrintTab(' ');
  BR.Bold:=True;
 BR.PrintTab(PartB);
End;

End;
End;
[/code]

1 użytkowników online, w tym zalogowanych: 0, gości: 1