View Issue Details
| ID | Project | Category | View Status | Date Submitted | Last Update |
|---|---|---|---|---|---|
| 0004018 | JEDI VCL | 00 JVCL Components | public | 2006-12-13 07:17 | 2007-06-19 06:37 |
| Reporter | tanbronson | Assigned To | obones | ||
| Priority | normal | Severity | block | Reproducibility | always |
| Status | resolved | Resolution | suspended | ||
| Product Version | 3.20 | ||||
| Target Version | Fixed in Version | ||||
| Summary | 0004018: TJvCustomLabel Calling GetCursorPos while the screen saver is active | ||||
| Description | I have an application that runs in the foreground, and creating background threads according to a user defined schedule. After upgrading to D26k and Jedi 3.20, and I find that my application has started to have problems where GetCursorPos is called when the screen saver is active. The problem is we get an "Operating System Error" dialog which requires UI interaction, which renders the application "blocked" > > My fix is pretty simple, don't call CursorPos unless we're the foreground > task: | ||||
| Additional Information | > My fix is pretty simple, don't call CursorPos unless we're the foreground > task: > > > > procedure TJvCustomLabel.UpdateTracking; > var > OldValue, OtherDragging: Boolean; > begin > OldValue := MouseOver; > OtherDragging := > {$IFDEF VCL} > KeyPressed(VK_LBUTTON) > {$IFDEF COMPILER6_UP} > or Mouse.IsDragging > {$ENDIF COMPILER6_UP} > {$ENDIF VCL} > {$IFDEF VisualCLX} > DragActivated > {$ENDIF VisualCLX} > ; > > if Enabled and not OtherDragging and IsForegroundTask then > // Avoid asking for the cursor, if we're not the foreground task > MouseOver := (FindDragTarget(Mouse.CursorPos, True) = Self) > else > MouseOver := false; > > if MouseOver <> OldValue then > Invalidate; > > end; | ||||
| Tags | No tags attached. | ||||
| Date Modified | Username | Field | Change |
|---|---|---|---|
| 2006-12-13 07:17 | tanbronson | New Issue | |
| 2007-01-27 14:21 | obones | Note Added: 0010682 | |
| 2007-01-27 14:21 | obones | Status | new => feedback |
| 2007-06-19 06:37 | obones | Status | feedback => resolved |
| 2007-06-19 06:37 | obones | Resolution | open => suspended |
| 2007-06-19 06:37 | obones | Assigned To | => obones |
| 2007-06-19 06:37 | obones | Note Added: 0013431 |
