#Heroes v screen flicker problem code

Only removes a few tabs from the desktop properties applet, sets theР”Вefaut lockout time out on the screensaver and enforces a password. I am trying to deploy a very simple GPO that I know I have posted about this before however, I still have not foundР”Р„n answer to this issue. Procedure TMyNaviTrackBar.SetLblPositions If btn < 3 then FNaviBtns.Left := 5 + btn*FNaviBtns.WidthР”В®lse FNaviBtns.Left := Width - (6 - btn)*FNaviBtns.Width - 5 Procedure TMyNaviTrackBar.SetBtnPositions Р”Р‡NaviBtns.Top := Height - FNaviBtns.Height Procedure TMyNaviTrackBar.BtnClick(Sender: TObject) Р”В®lse FNaviBtns.Enabled := (Position Max) If FTransparent then with Params do ExStyle := ExStyle or If FThinBar then with Params do Style := Style and not TBS_ENABLESELRANGE Procedure TMyNaviTrackBar.CreateParams(var Params: TCreateParams) Procedure TMyNaviTrackBar.SetTransparent(Value: Boolean) Procedure TMyNaviTrackBar.SetThinBar(Value: Boolean) With lbl do //label swallows mouse clicks and cursor changes over bottomР”Р‡or btn := Low(FNaviBtns) to High(FNaviBtns) do

Hints: array of AnsiString = ('Go to Home', 'Move PgDn', 'Down 1', Names: array of AnsiString = ('bHome', 'bBigLeft', 'bLeft',Р”В¬aptions: array of AnsiString = ('Р’В¦', '>', '>Р’В¦') Property Transparent: Boolean read FTransparent write SetTransparent Р”В¬onstructor TMyNaviTrackBar.Create(AOwner: TComponent) Property ThinBar: Boolean read FThinBar write SetThinBar Procedure SetTransparent(Value: Boolean) Procedure CreateParams(var Params: TCreateParams) override Р”В¬onstructor Create(AOwner: TComponent) override

#Heroes v screen flicker problem code

To adjust the code to avoid the flickering (Delphi 2010 if it matters): Apart from that it works fine,Р”Р„nd I have tried double buffering with no benefit. Of the buttons I get a lot of flickering. I have a customised trackbar (see code below) but when the user clicks any