BorlandTalk.com

Serra · Guest

D7 , ( Standart Q.Rep in D7 )

procedure TKartlar.SpeedButton5Click(Sender: TObject);
var
Rec: TSearchRec;
begin
if FindFirst(IniDir+'Drawing\'+dm.PartsPartNo.Value+'.*', faAnyFile,Rec) = 0
then
begin
try
QrImage1.Picture.LoadFromFile(IniDir+'Drawing\'+Rec.Name);
QrLabel5.Caption:=dm.PartsPartNo.Value;
QrImage1.Picture.LoadFromFile(IniDir+'Drawing\'+Rec.Name);
MyQuickRep:=DrawForm.QuickRep2;
QuickRep2.Preview;
finally
FindClose(Rec);
end;
end;
else
QrImage1.Picture:=nil;
end;

procedure TDrawForm.QuickRep2Preview(Sender: TObject);
begin
QuickRep2.Zoom:=200;
QuickRep2.Prepare;
PreviewForm.QrPreview1.QRPrinter:= QuickRep2.QRPrinter;
PreviewForm.ShowModal;
PreviewForm.QrPreview1.QRPrinter:=nil;
end;

when i click Button5 i can see the JPEG Image ( it is a drawing )
with no problem but when i close my PreviewForm and then click on button 5
i cant see the whole image ( i can see something like half of the image )