myfundialog test

[largo_winch]

I will check another approach to create a test-dialog with an own control. my first post I've deleted.

[largo_winch]

I have an idea to create an own "control", but how to translate or parse this one to thinbasic is still a problem, but I will find a way to manage after having done some experiments ;)

fundialog test example:


' Empty GUI script created on 11-21-2011, 11-22-2011 11:07.13, 16:58:26 by largo_winch (ThinAIR)

Module "myfundialog2"
Uses "console"

%btn = 1001

Dim res As Long
Dim abc, test As Long, hDlgs as long
DIM lstyle as long, lexstyle as long
Dim strx as string


PrintL "test myfundialog"

PrintL "test"

test = MsgBox 0, "fundialog: " + fundialog("simple test dialog",10,10,300,400)

ButtonControl(hDlgs, 100, "testME", 50,50,120,40,100)

PrintL "waitkey"

WaitKey



this example works for an own "dialog" with having new title and size for dialog window frame. "fundialog2.dll" I include in zip file too.

I will explore more about this topic, even there is no feedback or interest for that, but I can imagine why there isn't big interests ;)

bye largo

[largo_winch]

next one. this could be the idea of a background to create a control. the "control" must be defined with own function and "add" and "button" function separately too. I will see if there's a change to make it as a chapter for learning about module handling and parsing. it's not very important to get feedback anymore here for this topic, as there wasn't any answer about this interesting stuff ;)


' Empty GUI script created on 11-23-2011 11:07:42 by (ThinAIR)

Uses "console", "UI"

Function TBMain () As Long
Local hDlg As Long
Local mystyle As Long
Local mytest As Long
Local strx As String

strx = "my push Button!"
mytest = pushButton(hDlg,100,100,250,350,strx, mystyle)

End Function

Sub PushButton( ByVal cid As Long, _
ByVal x As Long, _
ByVal y As Long, _
ByVal cx As Long, _
ByVal cy As Long, _
ByRef caption As String, _
ByVal styles As Long )
styles = 0
MsgBox 0, "test my pushbutton"

'Controls( cid, x, y, cx, cy, caption, 0, "BUTTON", _
' %BS_PUSHBUTTON Or styles )
End Sub



after that it may be possible to create command something like "newControl" with fictive (pseudo code) code :


'Declaration
SUB NewCONTROL ( _
parent AS CONTROL, _
text AS STRING, _
left AS INTEGER, _
top AS INTEGER, _
width AS INTEGER, _
height AS INTEGER _
)

END SUB


addendum:

1) Controls are basic building blocks of a windows application.


CreateWindow(TEXT("STATIC"), lyrics,
WS_CHILD | WS_VISIBLE | SS_LEFT,
20, 20, 300, 230,
hwnd, (HMENU) 1, NULL, NULL)

Here we create the static control. We display text. It is aligned to the left.

2) Static control:
"Button"

A button is a simple control. It has a text label. It is used to trigger an action.

bye, largo

[zak]

Hi Largo
have you seen the Eros post and example thinBasic_FreePascalExample.zip‎ here:
http://www.thinbasic.com/community/showthread.php?11479-It-works-for-me.
about making modules in freepascal/Lazarus/delphi
i think you are using powerbasic in making the dll.
i will use Lazarus to make something simple.

regards

[largo_winch]

may be I have constructed a "control", thinbasic gives value "1" as return value, so that's good I am thinking.


' Empty GUI script created on 11-21-2011, 11-22-2011 11:07.13, 16:58:26 by largo_winch (ThinAIR)

Module "myfundialog2c"
Uses "console"

#INCLUDE "equates.inc"

%btn = 101
%IDBUTTON = 102

Dim res As Long
Dim abc, test As Long, hDlg As Long
Dim lstyle As Long, lexstyle As Long, myInst As Long
Dim strx As String, b As Long

PrintL "test myfundialog"

PrintL "test"
lstyle = %WS_CHILD Or %WS_VISIBLE Or %WS_TABSTOP Or %BS_FLAT Or %BS_PUSHBUTTON

test = MsgBox 0, "fundialog: " + fundialog("simple test dialog",10,10,300,400)

abc = MsgBox 0, "myControl: " + myControl(0, "BUTTON","", lstyle, 40,40,60,24, _
hDlg,%IDBUTTON,myInst )

MsgBox 0, "control: " + Str$(abc) 'ok = "1"
PrintL "control: " + Str$(abc) 'ok = "1"

PrintL "waitkey"

WaitKey



I only have to pack the "control" and the dialog together to show the button on dialog example. that's perhaps the task for next days.

in this example I am only using "console" and "myfundialog2c", there's no "UI" to see

@zak, thanks for feedback and your link, no I didn't have a look at this topic yet, I don't know freepascal or lazarus. wish you good luck for building your own module and if eros has done a lot of important and basically work for embedding that into thinbasic, I am sure that this is a lot of fun for you to program your own example in future days.

bye, largo