Full screen appl using KOL-CE?

[JohnvdWaeter]

Hi Yuri,

If I want to use fullscreen on my PDA, how should I set form properties for TKolform?

tia!
John

[chrgra]

Use the following code to hide or show the taskbar

Cheers Chris

procedure TForm1.KOLForm1Close(Sender: PObj; var Accept: Boolean);
  {$ifdef wince}
var
  hTaskBar : handle;
{$endif}
begin
  {$ifdef wince}
  hTaskBar := findwindow('HHTaskBar','');
  ShowWindow(hTaskBar,SW_SHOW);
  {$endif}
end;

procedure TForm1.KOLForm1Show(Sender: PObj);
{$ifdef wince}
Var
  hTaskBar : handle;
{$endif}
begin
  {$ifdef wince}
 // SHFullScreen(form.Handle,SHFS_HIDETASKBAR or SHFS_HIDESTARTICON);
  hTaskBar := findwindow('HHTaskBar','');
  ShowWindow(hTaskBar,SW_HIDE);
  //SHSipPreference(form.handle,SIP_DOWN);
  {$endif}
end;

[JohnvdWaeter]

Hi chrgra,

Thanks for the code!
However, I tried it, and it does not hide the taskbar but disables it. The taskbar remains visible but does not respond anymore. Which causes other problems when tasks are switched or when myprog should crash and hence not restore normal taskbar-behaviour.

I tested both on Emulator WM5 and HTC with WM 6.

kind regards,
John

[chrgra]

Sorry, I did not see it was wrong

Use the following code. A little tweaking and you are ready.

Test on the wm 5.0 emulator. I'm sure it will also work with wm6.

procedure TForm1.KOLForm1Show(Sender: PObj);
  {$ifdef wince}
Var
  hTaskBar : handle;
{$endif}
begin
  {$ifdef wince}
  form.Top :=0;
  form.Left := 0;
  form.HasCaption:= false;
  hTaskBar := findwindow('HHTaskBar','');
  ShowWindow(hTaskBar,SW_HIDE);
  {$endif}
end;

[alepio]

I have tryed this code but in WinCe 5.0 don't work.
 

Do you know why?

[alepio]

I have tryed this code but in WinCe 5.0 don't work.
 

Do you know why?