Как получить BarCodeView Bounds после установки его автоматического размера? - PullRequest
Новая
       13

Как получить BarCodeView Bounds после установки его автоматического размера?

1 голос
/ 12 марта 2019

Я создаю BarCodeView в Delphi во время выполнения, а затем добавляю его в ReportPage в TfrxReport.

штрих-код отображается очень хорошо, но когда я пытаюсь получить его ширину, я получаю 0, даже если он создан и явно длиннее 0.

вот код.

1007 **; * * 1008

BarCode:= TfrxBarCodeView.Create(Page); BarCode.Name:='Codigo'; 

BarCode.WideBarRatio:=2;
BarCode.Zoom:=1;
BarCode Font.Size:=6;
BarCode.ShowText:= True;
BarCode.BarType:= bcCodeEAN128;

BarCode.Text:= 'Something123';

BarCode.AutoSize:=True; BarCode.Height:= 50; BarCode.Top:= 5; BarCode.Left:= 5;

Теперь, если я попытаюсь проверить свойства вида штрих-кода, я получу 0 из его свойства width, даже если я вызову следующее:

BarCode:=Report.FindComponent('Codigo') as TfrxBarCodeView;

при отображении такого сообщения:
ShowMessage('code width: '+BarCode.Width.ToString);

Я получаю 0, даже если BarCodeView нормально отображается в отчете.

есть идеи, как правильно настроить эти свойства с включенным автоматическим изменением размера и созданием штрих-кода во время выполнения из Delphi?

...