acpekttov писав:Підскажіть новічку, що треба зробити в отчёте Акт приёма передачи межевих знаків 2013, щоб масштаб для кожного межевого знака був різним
1. в отч.форме создаете диалоговое окно. Его свойству Visible указываете значение False
2. добавляете на диалог. окно Текстовое поле (Edit1) и кнопку Button1.
3. кнопки Button1, в свойстве ModelResult указываете значение mrOK.
4. вместо процедуры procedure Picture2OnBeforePrint(Sender: TfrxComponent); заменяете код на
Код: Виділити все
procedure Picture2OnBeforePrint(Sender: TfrxComponent);
var
ScaleMin, M : double;
begin
DialogPage1.Visible := True;
DialogPage1.Showmodal;
with Picture2, Engine do
begin
DrawObject();
GisShift(<MejnZN."X">, <MejnZN."Y">);
M :=StrToFloat( Edit1.Text);
If M > 0 then
ScaleMin := StrToFloat(Scale) * M
else
ScaleMin := 0;
DrawWmf(Width * 10 / (2560/6773), Height * 10 /(2560/6773), ScaleMin);
Loadfromfile( StartPath +'\gis.wmf')
end;
end;