Oxygen Basic

Programming => Example Code => Topic started by: Peter on February 18, 2011, 11:04:52 AM

Title: Butterfly
Post by: Peter on February 18, 2011, 11:04:52 AM

Deleted

Title: Re: Butterfly
Post by: Charles Pegge on February 21, 2011, 04:00:56 PM

Thanks Peter.

My adventures are taking longer than anticipated, including a major overhaul of the auto type conversion system. The result is shorter and faster code and it will make wide string support much easier to implement. I have a few more bugs to catch yet. Averaging about 4-6 hours per catch. They are getting very evasive. It's Darwinian evolution - survival of the fittest :).

Charles

Title: Re: Butterfly
Post by: Aurel on February 28, 2011, 08:37:35 AM

This example is very cool ;)
Is there a way to implement wFunc or something similiar directly in OxygenBasic?
It would be much simplified programming for those less versed in coding.

Title: Re: Butterfly
Post by: Aurel on March 02, 2011, 11:32:41 AM

In which language is written wFunc ?
Is in Oxgen or in FreeBasic?
I made some changes and work but i recive to much flickering with
WS_OVERLAPPEDWINDOW style?

Code: [Select]

Include "wFunc2.inc"

dim b1 as long
dim w1 as long
dim bstyle as long
dim winstyle as long
bstyle=0x50000001
winstyle=WS_OVERLAPPEDWINDOW or WS_CLIPCHILDREN
'open window
w1=OpenWindow("WinTest1",400,300,winstyle)
'create button
b1 = CreateWindowEx 0,"BUTTON","Button-1",bstyle,100,100,100,25,w1,0,0,0

UpdateWindow w1

While WinExit <> 1
UpdateWindow w1
DoEvents
Wend

WinEnd
[attachment deleted by admin]

Title: Re: Butterfly
Post by: Aurel on March 03, 2011, 12:49:36 AM

Peter
Everything works but why is so much flickering with resizing?
I only see so much flickering creating window with FreeBasic...
Is this somehow conected?

Title: Re: Butterfly
Post by: Aurel on March 03, 2011, 07:31:13 AM

This example dont work on my winXPsp2 computer.
I dont wanna use win7.
When i say 'connected' i mean that oxygen basic is written in FreeBasic ,right?
same annoying flickering i see each time on programs created by FreeBasic.

Peter do you can show here how look minimum code for win GUI app
in Oxygen Basic?
Set window style as WS_OVERLAPPEDWINDOW.

Aurel

Title: Re: Butterfly
Post by: Aurel on March 03, 2011, 08:59:40 AM

Heh...
This is not a joke,OK.
I dont know why you dont understand,i only ask simple thing.
Same program written in EBasic which i use dont have any kind of flickering
or blinking.
I know that EBasic use double bufferd window which means that all graphics on
window are holded by hDC ,in Oxygen Basic this is not a case but such a big
amout of blinking is to much.
Sorry if i bothering you...

Title: Re: Butterfly
Post by: JRS on March 03, 2011, 09:07:20 AM

Quote

I dont wanna use win7.

You have a long history of using either discontinued or abandoned Basic compilers to develop with. You are exacerbating your problems by refusing to use the current version of operating systems.

Have you thought about giving up programming and becoming a antique dealer for a living?

Title: Re: Butterfly
Post by: Aurel on March 03, 2011, 09:26:25 AM

Quote

You have a long history of using either discontinued or abandoned Basic compilers to develop with. You are exacerbating your problems by refusing to use the current version of operating systems.

Have you thought about giving up programming and becoming a antique dealer for a living?

John this is not problem in win7 or XP.
And here is same program so you can try and you will see that there is no
any kind of blinking when you streching window.

.

Title: Re: Butterfly
Post by: Charles Pegge on March 03, 2011, 10:19:29 AM

This helps to avoid flickering when stretching

in WndProc:

  '------------------
  case %WM_ERASEBKGND
  '==================
 
  function = 1

(%WM_ERASEBKGND=&h14)

http://msdn.microsoft.com/en-us/library/ms648055(v=vs.85).aspx

Charles