Infinity-Profan

24.01.2015 ▲

- Seite 3 -

HofK

Gerade drauf gestoßen - Text von Controls ändern?

var erg_txt = gui( gui.text, gridZelle, "Ergebnis" ) // definiert ein Textelement
gui (gui.text, erg_txt, "Die Kreisfläche beträgt" + flaeche) // beschriftet neu oder pappt den neuen Text drüber?

var fl_btn = gui( gui.button, gridZelle, "Kreisfläche", kreis ) //definiert einen Button
gui( gui.button, fl_btn , "Kreisfl....", kreis ) // kann er so neu beschriftet werden? oder gibt das"Kuddelmuddel"

Klar, Referenz ist noch nicht ganz fertig.

09.03.2015 ▲

Einfach:

gui gui.text, handle, text

setzt den Text des Controls.
Buttonänderung per gui gui.button

bzw. später

gui text,handle,string
gui button,handle,...

09.03.2015 ▲

HofK

iF (09.03.15)

Buttonänderung per
...
gui button,handle,...

Wäre funktional soetwas wie in JavaScript
---.style.visibility = "hidden";
---.style.visibility = "visible";
bei InfinityProfan machbar?

Also nicht ändern, sondern bei Bedarf den Button verstecken, damit er mal zwischendurch
"außer Gefecht" und auch unsichtbar ist.

XProfan 11

20.04.2015 ▲

Ja, klar, es ist möglich auf ein Feld mehrere Controls abzulegen und
Controls können (natürlich) auch unsichtbar sein und unsichtbar
bedeutet dann auch substanzlos im Gegensatz zu 100% transluzent.

Da es unheimlich viele Stilkonstanten gibt - wenn auch nicht ganz so
wie bei CSS - plane ich eine Art Schnittstelle, mit der es möglich sein
soll, mit den aus CSS bekannten Bezeichnungen - oder Ähnliche -
arbeiten zu können.

So wäre "gui visibility control false" tatsächlich angeplant,
und so will ich auch sowas wie borderwidth, bordercolor,
wie auch textcolor, etc.

Es wird aber schwierig hier gute Konstantennamen zu finden in
speziellen fällen. Aber Stück für Stück.

20.04.2015 ▲

Neu:

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

geben jetzt die Größen des Fensters an.

12.11.2015 ▲

Wenn auch noch nicht dokumentiert, so geht mit der Funktion GUI schon was - im Prinzip sogar Buttons wenn man dafür gefärbte Textflächen verwendet so wie ich es hier für mich bereits teste für den kommenden Infinity-Profan-Receiver dann namens "Infinity-Profan-Bridge".

 $alias grau1 rgb 50 50 50
 $alias grau2 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 grau1

endproc

proc gui.myButton.proc txtCtrl state

    if state==0

        gui.background txtCtrl grau2

    else

        gui.background txtCtrl grau1

    endif

endproc

Das Beispiel ist aber verwirrend, der Trick jedoch ganz einfach:

Der dritte Parameter von gui.text als Prozedur-Adresse:

var h=gui.text parent txt @eineProc

Grabscht man auf solch ein Feld dann wird das an eineProc weitergeleitet und die sie kennt 2 Parameter txtCtrl und state:

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

proc gui.myButton.proc txtCtrl state

    if state==0

        gui.background txtCtrl grau2

    else

        gui.background txtCtrl grau1

    endif

endproc

10.02.2016 ▲

Micha12334

Seit Tagen schaue ich heute wieder rein ins Infinity - Gefüge und stelle fest, dass "gui" und mehr richtig arbeitet! Das ist wahrhaft geil. Nun geht es ernsthaft an Projekte!
Danke "IF".

Micha12334
Michael

XProfan 11
MS

10.02.2016 ▲

HofK

Micha12334 (10.02.2016)

Das ist wahrhaft geil. ...
Danke "IF".

Micha12334
Michael

// Farben
var farbe1  = rgb 255   0 100
var farbe2  = rgb 120   0  70
var farbe3  = rgb   0 200  70
var verlauf = [45 [10 farbe1]  [50 farbe2]  [90 farbe3] ]
var gr1 = gui.grid gui.hwnd [3 3]
gui.background    gr1    verlauf
gui.background [gr1 3 1] farbe1
gui.background [gr1 2 2] farbe2
gui.background [gr1 1 3] farbe3
gui.text [gr1 2 2] "Das Spiel der Farben"

XProfan 11

14.02.2016 ▲

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

Jupp, langsam kommt Schwung rein.

15.02.2016 ▲

HofK

Eine kleine gui Spielerei für zwei Daumen

ACHTUNG! Schon veraltet, die neue Version ohne var und dafür mit global siehe weiter unten.


 // 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 links  =  [grid2 1 1]
var rechts =  [grid2 3 1] 
var btn
btn.1=gui.irgendwas links  "Tipp drauf - zieh weg"
btn.2=gui.irgendwas rechts "Touch hier"
proc gui.irgendwas 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

26.02.2016 ▲

HofK

Habe mal das gui Dings in der Anwendung minimiert.


grd = gui.grid  gui.hwnd  [5 5]
// ein gui Dings
gui.test [grd 3 3] "tippe"
//
proc gui.test parent tx
    // Textcontrol
     gui.text parent tx @aktion
endproc
proc aktion tCtrl stat
    // eine Aktion
   msg.toast "na schau mal"
endproc

Weniger geht kaum - oder?
Update: neue Syntax! var entfernt.

27.02.2016 ▲

HofK (27.02.2016)

Habe mal das gui Dings in der Anwendung minimiert.

Weniger geht kaum - oder?
Update: neue Syntax! var entfernt.

Dank (neu) event.button vielleicht so: