PrintPreview Access Violation
Posted: Sat Jan 15, 2011 12:00 pm
I use an old version 1.9.48
Time ago, I developed a simple editor.
My PC cracked.
Now, I just reinstalled Delphi7.
When I try recomplile editor, I get an Access Violation error.
No changes made.
I do not understand!!!!
Can help me anyone, please?
Thanks.
[/code]
Time ago, I developed a simple editor.
My PC cracked.
Now, I just reinstalled Delphi7.
When I try recomplile editor, I get an Access Violation error.
No changes made.
I do not understand!!!!
Can help me anyone, please?
Thanks.
Code: Select all
function TFormUnidad1.EditorActivo:TRichViewEdit;
begin
Result:=PageControl1.ActivePage.Controls[0] as TRichViewEdit;
end;
procedure TFormUnidad1.PagPreviewClick(Sender: TObject);
begin
RVPrint1.AssignSource(EditorActivo);
RVPrint1.FormatPages(rvdoALL);
if RVPrint1.PagesCount>0 then begin
frmPreview.rvpp.RVPrint := RVPrint1; /////Access Violation at this line
frmPreview.Button1Click(nil);
frmPreview.ShowModal;
end;
end;