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:
Que boa matéria, mas como é que c usa isso...num consigui não!
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
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
Postar um comentário