View Issue Details
| ID | Project | Category | View Status | Date Submitted | Last Update |
|---|---|---|---|---|---|
| 0001831 | JEDI VCL | 00 JVCL Components | public | 2004-06-03 07:49 | 2004-06-25 05:00 |
| Reporter | Tasler | Assigned To | user72 | ||
| Priority | normal | Severity | feature | Reproducibility | always |
| Status | resolved | Resolution | fixed | ||
| Product Version | |||||
| Target Version | Fixed in Version | ||||
| Summary | 0001831: JVStarfield flickering | ||||
| Description | Hi Peter JVStarfield is flickering in the latest CVS. Check it, what's wrong? | ||||
| Tags | No tags attached. | ||||
|
|
If you are checking this issue, please add "Visible" property to this component. I know that when Active := False then Starfield is invisible... But nice feature could be if Active = False and Visible := True, then you will see static (stopped ) starfield... Thanx |
|
|
Add this to the constructor: constructor TJvStarfield.Create(AOwner: TComponent); begin inherited Create(AOwner); ControlStyle := ControlStyle + [csOpaque]; ... A rewrite of the paint procedure caused this problem... |
|
|
BTW, "Visible" is a standard property that denotes whether the control is showing at all or not. Trying to reuse it as denoting whether the control is showing stars or not, is not good OOP practice. I could probably add a "ClearStars" procedure that you could call when necessary. |
|
|
Yes, you're absolutely right... But, when you're talking about OOP... property "Active" should only start/stop the starfield and not To SHOW & START when "true", or HIDE & STOP when "false" as it is now (this is not so clear)... Good "OOP" example can be TAnimate Delphi control. It has also "active" and "visible" property, you know how it works... Consider nice effect when starfield is "flying" and you can it suddenly stop it and after some period of time continue "flying" from this point... So it is up to you, maybe you will agree a little with me :) Cheers |
|
|
Actually, if you toggle the Active property, it does stop and start just as you request, at least in the latest CVS version. |
|
|
I've posted an update to CVS (fixed flicker and added Clear procedure + published Visible and useable events). Try it out and let me know what you think |
|
|
I will do it with pleasure, then I tell you my experiences :). Thanx for now |
|
|
No reply, so assuming it works |
| Date Modified | Username | Field | Change |
|---|---|---|---|
| 2004-06-03 07:49 | Tasler | New Issue | |
| 2004-06-03 08:04 | Tasler | Note Added: 0004450 | |
| 2004-06-04 01:16 |
|
Note Added: 0004461 | |
| 2004-06-04 01:18 |
|
Note Added: 0004462 | |
| 2004-06-04 01:35 |
|
Status | new => assigned |
| 2004-06-04 01:35 |
|
Assigned To | => user72 |
| 2004-06-05 01:07 | Tasler | Note Added: 0004473 | |
| 2004-06-05 04:50 |
|
Note Added: 0004476 | |
| 2004-06-07 01:21 |
|
Note Added: 0004485 | |
| 2004-06-07 03:27 | Tasler | Note Added: 0004486 | |
| 2004-06-25 05:00 |
|
Status | assigned => resolved |
| 2004-06-25 05:00 |
|
Resolution | open => fixed |
| 2004-06-25 05:00 |
|
Note Added: 0004621 |
