Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Rave Reports 
:(
    Опции темы
Baton
Дата 8.10.2003, 17:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 8.10.2003

Репутация: нет
Всего: нет
Вопрос: Как обратиться к компоненте Rave из приложения Delphi?
Желательно пример

Это сообщение отредактировал(а) Baton - 8.10.2003, 17:51
PM MAIL   Вверх
Baton
Дата 8.10.2003, 17:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 8.10.2003

Репутация: нет
Всего: нет
Спасите мужики


Это сообщение отредактировал(а) Baton - 8.10.2003, 18:09
PM MAIL   Вверх
Stadminz
Дата 15.9.2004, 10:06 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
http://www.kib.ru/lib/resources/src19/Secrets_Delphi_7_Book/
Юзай, брат
Добавлено @ 10:07
Не поздновато, нет?
  Вверх
Guest
Дата 15.9.2004, 17:14 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
в етои книге много не наживешся.

не знаю как прикрепить фаил, по етому пишу в таком виде

посмотри тут
podgoretsky.com/
там поищи два документа
RaveUserGuide-ru
и
RaveDevGuide-ru

еще поиши в нете статью "Работа с отчетами Rave Report в режиме RunTime" ссылку не нащел.

и ещо моя процедура (может приголится?)
Код
procedure TFStatistic.DinamicReportPrint(S1: string; S2: string);
var
 WHERE: string;
 I: integer;
 J: integer;
 K: integer;
 COLUMNNUMBER: integer;

 LEFTSTART: real;
 COLUMNWIDTH: real;
 COLUMNHEIGHT: real;

 DETAILECOUNT: array of Integer;

 LIST: TRaveComponentList;
begin

begin
 COLUMNNUMBER := 1;
 SetLength(DETAILECOUNT, 1);
 LEFTSTART := 1;
 COLUMNWIDTH := 0.5;
 COLUMNHEIGHT := 0.2;
end;

 RPDinamic.New;
 LIST := TRaveComponentList.Create;
 LIST.Add(RPDinamic.ProjMan.ActiveReport.FirstPage);
 RPDinamic.ProjMan.ActiveReport.PageList := LIST;

begin
 with TRaveDataView.Create(RPDinamic.ProjMan) do
 begin
   Name := 'DVDinamic';
   Parent := RPDinamic.ProjMan;
   ConnectionName := 'RvDSCDinamic';
 end;
 RPDinamic.ProjMan.DataObjectList.Add(TRaveDataView(RPDinamic.ProjMan.FindRaveComponent('DVDinamic', RPDinamic.ProjMan)));
 for I := 0 to DM.QDinamic.FieldCount - 1 do
 begin
   if DM.QDinamic.Fields.Fields[I].DataType = ftString  then
   begin
     with TRaveStringField.Create(nil) do
     begin
       FieldName := DM.QDinamic.Fields.Fields[I].FieldName;
       Parent := RPDinamic.ProjMan.FindRaveComponent('DVDinamic', RPDinamic.ProjMan);
       Name := 'DVDinamic_' + IntToStr(I);
     end;
   end
   else
   if DM.QDinamic.Fields.Fields[I].DataType = ftInteger then
   begin
     with TRaveIntegerField.Create(nil) do
     begin
       FieldName := DM.QDinamic.Fields.Fields[I].FieldName;
       Parent := RPDinamic.ProjMan.FindRaveComponent('DVDinamic', RPDinamic.ProjMan);
       Name := 'DVDinamic_' + IntToStr(I);
     end;
   end;
 end;
end;

begin
 J := 0;
 for I := 0 to DM.QDinamic.FieldCount - 1 do
 begin
   if Copy(DM.QDinamic.Fields.Fields[I].FieldName, 1,Pos('|', DM.QDinamic.Fields.Fields[I].FieldName) - 1) <> '' then
   if (Copy(DM.QDinamic.Fields.Fields[I].FieldName, 1,Pos('|', DM.QDinamic.Fields.Fields[I].FieldName) - 1) =
                      Copy(DM.QDinamic.Fields.Fields[I - 1].FieldName, 1,Pos('|', DM.QDinamic.Fields.Fields[I - 1].FieldName) - 1)) or
                      (Copy(DM.QDinamic.Fields.Fields[I - 1].FieldName, 1,Pos('|', DM.QDinamic.Fields.Fields[I - 1].FieldName) - 1) = '') then
   begin
     inc(DETAILECOUNT[J]);
   end
   else
   begin
     inc(J);
     SetLength(DETAILECOUNT, J + 1);
     DETAILECOUNT[J] := 1;
   end;
 end;
end;

begin
 for I := 0 to High(DETAILECOUNT) do
 begin
   if (LEFTSTART + DETAILECOUNT[I] * COLUMNWIDTH) > (TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(RPDinamic.ProjMan.ActiveReport.ChildCount))).PageWidth - 1) then
   begin
     RPDinamic.ProjMan.ActiveReport.NewPage;
     RPDinamic.ProjMan.ActiveReport.PageList.Add(TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(RPDinamic.ProjMan.ActiveReport.ChildCount))));
     LEFTSTART := 1;
     LEFTSTART := LEFTSTART + DETAILECOUNT[I] * COLUMNWIDTH;
   end
   else
     LEFTSTART := LEFTSTART + DETAILECOUNT[I] * COLUMNWIDTH;
 end;
 if (LEFTSTART + 1) > (TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(RPDinamic.ProjMan.ActiveReport.ChildCount))).PageWidth - 1) then
 begin
   RPDinamic.ProjMan.ActiveReport.NewPage;
   RPDinamic.ProjMan.ActiveReport.PageList.Add(TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(RPDinamic.ProjMan.ActiveReport.ChildCount))));
 end;
 LEFTSTART := 1;
end;

begin
 for I := 1 to RPDinamic.ProjMan.ActiveReport.ChildCount do
 begin
   TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(I))).CreateChild(TRaveRegion, 'Region',
              0.5, 0.5, TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(I))).PageWidth - 1,
              TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(I))).PageHeight - 1);
   if TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(I))) =
                 TRavePage(RPDinamic.ProjMan.ActiveReport.FirstPage) then
   begin
     RPDinamic.ProjMan.FindRaveComponent('Region',RPDinamic.ProjMan.ActiveReport.FirstPage).CreateChild(TRaveBand,
                      'BTaitle', 0, 0, 0, 1.8);
     TRaveBand(RPDinamic.ProjMan.FindRaveComponent('BTaitle', RPDinamic.ProjMan.ActiveReport.FirstPage)).BandStyle.PrintLoc :=
                      TRaveBand(RPDinamic.ProjMan.FindRaveComponent('BTaitle', RPDinamic.ProjMan.ActiveReport.FirstPage)).BandStyle.PrintLoc + [plBodyHeader];
     with TRaveText.Create(RPDinamic.ProjMan.FindRaveComponent('BTaitle', RPDinamic.ProjMan.ActiveReport.FirstPage)) do
     begin
       Name := 'Taitle1';
       Parent :=  RPDinamic.ProjMan.FindRaveComponent('BTaitle', RPDinamic.ProjMan.ActiveReport.FirstPage);
       Left := 0;
       Top := 0;
       Width := TRaveBand(Parent).Width;
       FontJustify := pjCenter;
       Text := 'À Í Â À Ò É Û É';
       Font.Name := 'KoberidzeM';
       Font.Style := Font.Style + [fsBold];
       Font.Size := 36;
     end;
     with TRaveText.Create(RPDinamic.ProjMan.FindRaveComponent('BTaitle', RPDinamic.ProjMan.ActiveReport.FirstPage)) do
     begin
       Name := 'Taitle2';
       Parent :=  RPDinamic.ProjMan.FindRaveComponent('BTaitle', RPDinamic.ProjMan.ActiveReport.FirstPage);
       Left := 0;
      Top := 0.7;
      Width := TRaveBand(Parent).Width;
      FontJustify := pjCenter;
       Text := 'ÌÉÙÄÁÖËÉ ÐÀÝÉÄÍÔÄÁÉÓ ÒÀÏÃÄÍÏÁÀ';
       Font.Name := 'KoberidzeM';
      Font.Size := 15;
     end;
     with TRaveText.Create(RPDinamic.ProjMan.FindRaveComponent('BTaitle', RPDinamic.ProjMan.ActiveReport.FirstPage)) do
     begin
       Name := 'Taitle3';
       Parent :=  RPDinamic.ProjMan.FindRaveComponent('BTaitle', RPDinamic.ProjMan.ActiveReport.FirstPage);
       Left := 0;
       Top := 1;
       Width := TRaveBand(Parent).Width;
       FontJustify := pjCenter;
       Text := S1;
       Font.Name := 'KoberidzeN';
       Font.Size := 15;
     end;
     with TRaveText.Create(RPDinamic.ProjMan.FindRaveComponent('BTaitle', RPDinamic.ProjMan.ActiveReport.FirstPage)) do
     begin
       Name := 'Taitle4';
       Parent :=  RPDinamic.ProjMan.FindRaveComponent('BTaitle', RPDinamic. ProjMan.ActiveReport.FirstPage);
       Left := 0;
       Top := 1.3;
       Width := TRaveBand(Parent).Width - 0.5;
       FontJustify := pjRight;
       Text :=  S2;
       Font.Name := 'KoberidzeN';
       Font.Size := 15;
     end;
     with TRaveHLine.Create(RPDinamic.ProjMan.FindRaveComponent('BTaitle', RPDinamic.ProjMan.ActiveReport.FirstPage)) do
     begin
       Parent :=  RPDinamic.ProjMan.FindRaveComponent('BTaitle', RPDinamic.ProjMan.ActiveReport.FirstPage);
       Left := 0;
       Top := 1.6;
       Width := TRaveBand(Parent).Width;
       LineWidth := 2;
       LineWidthType := wtPoints;
       Name := 'TaitleLine';
     end;
   end;
   RPDinamic.ProjMan.FindRaveComponent('Region', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(I)))).
                                   CreateChild(TRaveBand, 'BColumnHeader', 0, 0, 0, 4);
   RPDinamic.ProjMan.FindRaveComponent('Region', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(I)))).
                                   CreateChild(TRaveDataBand, 'DBData', 0, 0, 0, 0);
   RPDinamic.ProjMan.FindRaveComponent('Region', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(I)))).
                                   CreateChild(TRaveBand, 'BSum', 0, 0, 0, 0);
   TRaveBand(RPDinamic.ProjMan.FindRaveComponent('BTaitle', RPDinamic.ProjMan.ActiveReport.FirstPage)).ControllerBand :=
                                   TRaveDataBand(RPDinamic.ProjMan.FindRaveComponent('DBData', RPDinamic.ProjMan.ActiveReport.FirstPage));
   TRaveBand(RPDinamic.ProjMan.FindRaveComponent('BColumnHeader', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(I))))).
             BandStyle.PrintLoc :=TRaveBand(RPDinamic.ProjMan.FindRaveComponent('BColumnHeader', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(I))))).
             BandStyle.PrintLoc + [plBodyHeader];
   TRaveBand(RPDinamic.ProjMan.FindRaveComponent('BColumnHeader', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(I))))).
             BandStyle.PrintOcc := TRaveBand(RPDinamic.ProjMan.FindRaveComponent('BColumnHeader', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(I))))).
             BandStyle.PrintOcc + [poNewPage];
   TRaveBand(RPDinamic.ProjMan.FindRaveComponent('BColumnHeader', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(I))))).
             ControllerBand := TRaveDataBand(RPDinamic.ProjMan.FindRaveComponent('DBData', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(I)))));
   TRaveBand(RPDinamic.ProjMan.FindRaveComponent('BSum', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(I))))).
             ControllerBand := TRaveDataBand(RPDinamic.ProjMan.FindRaveComponent('DBData', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(I)))));
   TRaveBand(RPDinamic.ProjMan.FindRaveComponent('BSum', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(I))))).
             BandStyle.PrintLoc := TRaveBand(RPDinamic.ProjMan.FindRaveComponent('BSum', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(I))))).
             BandStyle.PrintLoc + [plBodyFooter];
   TRaveDataBand(RPDinamic.ProjMan.FindRaveComponent('DBData', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(I))))).DataView :=
                        TRaveDataView(RPDinamic.ProjMan.FindRaveComponent('DVDinamic', RPDinamic.ProjMan));
   with TRaveDataText.Create(TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(I)))) do
   begin
     Name := 'Footer';
     Parent :=  TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(I)));
     Left := 0.5;
     Top := TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(I))).PageHeight - 0.5;
     Width := TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(I))).PageWidth - 1;
     FontJustify := pjRight;
     DataField := '''ÂÅÄÒÃÉ '' + Report.CurrentPage + ''  (ÓÖË '' + Report.TotalPages + '' ÂÅÄÒÃÉ )''';
     Font.Name := 'KoberidzeN';
     Font.Size := 9;
   end;
   with TRaveRectangle.Create(RPDinamic.ProjMan.FindRaveComponent('BColumnHeader', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(I))))) do
   begin
     Parent := RPDinamic.ProjMan.FindRaveComponent('BColumnHeader', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(I))));
     left := 0;
     Top := 0;
     Height := 4;
     Width := 1;
   end;
   with TRaveText.Create(RPDinamic.ProjMan.FindRaveComponent('BColumnHeader', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(I))))) do
   begin
     Parent := RPDinamic.ProjMan.FindRaveComponent('BColumnHeader', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(I))));
     Rotation := 90;
     FontJustify := pjCenter;
      Text := TRaveDataField(RPDinamic.ProjMan.FindRaveComponent('DVDinamic', RPDinamic.ProjMan).Child[(0)]).FullName;
     left := 1 / 2 - 1.9;
     Top := 2;
     Width := 3.8;
     Font.Name := 'KoberidzeN';
     Font.Size := 12;
   end;
   with TRaveRectangle.Create(RPDinamic.ProjMan.FindRaveComponent('DBData', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(I))))) do
   begin
     Parent := RPDinamic.ProjMan.FindRaveComponent('DBData', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(I))));
     left := 0;
     Top := 0;
     Height := COLUMNHEIGHT;
     Width := 1;
   end;
   with TRaveDataText.Create(RPDinamic.ProjMan.FindRaveComponent('DBData', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(I))))) do
   begin
     Parent := RPDinamic.ProjMan.FindRaveComponent('DBData', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(I))));
     FontJustify := pjCenter;
     DataView := TRaveBaseDataView(RPDinamic.ProjMan.FindRaveComponent('DVDinamic', RPDinamic.ProjMan));
     DataField := TRaveDataField(RPDinamic.ProjMan.FindRaveComponent('DVDinamic', RPDinamic.ProjMan).Child[0]).FieldName;
     left := 0;
     Top := 0.025;
     Width :=  1;
     Font.Name := 'KoberidzeN';
     Font.Size := 10;
   end;
 end;
end;

begin
 J := 1;
 for I := 0 to High(DETAILECOUNT) do
 begin
   if (LEFTSTART + DETAILECOUNT[I] * COLUMNWIDTH) > (TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(J))).PageWidth - 1) then
   begin
     inc(J);
     LEFTSTART := 1;
   end;
   begin
     with TRaveRectangle.Create(RPDinamic.ProjMan.FindRaveComponent('BColumnHeader', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(J))))) do
     begin
       Parent := RPDinamic.ProjMan.FindRaveComponent('BColumnHeader', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(J))));
       left := LEFTSTART;
       Top := 0;
       Height := 2;
       Width := DETAILECOUNT[I] * COLUMNWIDTH;
     end;
     with TRaveText.Create(RPDinamic.ProjMan.FindRaveComponent('BColumnHeader', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(J))))) do
     begin
       Parent := RPDinamic.ProjMan.FindRaveComponent('BColumnHeader', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(J))));
       Rotation := 90;
       FontJustify := pjCenter;
       Text := Copy(TRaveDataField(RPDinamic.ProjMan.FindRaveComponent('DVDinamic', RPDinamic.ProjMan).Child[COLUMNNUMBER]).FullName,
              1, Pos('|', TRaveDataField(RPDinamic.ProjMan.FindRaveComponent('DVDinamic', RPDinamic.ProjMan).Child[COLUMNNUMBER]).FullName) - 1);
       left := LEFTSTART + DETAILECOUNT[I] * COLUMNWIDTH / 2 - 0.95;
       Top := 0.9;
       Width := 1.9;
       Font.Name := 'KoberidzeN';
       Font.Size := 10;
     end;
     for K := 1 to DETAILECOUNT[I] do
     begin
       with TRaveRectangle.Create(RPDinamic.ProjMan.FindRaveComponent('BColumnHeader', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(J))))) do
       begin
         Parent := RPDinamic.ProjMan.FindRaveComponent('BColumnHeader',  TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(J))));
         left := LEFTSTART;
         Top := 2;
         Height := 2;
         Width := COLUMNWIDTH;
         if K = DETAILECOUNT[I] then
           FillColor := clYellow;
       end;
       with TRaveText.Create(RPDinamic.ProjMan.FindRaveComponent('BColumnHeader', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(J))))) do
       begin
         Parent := RPDinamic.ProjMan.FindRaveComponent('BColumnHeader', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(J))));
         FontJustify := pjCenter;
         Rotation := 90;
         Text := Copy(TRaveDataField(RPDinamic.ProjMan.FindRaveComponent('DVDinamic', RPDinamic.ProjMan).Child[COLUMNNUMBER]).FullName,
              Pos('|', TRaveDataField(RPDinamic.ProjMan.FindRaveComponent('DVDinamic', RPDinamic.ProjMan).Child[COLUMNNUMBER]).FullName) + 1,
              Length(TRaveDataField(RPDinamic.ProjMan.FindRaveComponent('DVDinamic', RPDinamic.ProjMan).Child[COLUMNNUMBER]).FullName) -
              Pos('|', TRaveDataField(RPDinamic.ProjMan.FindRaveComponent('DVDinamic', RPDinamic.ProjMan).Child[COLUMNNUMBER]).FullName));
         left := LEFTSTART + COLUMNWIDTH / 2 - 0.95;
         Top := 2.95;
         Width :=  1.9;
         Font.Name := 'KoberidzeN';
         Font.Size := 10;
       end;
       with TRaveRectangle.Create(RPDinamic.ProjMan.FindRaveComponent('DBData', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(J))))) do
       begin
         Parent := RPDinamic.ProjMan.FindRaveComponent('DBData', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(J))));
         left := LEFTSTART;
         Top := 0;
         Height := COLUMNHEIGHT;
         Width := COLUMNWIDTH;
         if K = DETAILECOUNT[I] then
           FillColor := clYellow;
       end;
       with TRaveDataText.Create(RPDinamic.ProjMan.FindRaveComponent('DBData',  TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(J))))) do
       begin
         Parent := RPDinamic.ProjMan.FindRaveComponent('DBData', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(J))));
         FontJustify := pjRight;
         DataView := TRaveBaseDataView(RPDinamic.ProjMan.FindRaveComponent('DVDinamic', RPDinamic.ProjMan));
         DataField := TRaveDataField(RPDinamic.ProjMan.FindRaveComponent('DVDinamic', RPDinamic.ProjMan).Child[COLUMNNUMBER]).FieldName;
         left := LEFTSTART + 0.01;
         Top := 0.025;
         Width :=  COLUMNWIDTH - 0.02;
         Font.Name := 'KoberidzeN';
         Font.Size := 10;
       end;
       with TRaveRectangle.Create(RPDinamic.ProjMan.FindRaveComponent('BSum', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(J))))) do
       begin
         Parent := RPDinamic.ProjMan.FindRaveComponent('BSum', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(J))));
         left := LEFTSTART;
         Top := 0;
         Height := COLUMNHEIGHT;
         Width := COLUMNWIDTH;
         if K = DETAILECOUNT[I] then
           FillColor := clYellow;
       end;
       with TRaveCalcText.Create(RPDinamic.ProjMan.FindRaveComponent('BSum',  TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(J))))) do
       begin
         Parent := RPDinamic.ProjMan.FindRaveComponent('BSum', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(J))));
         FontJustify := pjRight;
         CalcType := ctSum;
         Controller := RPDinamic.ProjMan.FindRaveComponent('DBData',  TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(J))));
         DataView := TRaveBaseDataView(RPDinamic.ProjMan.FindRaveComponent('DVDinamic', RPDinamic.ProjMan));
         DataField := TRaveDataField(RPDinamic.ProjMan.FindRaveComponent('DVDinamic', RPDinamic.ProjMan).Child[COLUMNNUMBER]).FieldName;
         left := LEFTSTART + 0.01;
         Top := 0.025;
         Width :=  COLUMNWIDTH - 0.02;
         Font.Name := 'KoberidzeN';
         Font.Size := 10;
       end;
       inc(COLUMNNUMBER);
       LEFTSTART := LEFTSTART + COLUMNWIDTH;
     end;
   end;
 end;
 if J < RPDinamic.ProjMan.ActiveReport.ChildCount then
 inc(J);
 begin
   with TRaveRectangle.Create(RPDinamic.ProjMan.FindRaveComponent('BColumnHeader', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(J))))) do
   begin
     Parent := RPDinamic.ProjMan.FindRaveComponent('BColumnHeader', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(J))));
     left := LEFTSTART;
     Top := 0;
     Height := 4;
     Width := 1;
     FillColor := clYellow;
   end;
   with TRaveText.Create(RPDinamic.ProjMan.FindRaveComponent('BColumnHeader', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(J))))) do
   begin
     Parent := RPDinamic.ProjMan.FindRaveComponent('BColumnHeader', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(J))));
     Rotation := 90;
     FontJustify := pjCenter;
     Text := TRaveDataField(RPDinamic.ProjMan.FindRaveComponent('DVDinamic', RPDinamic.ProjMan).Child[COLUMNNUMBER]).FullName;
     left := LEFTSTART + 1 / 2 - 1.9;
     Top := 2;
     Width := 3.8;
     Font.Name := 'KoberidzeN';
     Font.Size := 12;
   end;
   with TRaveRectangle.Create(RPDinamic.ProjMan.FindRaveComponent('DBData', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(J))))) do
   begin
     Parent := RPDinamic.ProjMan.FindRaveComponent('DBData', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(J))));
     left := LEFTSTART;
     Top := 0;
     Height := COLUMNHEIGHT;
     Width := 1;
     FillColor := clYellow;
       end;
       with TRaveDataText.Create(RPDinamic.ProjMan.FindRaveComponent('DBData',  TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(J))))) do
       begin
         Parent := RPDinamic.ProjMan.FindRaveComponent('DBData', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(J))));
         FontJustify := pjRight;
         DataView := TRaveBaseDataView(RPDinamic.ProjMan.FindRaveComponent('DVDinamic', RPDinamic.ProjMan));
         DataField := TRaveDataField(RPDinamic.ProjMan.FindRaveComponent('DVDinamic', RPDinamic.ProjMan).Child[COLUMNNUMBER]).FieldName;
         left := LEFTSTART + 0.01;
         Top := 0.025;
         Width :=  0.98;
         Font.Name := 'KoberidzeN';
         Font.Size := 10;
       end;
       with TRaveRectangle.Create(RPDinamic.ProjMan.FindRaveComponent('BSum', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(J))))) do
       begin
         Parent := RPDinamic.ProjMan.FindRaveComponent('BSum', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(J))));
         left := LEFTSTART;
         Top := 0;
         Height := COLUMNHEIGHT;
         Width := 1;
         FillColor := clYellow;
       end;
       with TRaveCalcText.Create(RPDinamic.ProjMan.FindRaveComponent('BSum',  TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(J))))) do
       begin
         Parent := RPDinamic.ProjMan.FindRaveComponent('BSum', TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(J))));
         FontJustify := pjRight;
         CalcType := ctSum;
         Controller := RPDinamic.ProjMan.FindRaveComponent('DBData',  TRavePage(RPDinamic.ProjMan.ActiveReport.FindComponent('Page' + IntToStr(J))));
         DataView := TRaveBaseDataView(RPDinamic.ProjMan.FindRaveComponent('DVDinamic', RPDinamic.ProjMan));
         DataField := TRaveDataField(RPDinamic.ProjMan.FindRaveComponent('DVDinamic', RPDinamic.ProjMan).Child[COLUMNNUMBER]).FieldName;
         left := LEFTSTART + 0.01;
         Top := 0.025;
         Width :=  1 - 0.02;
         Font.Name := 'KoberidzeN';
         Font.Size := 10;
       end;
   end;
 end;      
 RPDinamic.Execute;
end;
  Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1099 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.