quarta-feira, 18 de agosto de 2010

Setando Zoom to Fit no QuickReport! Delphi again! :D


Dias atrás precisei setar a opção "Zoom to Fit" no QuickReport, em Run Time.
Segue a solução encontrada na rede, com algumas alterações:

========================

Uses QRPrev;

Function SET_QR_ZOOM_TO_FIT : boolean;
var
i:integer;
begin
Result := False;
for i := 0 to Screen.FormCount-1 do
begin
if Screen.Forms[i] is TQRStandardPreview then
begin
TQRStandardPreview(Screen.Forms[i]).ZoomFit.Click;
TQRStandardPreview(Screen.Forms[i]).ZoomFit.Down := True;
Result := True;
end;
end;
end;


========================

É isso!

[]'s

3 comentários:

Alessandro disse...

Que boa matéria, mas como é que c usa isso...num consigui não!

.::JACK::. disse...

Olá Alessandro,

O trecho do código é uma função.
Basca colar no seu projeto e adicionar a cláusula Uses que também está nesse trecho.

[]'s

Ezequias Martins disse...

Oi Jack,

nao ficou muito claro onde inserir esta cláusula "Uses QRPrev", se no código do proprio formulario do QuickReport, e como chamar essa função, em que evento ou procedimento, se puder esclarescer.. pq é a dúvida crucial de muitos, creio que essa limitação (ou bug intencionado) seja uma limitação criada pelo fabricante do QuickReport para forçar a compra do componente... Mas enfim, como exatamente vc implementou isso no seu projeto?

Grato,

Ezequias Martins