Fórum Alternativa alterar unit original #346676

Algum tempo atráz precisei incluir as 2 linhas abaixo nas procedures BeginDoc e NewPage da unit original Printers, nunca tinha dado problema, porém agora começou dar conflito (was compiled version different) com um novo componente que instalei.

Tem alternativa ao invés de mexer na unit original do Delphi, porque estas linhas pra funcionar tem que estar antes da linha StartPage(DC). Pensei em criar uma unit nova descendente de Printers só com BeginDoc, NewPage pra sobrepor os originais, mas não sei como fazer isto.

DevMode.dmDefaultSource:=FNumBand; // <-- muda bandeja impressão
Windows.ResetDC(DC,DevMode^); // <-- aplica alteração


procedure TPrinter.BeginDoc;
var
DocInfo: TDocInfo;
begin
CheckPrinting(False);
SetState(psHandleDC);
Canvas.Refresh;
TPrinterCanvas(Canvas).UpdateFont;
FPrinting := True;
FAborted := False;
FPageNumber := 1;
FillChar(DocInfo, SizeOf(DocInfo), 0);
with DocInfo do
begin
cbSize := SizeOf(DocInfo);
lpszDocName := PChar(Title);
end;
SetAbortProc(DC, AbortProc);
StartDoc(DC, DocInfo);

DevMode.dmDefaultSource:=FNumBand; // <-- muda bandeja impressão
Windows.ResetDC(DC,DevMode^); // <-- aplica alteração

StartPage(DC);
end;


procedure TPrinter.NewPage;
begin
CheckPrinting(True);
EndPage(DC);

DevMode.dmDefaultSource:=FNumBand; //<-- muda bandeja impressão
Windows.ResetDC(DC,DevMode^); //<-- aplica alteração

StartPage(DC);
Inc(FPageNumber);
Canvas.Refresh;
end;


Obrigado,