穿著Prada的惡魔 (The Devil Wears Prada)

 

擴展QuckReport報表內容

報表內容過多過長， Report礙於報表的設計空間，開發階段不容易將報表元件放置到適當的位置。可以在Form上，放置多個QuickRep報表元件，在不同的QuickRep元件中利用ChildBand來設計，再用程式碼控制將ChildBand併到主報表裡做預覽。

uses QRPrntr;

type TQRPrintableExt=class(TQRPrintable);

procedure TForm1.pr_Reset_ParentReport(AChildBand:TQRChildBand; AParentBand:TQRCustomBand);

var i:Integer;

begin

  AChildBand.Parent := AParentBand.ParentReport;

  AChildBand.ParentBand := AParentBand;

  for i := 0 to AChildBand.ControlCount-1 do

    TQRPrintableExt(AChildBand.Controls[i]).ParentReport := AChildBand.ParentReport;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  pr_Reset_ParentReport(ChildBand1, DetailBand1);

  pr_Reset_ParentReport(QRChildBand1, ChildBand1);

  QuickRep1.Preview;

end;

輸出結果:

TCategoryPanelGroup - MouseWheel : Not functional ?

 //---------------
//Form MouseWheel
//---------------
procedure TForm.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
  if PtInRect(CategoryPanelGroup1.BoundsRect, ScreenToClient(Mouse.CursorPos)) then
    CategoryPanelGroup1MouseWheel(Sender, Shift, WheelDelta, MousePos, Handled);
end;

//-----------------------------
//CategoryPanelGroup MouseWheel
//-----------------------------
procedure TForm.CategoryPanelGroup1MouseWheel(Sender: TObject;
  Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint;
  var Handled: Boolean);
var
  msg: Cardinal;
  code: Cardinal;
  i, n: Integer;
begin // Thanks to *Peter Below* for this code (adapted here)
  Handled := true;
  if ssShift in Shift then
    msg := WM_HSCROLL
  else
    msg := WM_VSCROLL;
  if WheelDelta > 0 then
    code := SB_LINEUP
  else
    code := SB_LINEDOWN;
  n:= Mouse.WheelScrollLines;
  for i:= 1 to n do
    CategoryPanelGroup1.Perform(msg, code, 0);
  CategoryPanelGroup1.Perform(msg, SB_ENDSCROLL, 0);
end;

轉貼至:https://codeverge.com/embarcadero.delphi.nativeapi/tcategorypanelgroup-mousewheel-n/1065463

Excel Class Workbook 的 SaveAs 方法失敗

 

操作遠端連線在Terminal主機使用相同的程式，部份使用者在操作Excel匯出時會出現「Class Workbook 的 SaveAs 方法失敗」，需要將使用者的UserProfile刪除，重新登入後讓系統重建就可以正常匯出。