RB7.02 D6 Win2K HourGlass cursor not showingin Designer Preview

rbuser

Using the EndUser demo:

If in the designer I preview a report with a long running query I
don't get the hourglass cursor when the status bar says Accessing
Data...

If I preview from the report explorer I do.

If I put a break point at the procedure
TppPreview.PrintStateChangeEvent(Sender: TObject); location that sets
Viewer.Cursor := crHourGlass; then I get the hourglass.

It looks like the cursor is not being forced to be redisplayed? Is
there a way around this?

Thanks,


Rick Matthews
Dartek Systems Inc.

nicocizik

Hi Rick,

In the TppPreview.PrintStateChangeEvent method located in the ppPreview.pas
file, add the following lines of code to the source:

begin

if Viewer.Busy then
begin
Viewer.Cursor := crHourGlass;
Screen.Cursor := crHourGlass; {ADDED LINE}

FMaskZoomPercentage.Enabled := False;
FMaskPageNo.Enabled := False;

FToolbar.Cursor := crHourGlass;

if (StatusBar <> nil) then
StatusBar.Cursor := crHourGlass;

if Viewer.DesignViewer then
begin
FBtnCancel.Cursor := crHourGlass;
FBtnCancel.Enabled := True;
end
else
begin
FBtnCancel.Cursor := crArrow;
FBtnCancel.Caption := ppLoadStr(ppMsgCancel);
end;

end
else
begin
Viewer.Cursor := crDefault;
Screen.Cursor := crDefault; {ADDED LINE}
....
....

Once you add these two extra lines, make sure you library path is pointing
toward the \RBuilder\Source\... directory and rebuild your project. This is
a quick fix to this problem and will be addressed in the next release.

--

rbuser

Thanks Nico that did the trick.

Cheers,