Infinity-Profan

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

- Page 3 -

Yes, clear, it is possible on one area several Controls to take off and
Controls can (naturally) too invisible his and invisible
means then too substanzlos in the Contrast To 100% transluzent.

there it awfully many Stilkonstanten gives - if neither integrally so
How with CSS - map I a manner interface, with the it possible his
should, with the from CSS known terms - or Ähnliche -
works to.

so would "gui visibility control false" objectively angeplant,
and so I will too something like How borderwidth, bordercolor,
as well as textcolor, etc.

it'll but difficult here good Konstantennamen to find in
special cut down. but Piece for Piece.

04/20/15 ▲

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

New:

gui(gui.width)
gui(gui.height)

give now The sizes the Fensters on.

11/12/15 ▲

If too not yet documents, so goes with the function GUI already what - in the principle even Buttons if one for coloured Textflächen uses so How I it here for me already teste for coming Infinity-Profan-Receiver then namens "Infinity-Profan-Bridge".

 $alias gray1 rgb 50 50 50
 $alias gray2 rgb 90 90 90
var grid=gui.grid gui.hwnd,[1,3]
var grid2=gui.grid [grid,1,3],[3,3]
var grid3=gui.grid [grid2,1,3],[3,1]
var btn
btn.1=gui.myButton [grid2,1,1] "Befehls- Referenz"
btn.2=gui.myButton [grid2,3,1] "IDE Starten"
btn.3=gui.myButton [grid3,1,1] "Drehen"
btn.4=gui.myButton [grid3,3,1] "KeepOn"
btn.5=gui.myButton [grid2,3,3] "Receiver aktivieren"
gui.width [grid2,2] 10
gui.height [grid2,2] 10
gui.width [grid3,2] 10
//

proc gui.myButton parent txt

    var h=gui.Text parent txt @gui.mybutton.proc
    gui.background h gray1

endproc

proc gui.myButton.proc txtCtrl state

    if state==0

        gui.background txtCtrl gray2

    else

        gui.background txtCtrl gray1

    endif

endproc

the example is verwirrend, the ploy however integrally simply:

The dritte Parameter of gui.Text as procedure-address:

var h=gui.Text parent txt @eineProc

Grabscht one on such one area then becomes the on eineProc weitergeleitet and the tappt im dunkeln knows 2 Parameter txtCtrl and state:

XProfan X3
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

proc gui.myButton.proc txtCtrl state

    if state==0

        gui.background txtCtrl gray2

    else

        gui.background txtCtrl gray1

    endif

endproc

02/10/16 ▲

Micha12334

since Meet look I today again mere in that Infinity - Gefüge and place solid, that "gui" and More correctly. operates! this is veritable horny. now goes it earnestly on projects!
thanks "IF".

Micha12334
Michael

XProfan 11
MS

02/10/16 ▲

HofK

Micha12334 (10.02.2016)

this is veritable horny. ...
thanks "IF".

Micha12334
Michael

// colours
var colour1  = rgb 255   0 100
var colour2  = rgb 120   0  70
var colour3  = rgb   0 200  70
var course = [45 [10 colour1]  [50 colour2]  [90 colour3] ]
var gr1 = gui.grid gui.hwnd [3 3]
gui.background    gr1    course
gui.background [gr1 3 1] colour1
gui.background [gr1 2 2] colour2
gui.background [gr1 1 3] colour3
gui.Text [gr1 2 2] "Das game the Farben"

XProfan 11

02/14/16 ▲

XProfan X3
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

Jupp, slow comes momentum mere.

02/15/16 ▲

HofK

an small gui Spielerei for two thumb

ACHTUNG! already antiquated, the new Version without var and for with global see below.


 // gui Spielerei
$alias f1 rgb 50 250  50
$alias f2 rgb  0  90 222
$alias f3 rgb  0   0 222
var grid   = gui.grid  gui.hwnd  [1 3]
var grid2  = gui.grid [grid 1 3] [3 3]
var left  =  [grid2 1 1]
var right =  [grid2 3 1] 
var btn
btn.1=gui.something left  "Tipp on it - accused lane"
btn.2=gui.something right "Touch here"
proc gui.something parent txt
    var h = gui.Text parent txt @nochwas
    gui.background h f1
    gui.textcolor  h f3
endproc
proc nochwas tCtrl st
    if st==0 
        gui.background grid  f2
        gui.background tCtrl f1
    endif       
    if st==1 
        gui.background grid  f1
        gui.background tCtrl f2
    endif   
    case st==2 : gui.background tCtrl f3
endproc

02/26/16 ▲

HofK

have time the gui Dings in the application minimizes.


grd = gui.grid  gui.hwnd  [5 5]
// one gui Dings
gui.Test [grd 3 3] "type"
//
proc gui.Test parent tx
    // Textcontrol
     gui.Text parent tx @action
endproc
proc action tCtrl stat
    // a action
   msg.toast "well look time"
endproc

less goes hardly - or?
Update: new Syntax! var away.

02/27/16 ▲

HofK (27.02.2016)

have time the gui Dings in the application minimizes.

less goes hardly - or?
Update: new Syntax! var away.

Thanks (new) event.button Perhaps so:

XProfan X3
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

myTestCtrl=gui.Text [gui.grid(gui.hwnd [5 5]) 3 3] "tippe"

proc event id dta

    global myTestCtrl
    case id==event.backkey : end

    if id==event.button

        case dta.ctrl==myTestCtrl : end

    endif

endproc

02/28/16 ▲

- Page 4 -

HofK

After whom Syntaxänderungen fit I time always The colours certain lines through Streichung (var) and zufügen (global etc.) on.

The gui Spielerei for two thumb then evtl. so:

---

Theme Monokai

Nachtrag:
there's another Error drin, see [...]

Neuere Version below!

02/29/16 ▲

HofK

If I the in the comparison now correctly. überschaue, has one now two Opportunities the type/wischen on/over gui boxes To react.

- by vordefinierter event function:
there in the Parameter data (assoziatives area) the lever evaluate.

- by self erstellter gui Unterfunktion on the cell:
("gui Dings" - for there still sure a tidy name?)
there one Textelement with of/ one "Aktions"-function slip. The "Aktions"-function dank Parameter txtCtrl for several Textelemente central to Auswertung the Stati 0 drauftippen, 1 release, 2 wegziehen.

XProfan 11

02/29/16 ▲