usetplace.~pas

来自「对初学票据套打开发的人很有帮助」· ~PAS 代码 · 共 62 行

unit Usetplace;
interface
uses
  Qrctrls, QuickRpt, Upubfun, inifiles, ExtCtrls;
function setplace(left, top: integer; rep: TQuickRep): boolean;
implementation

function setplace(left, top: integer; rep: TQuickRep): boolean;
var
  readini: Tinifile;
  i, j: integer;
  Fleft, Ftop: integer;
begin
   for i := 0 to rep.ControlCount - 1 do
  begin
    ////////////
    if rep.Controls[i] is TQRBand then
    begin
      for j := 0 to (rep.Controls[i] as TQRBand).ControlCount - 1 do
        if (rep.Controls[i] as TQRBand).Controls[j] is TObject then
        begin
          ((rep.Controls[i] as TQRBand).Controls[j] as TObject).Left := ((rep.Controls[i] as TQRBand).Controls[j] as TObject).Left + left;
          ((rep.Controls[i] as TQRBand).Controls[j] as TObject).top := ((rep.Controls[i] as TQRBand).Controls[j] as TObject).top + top;
        end;
    end
    else
      if rep.Controls[i] is TQRChildBand then
      begin
        for j := 0 to (rep.Controls[i] as TQRChildBand).ControlCount - 1 do
        begin
          ((rep.Controls[i] as TQRChildBand).Controls[j] as TObject).Left := ((rep.Controls[i] as TQRChildBand).Controls[j] as TObject).Left + left;
          ((rep.Controls[i] as TQRChildBand).Controls[j] as TObject).top := ((rep.Controls[i] as TQRChildBand).Controls[j] as TObject).top + top;
        end;
      end
      else
        if rep.Controls[i] is TQRsubdetail then
        begin
          for j := 0 to (rep.Controls[i] as TQRsubdetail).ControlCount - 1 do
          begin
            ((rep.Controls[i] as TQRsubdetail).Controls[j] as TObject).Left := ((rep.Controls[i] as TQRsubdetail).Controls[j] as TObject).Left + left;
            ((rep.Controls[i] as TQRsubdetail).Controls[j] as TObject).top := ((rep.Controls[i] as TQRsubdetail).Controls[j] as TObject).top + top;
          end;
        end
        else
          if rep.Controls[i] is TQRStringsBand then
          begin
            for j := 0 to (rep.Controls[i] as TQRStringsBand).ControlCount - 1 do
            begin
              ((rep.Controls[i] as TQRStringsBand).Controls[j] as TObject).Left := ((rep.Controls[i] as TQRStringsBand).Controls[j] as TObject).Left + left;
              ((rep.Controls[i] as TQRStringsBand).Controls[j] as TObject).top := ((rep.Controls[i] as TQRStringsBand).Controls[j] as TObject).top + top;
            end;
          end
          else
          begin
            (rep.Controls[i] as TObject).Left := (rep.Controls[i] as TObject).Left + left;
            (rep.Controls[i] as TObject).top := (rep.Controls[i] as TObject).top + top;
          end;
  end;
end;
end.