Lex
Lex
Подробная информация
- Имя пользователя
- Lex
- Присоединился
- Посещений
- 0
- Был на сайте
- Группы
- Members
Комментарии
-
Как вариант в обработчике OnBeforePrint напиши что-то типа написал: if > 1 then begin if mod 2 =0 then begin // next-ами в цикле перемещаешься на N/2 + запись end else begin // prior-ами в цикле перемещаешься на …
-
сделал простенький проект: 1. StoredProc tmpProc создает и заполняет таблицу aaa(i int identity) 2. ADOQuery1.Sql = exec tmpProc select * from aaa where I=:I 3. скрипте отчета begin ADOQuery1.Active := False; ADOQuery1.Params[0].V…
-
если я все правильно понял то только ручками в скрипте
-
поставь последнию 3.19 с того времени многое исправленно
-
Версия FR ?
-
Это понятно что дельфя округляет до четного но в любой ситуации она это сделает одинаково, а почему-то фаст по разнозному округляет одно и тоже число.
-
попробуй смещать Engine.CurY на нужное количество пикселей
-
каким образрм в скрипте создаються пустые строчки ?
-
написал: то можно будет использовать значения null ? Именно так, но это стоит делать лишь в том случае когда для тебя есть разница между Null и '' или 0 датой и т.д. Но при этом тебе прейдеться обрабатывать все поля на Null, а то может выл…
-
скорее всего у тебя в frxReport.EngineOptions.ConvertNulls = True
-
procedure ColumnHeader_OnBeforePrint(Sender: TfrxComponent); begin TfrxColumnHeader(Sender).Visible := True; end;
-
попробуй так: Memo1.Text:='[<переменная1>+<переменная2>] ' это в том случае если тебе нужно записать саму формулу в memo или Memo1.Text:=IntToStr(<переменная1>+<переменная2>); если значение.
-
А что-нибуть типа masterband.OnAfterCalcHeight := 'MasterData1OnAfterCalcHeight' есть ?
-
попробуй так: procedure MasterData1OnAfterCalcHeight(Sender: TfrxComponent); begin if Engine.FreeSpace < MasterData1.Hieght then begin {Твой код} end; end;
-
WordBreak - по слогам WordWrap - по словам
-
Если она у тебя на всю ширину страницу то зачем тебе ее маштобировать?
-
Я не силен в Си но написал: int c=Cross->ColCount(); w=0; for(i=0;iColumnMemos->Width; double k=double(Cross->Width)/w; //Cross Allign=Client for(i=0;iColumnMemos->Width*=k; в ввыделенной стоке стоило использовать не Cross…
-
if Engine.FreeSpace < pgMasterData.Height then begin mePolis.Frame.Typ:=ftBottom; ... end else begin mePolis.Frame.Typ:=0; ... end;
-
так у тебя ж отработало написал: if Engine.FreeSpace > pgMasterData.Height then begin mePolis.Frame.Typ:=0; ... end else begin mePolis.Frame.Typ:=ftBottom; ... end;
-
Не вижу ни чего странного. На первой же записи в наборе данных ты устанавливаешь Frame.Typ:=0 и все.
-
var myQuery: TfrxBDEQuery; ... myQuery := (frxReport.FindObject('myQuery') as TfrxBDEQuery); ...
-
Вообще первоночально был именно второй вариант, потом внесли потдержку первого для более простого перевода отчетов с fr 2.xx, а потом сново отказались.
-
попробуй так [-]
-
Вышли простой отчет на Valeev@proburo.ru
-
Попробывал простенький пример (FR 3.18) все работает, может ты забыл указать FlowTo для второй мемки.
-
var myMemo:TfrxMemoView; begin .................. frxReport1.ScriptText.Clear; frxReport1.ScriptText.Add('procedure Memo1OnBeforePrint(Sender: TfrxComponent); begin <твой код> end; begin end.'); myMemo.OnBeforePrint:='Memo1OnBeforePr…
-
Set('DatePeriod', 'месяц')
-
Возможно onAfterCalcHeight невызывается когда Band не видим, попробуй тоже самое написать в onBeforePrint.
-
А если шапок вообще нет то: procedure MasterData1OnAfterPrint(Sender: TfrxComponent); begin if mod 10 = 0 then Engine.NewPage else if mod 5 = 0 then Engine.CurY + 10; end;
-
В обработчике OnAfterPrint мастер бенда напиши следующий код procedure MasterData1OnAfterPrint(Sender: TfrxComponent); begin if mod 5 = 0 then Engine.NewPage end;