Move a form a few pixels??

[Ian Branch 121]

Hi Team,

I have a Dashboard application that the Customer leaves up on their TV Monitor all day.  I am not sure what type of TV Monitor it is.

They used to leave it on 24/7 but I put an 8 hour time limiter on it. ;-)

I'd like to mitigate any burn in by randomly moving/shifting the form.

Is this possible?  If so, how please?

 

Regards & TIA,

Ian

 

[FPiette 367]

Just change Top and Left properties using a timer.

If you shift the form (ie: Top := Top + 1;) don't forget to test is the form goes out of the screen (Use the screen variable to get the with and height.

[Ian Branch 121]

Hi Francois,

Tks.  I was hoping it would be something as simple as that.

 

Regards,

Ian

[Lajos Juhász 241]

I would do something like this:

 

var
  ws: TWindowState;
  l: TRect;
begin
  ws:=WindowState;
  l:=BoundsRect;
  try
    if ws=wsMaximized then
      WindowState:=TWindowState.wsNormal;

    SetBounds(l.Left+1, l.Top+1, l.Width, l.Height);
    Repaint;
    Sleep(100);
  finally
    WindowState:=ws;
    if ws<>TWindowState.wsMaximized then
      SetBounds(l.Left, l.Top, l.Width, l.Height);
    repaint;
  end;
end;

 

[David Heffernan 2308]

2 hours ago, Ian Branch said:

mitigate any burn in

Easier to replace the CRT monitor with an LCD

[Lajos Juhász 241]

1 minute ago, David Heffernan said:

Easier to replace the CRT monitor with an LCD

Do you get burn-in with LCD?

 

 

 

While LCDs are not susceptible to burn-in the same way CRT monitors are, LCDs suffer from what manufacturers call image persistence. Like the burn-in on CRTs, image persistence on LCD monitors is caused by the continuous display of static graphics on the screen for extended periods.

(I am not going to test this on my monitor)

[Ian Branch 121]

Just now, David Heffernan said:

Easier to replace the CRT monitor with an LCD

It would be if I had any say in it..

 

Lajos,

I took your suggestion and made it into this..

procedure TMainForm.MoveWindowTimer(Sender: TObject);
var
  ws: TWindowState;
  l: TRect;
  iLeft, iTop: SmallInt;
begin
  ws := WindowState;
  l := BoundsRect;
  iLeft := RandomRange(-10, 10);
  iTop := RandomRange(-10, 10);
  //
  if ws = wsMaximized then WindowState := TWindowState.wsNormal;
  SetBounds(l.Left + iLeft, l.Top + iTop, l.Width, l.Height);
  Repaint;
end;

Works perfectly.

 

Regards & Tks to all.

Ian

 

[FPiette 367]

No need to call Repaint.

No need to change position if window is minimized.

Pay attention to not go out of the monitor limits.

[Ian Branch 121]

Hi Francois,

1 minute ago, FPiette said:

No need to call Repaint.

Noted.

1 minute ago, FPiette said:

No need to change position if window is minimized.

It can't be.

1 minute ago, FPiette said:

Pay attention to not go out of the monitor limits.

Not probable but not impossible.  They can always drag it back to the center of the screen if they like. ;-)

 

Regards,

Ian

[FPiette 367]

You can easily make the window bounce on the edges of the monitor. Easy calculation.

[Sherlock 636]

On 8/24/2022 at 9:03 AM, Lajos Juhász said:

Do you get burn-in with LCD?

 

 

 

While LCDs are not susceptible to burn-in the same way CRT monitors are, LCDs suffer from what manufacturers call image persistence. Like the burn-in on CRTs, image persistence on LCD monitors is caused by the continuous display of static graphics on the screen for extended periods.

(I am not going to test this on my monitor)

Just so it wont be forgotten, OLEDs may suffer from the same issue. But modern TVs and maybe displays as well have nifty workarounds installed (spoiler alert: they do what Ian plans to implement themselves). Read here for more infos: https://www.displayninja.com/oled-screen-burn-in/