Author Topic: oxygen light (ddt modus)? (Read 6179 times)

Frankolinox · « **on:** February 04, 2013, 02:25:14 AM »

hi charles, hi all other oxygen friends. yesterday I was asking myself if that's not possible to make an alternative "oxygen basic light" version for gui's and callbacks and buttons (like "ddt" modus on powerbasic) and so on... I don't know how to make it, but perhaps it's an idea to make oxygen more attractive and simplifier for usual programmers or other basic language users here at the board.

best regards, frank

Peter · « **Reply #1 on:** February 04, 2013, 06:14:04 AM »

Hi Frank,

May I ask, what is OxygenBasic light?
Is it a lack of understanding of the Windows API?
Or a lack of creativity of the people to dealing with OxygenBasic?

Aurel · « **Reply #2 on:** February 04, 2013, 07:25:10 AM »

Quote

Is it a lack of understanding of the Windows API?
Or a lack of creativity of the people to dealing with OxygenBasic?

In my case little bit from first & little bit from second...

Peter · « **Reply #3 on:** February 04, 2013, 08:06:53 AM »

Quote

In my case little bit from first & little bit from second...

I love truth.

Peter · « **Reply #4 on:** February 04, 2013, 08:33:47 AM »

Hi,

This demo shows the simplicity of OxygenBasic.
The song is called: through the light.

X

Haim · « **Reply #5 on:** February 04, 2013, 09:28:14 PM »

Nice demo, but where do I see the simplicity...
It seems to be quite complex

Haim

Charles Pegge · « **Reply #6 on:** February 05, 2013, 03:28:59 AM »

Lovely bees! How we missed them last year. We only had a few wild bees here.

For a simplified Windows API, IUP looks like a good bet. It has the advantages of being well established and cross-platform. I include our IUP stuff with Oxygen-in-progress. folder: /ProjectsB/IUP/

I am still working on an Opengl GUI. This turns out to be a very looong project but good fun. I have concentrated on producing the edit control first, since that is the most important and most complex of all the controls. . There is now syntax highlighting, block copy and paste projectsA/OpenglGUI.

Charles

OpenglGui

Peter · « **Reply #7 on:** February 05, 2013, 04:18:53 AM »

I hope you will get it this year, then will come the lovely bees !

Peter · « **Reply #8 on:** February 05, 2013, 04:19:42 AM »

Hi Haim,

see in example section, there you will find my new "Simple Window" work.
it's really good for beginner, for other people too.

instead of a help description, i will make some demos about every command.
i think that is easier for understanding what the command is doing.

Haim · « **Reply #9 on:** February 05, 2013, 06:07:14 AM »

Thanks for your response
I like the demos very much and already enjoy studying them
Haim

Aurel · « **Reply #10 on:** February 05, 2013, 10:40:35 PM »

What IUP ,,,you must be joking ,right Charles?
IUP is a just small wrapper and cannot be compered with full native Win32 api.
Anyone can tell me which world wide program is created by IUP...

OF COURSE ...if you are JRS then IUP is the HITof the year.
However -where is by the way latest inProgress download , there is nothing
on sourceforge page

Oh yes may i suggest awinh.inc to build win GUI programs...
it is just a small win32 bunch of functions ..hey but work..

JRS · « **Reply #11 on:** February 05, 2013, 11:45:13 PM »

Once again you're running your mouth talking trash you know nothing about. I don't have a lifetime to write a Windows application from scratch via the SDK. This is a high level Basic forum. If low level programming is your interest, join a C or ASM forum and give us a break.

Aurel · « **Reply #12 on:** February 06, 2013, 01:20:21 AM »

Haim
You can try this simple example and then tell me ...
Is this much more familiar to you...

Code: [Select]

'gui-skeleton app
Include "awinh.inc"
#lookahead 
INT win,win2
INT x,y,w,h,x2,y2,w2,h2
x=0:y=10:w=400:h=400
x2=410:y2=10:w2=400:h2=300
INT winstyle,wstyle2
winstyle = WS_MINMAXSIZE or WS_CLIPCHILDREN 
wstyle2 = WS_MINMAXSIZE or WS_CLIPCHILDREN 
INT b0ID = 100
'############################################

'############################################
'create window **************************************************
win = SetWindow("Skeleton App",x,y,w,h,0,winstyle)
'create button on win
button0 = SetButton(win,80,4,80,26,"Close Win2",0x50000000,0x200,b0ID)
'create second window
win2 = SetWindow("New Window",x2,y2,w2,h2,0,winstyle)
'****************************************************************

'/////////
Wait()
'\\\\\\\\\

Function WndProc (sys hwnd,wmsg,wparam,lparam) as sys callback

SELECT hwnd
'----------------------------------------
CASE win
'----------------------------------------
Select wmsg
	CASE WM_CLOSE
	DestroyWindow win
	MsgBox "Quit...","End program!"
	PostQuitMessage 0

    CASE WM_COMMAND	
	controlID = LoWord(wParam) 'get control ID
	notifyCode = HiWord(wParam) 'get notification message

	Select controlID
	   CASE b0ID
		If notifycode=0  
		MsgBox "Close New Window!","To Win2"
         CloseWindow(win2)	
		End If
    End Select 
End select
'----------------------------------------
CASE win2
'-----------------------------------------
Select wmsg
	CASE WM_CLOSE
	DestroyWindow win2
	MsgBox "Win2 Closed!","WIN2"	
End select

END SELECT

RETURN Default

END FUNCTION

X

Haim · « **Reply #13 on:** February 06, 2013, 04:34:26 AM »

Thanks Aurel
I will look at this over the weekend.

Haim

Peter · « **Reply #14 on:** February 06, 2013, 05:56:50 AM »

JRS,

I saw your IUP works on your side.
I like it, it isn't bad for a man whose lifetime is very short.

I think that IUP has a privilege in the programming world.

Oxygen Basic

News: