我是个新手,我为什么装不了啊,谁告诉我这个是什么原因 Build [Warning] DclEhLib70.dpk(31): Unit 'EhLibADO' implicitly imported into package 'EhLib70' [Warning] DclEhLib70.dpk(31): Unit 'EhLibBDE' implicitly imported into package 'EhLib70' [Warning] DclEhLib70.dpk(31): Unit 'EhLibCDS' implicitly imported into package 'EhLib70' [Warning] DclEhLib70.dpk(31): Unit 'EhLibDBX' implicitly imported into package 'EhLib70' [Warning] DclEhLib70.dpk(31): Unit 'EhLibIBX' implicitly imported into package 'EhLib70' Build [Warning] Unit 'EhLibADO' implicitly imported into package 'EhLib70' [Warning] Unit 'EhLibBDE' implicitly imported into package 'EhLib70' [Warning] Unit 'EhLibCDS' implicitly imported into package 'EhLib70' [Warning] Unit 'EhLibDBX' implicitly imported into package 'EhLib70' [Warning] Unit 'EhLibIBX' implicitly imported into package 'EhLib70' [Fatal Error] Could not create output file 'c:\program files\borland\delphi7\Projects\Bpl\EhLib70.bpl'
PrintOutInfo; 在后面添加 for i := 0 to DBGridEh.FooterRowCount - 1 do for j := 0 to PrnColumns.Count - 1 do with PrnColumns[j].UsedFooter(i) do if (ValueType=fvtSum)or(ValueType=fvtCount) then FooterValues[i * PrnColumns.Count + j] := 0;
procedure PrintGridTitleTextHeight(FromCol, ToCol: Integer); var r: TRect; i, lm, rm, tm: Integer; begin r := Rect(DataPrintRec.Left, DataPrintRec.Top - PrnTitlEh - PrnTitleTextH + PrintOffset, DataPrintRec.Left, DataPrintRec.Top - PrnTitlEh + PrintOffset); for i := FromCol to ToCol do Inc(r.Right, Integer(PrnColWidths[i]));
if (Title.Text <> ') then begin VPrinter_Canvas.Font := DBGridEh.TitleFont; if (PrintFontName <> ') then VPrinter_Canvas.Font.Name := PrintFontName; r := Rect(DataPrintRec.Left, DataPrintRec.Top - PrnTitlEh - PrnTitleTextH + PrintOffset, r.Right, DataPrintRec.Top - PrnTitlEh + PrintOffset); lm := PSX2; // if FromCol = 0 then lm := PSX2 else lm := 0; rm := PSX2; //if ToCol = DBGridEh.VisibleColumns.Count-1 then rm := PSX2 else rm := 0; for i := 0 to FromCol - 1 do Dec(lm, Integer(PrnColWidths[i])); for i := ToCol + 1 to PrnColumns.Count - 1 do Dec(rm, Integer(PrnColWidths[i])); if DBGridEh.UseMultiTitle then tm := Round(DBGridEh.VTitleMargin * fScaleY / 2) else tm := PSY2; if pghColored in Options then VPrinter_Canvas.Brush.Color := DBGridEh.FixedColor; if DBGridEh.UseRightToLeftAlignment then OffsetRect(r, (DataPrintRec.Right + DataPrintRec.Left) - (r.Left + r.Right), 0); WriteTextEh(VPrinter_Canvas, r, pghColored in Options, 0, tm, GetStingListText(Title), taCenter, tlTop, True, False, lm, rm, CalcInfoMode, DBGridEh.UseRightToLeftAlignment, DBGridEh.UseRightToLeftReading); AddPolyline([r.Left, r.Bottom, r.Left, r.Top, r.Right, r.Top, r.Right, r.Bottom]); end; end;