OpenEuphoria

Re: Deluxe Slide Show Attn. Al

• Posted by Al Getz <Xaxo at aol.com> Mar 23, 2006
• 741 views

don cole wrote:
> 
> Hello Al,
> }}}
<eucode>
> --create a slide show window:this really the directory window
> global constant SSWindow=
>                 EzWindow:Create(
>                 0,  --atom styleFlagsEx 
>                 WS_DLGFRAME,   --atom styleFlag-- 
>                 #E9E9E9,    --background color
>                 "Slide Show Window",    --caption
>                 28, 32,             --xpos, ypos
>                 520, 268,           --width, height
>                 0,--  MainAppWindow,       --parent ID
>                 --this was my mistake it should have been:
>                 MainAppWindow,       --parent ID
>                 0)
> </eucode>
{{{

> It still Blinks but you can hardly notice it.
> 
> Thanks Al, I’m still working  it in my mind how to do the other part.
> 
> Don Cole
> 
> 
> Don Cole

Hi Don,

Ok, i found that you have to do the other sub windows too or they blink too.
Also, "Close(windowid)" has to be removed for every window.
Also, i found that WS_DLGFRAME style isnt the best choice after all
because there is no way to close the window once it opens.
Here's what worked (no blinking):

(note all three windows were changed)

constant SettingsWindow=EzWindow:Create(
  WS_EX_CLIENTEDGE,     --style Ex
  OR({WS_OVERLAPPED,WS_SYSMENU}),--WS_DLGFRAME   --style
  #F0C0A0,              --background color
  "SettingsWindow",  --caption
  10, 10,               --xpos, ypos
  300, 200,             --width, height
  0,--MainAppWindow,         --parent ID
  0)                    --events (none yet)
  --Close(SettingsWindow)
    --create a slide show window:
global constant SSWindow=EzWindow:Create(
  WS_EX_CLIENTEDGE,     --style Ex
  OR({WS_OVERLAPPED,WS_SYSMENU}),   --style
  #E9E9E9,              --background color
  "Slide Show Window",  --caption
  28, 32,               --xpos, ypos
  520, 268,             --width, height
  0,--MainAppWindow,         --parent ID
  0)
  --Close(SSWindow)

    --create a Help window:
global constant helpWindow=EzWindow:Create(
  WS_EX_CLIENTEDGE,     --style Ex
  OR({WS_OVERLAPPED,WS_SYSMENU}),   --style
  #E9E9E9,              --background color
  "Keyboard Help",  --caption
  28, 32,               --xpos, ypos
  520, 300,             --width, height
  0,--MainAppWindow,         --parent ID
  0)
  --Close(helpWindow)


Please also note that for all three of these windows "Close()" was
remmed out.  Close() causes the window to blink quick even when it's
not visible so remming these out helps too.



Take care,
Al

And, good luck with your Euphoria programming!

My bumper sticker: "I brake for LED's"

 From "Black Knight":
"I can live with losing the good fight,
 but i can not live without fighting it".
"Well on second thought, maybe not."