По ширине бэнда
Здраствуйте, не так давно начал изучение FastReport'a, возникла такая проблема:
Я в ран-тайме создаю экземпляры класса TfrxMemoView, мне нужно чтобы они выравнивались по ширине всего бэнда и шли в том порядке в котором я я их создаю.
Вот код
Я в ран-тайме создаю экземпляры класса TfrxMemoView, мне нужно чтобы они выравнивались по ширине всего бэнда и шли в том порядке в котором я я их создаю.
Вот код
procedure SomeProc;
var
Memo: TfrxMemoView;
I: Integer;
begin
for I := 0 to 3 do
begin
Memo := TfrxMemoView.Create(frxReport1.FindObject('ReportTitle1'));
Memo.CreateUniqueName;
Memo.Top := 0;
Memo.Height := 20;
Memo.Width := 100;
Memo.Text := 'Memo ' + IntToStr(I);
Memo.Frame.Typ := [ftLeft, ftTop, ftLeft, ftBottom];
Memo.Align := baWidth;
end;
frxReport1.ShowReport;
end;
Комментарии