Infinity-Profan

24.01.2015 ▲

Neuer Wert für long Eigenschaft, wenn Modus gui.mod:

gui.theme //=100, setzt ein Theme eines Controls

Gibt unter Android ja verschiedene Themes wie Holo etc. -
mit gui.mod gui.theme kann man ein Theme ändern.

Besonderheit damit auch für gui.grid:

gui.grid mit gui.mod gui.theme mit Theme -1 (Besonderheit) macht den
normalerweise unsichtbaren Raster damit, dass jede Rasterzelle eine
abwechselnde Untergrundfarbe bekommt, sichtbar:

01.02.2015 ▲

Neues Control:

gui.text //=1100, erzeugt ein reines Textcontrol

Hierbei auch erstmalig gut sichtbar die automatische Gravitation von Raster-Zellen:

01.02.2015 ▲

Neuer Mgl. für long Eigenschaft, wenn Modus gui.mod:
gui.text //=1100, setzt den Text eines Text-Controls

in XProfan.Api landet damit:
Kompilieren Markieren Separieren

proc settext(ctrl,string)

    gui(gui.mod,gui.text,ctrl,string)

endproc

01.02.2015 ▲

2 neue Eigenschaften für gui.hwnd, Raster-Zellen und Text-Control:

Werte für long Eigenschaft, wenn Modus gui.mod:

gui.bgcolor //=150, setzt die Hintergrundfarbe (long, zu beziehen mit Funktion rgb) von gui.hwnd, einer Rasterrahmen-Zelle oder eines Text-Controls.
gui.textcolor //=151, setzt die Textfarbe (long, zu beziehen mit Funktion rgb) von gui.hwnd, einer Rasterrahmen-Zelle oder eines Text-Controls.

Erstmalig dadurch auch schön darstellbar die automatische Neuberechnung
bei Bildschirmrotation:

Hier der Quelltext:
Kompilieren Markieren Separieren

//erzeuge grid
var grid=gui(gui.add,gui.grid,gui.hwnd,[4,6])// erzeuge ein 4x6 Raster auf gui.hwnd
gui gui.mod,gui.theme,grid,-1//setze Schachbrettmuster für Sichtbarmachung des grids
gui gui.mod,gui.bgcolor,[grid,2,2],rgb(0,0,255)// setze Hintergrundfarbe von Rasterfeldzelle 2,2 auf Blau
//erzeuge txt
gar txt=gui(gui.add,gui.text,[grid,4,6],"123\n456")//erzeuge Textcontrol im Rasterfeld 4,6 auf Grid grid
gui gui.mod,gui.bgcolor,txt,rgb(255,0,0)// setzte Hintergrundfarbe von Textcontrol txt auf Rot
gui gui.mod,gui.textcolor,txt,rgb(255,255,255)//setze Textfarbe von Textcontrol txt auf weiß

02.02.2015 ▲

So, musste mein Raster nochmals anders erzeugen und auch anders
berechnen.

Es gibt nicht mehr: gui.add und nicht mehr gui.mod.

Ein Raster erzeugen jetzt so: var mygrid=gui(gui.grid,parent,[x,y])

Die Breite/ Höhe eines controls ermitteln nun so:

gui(gui.width,control)
gui(gui.height,control)

Um eine Zelle eines Grids abzufragen:

gui(gui.width,[grid,x,y])
gui(gui.height,[grid,x,y])

[OFFTOPIC]
Ich finde das Grid-Prinzip das ich mir hier extra für AndroidProfan
einfallen lassen habe so interessant, dass ich es später auch für XProfan
umsetzen möchte. Die meisten Probleme im Zusammenhang mit der
ganzen Fensterskalierproblematik sind damit irgendwie von dannen.
[/OFFTOPIC]

Hier mal ein Beispieloutput:
Kompilieren Markieren Separieren

var grid1=gui(gui.grid,gui.hwnd,[3,5])
var grid2=gui(gui.grid,[grid1,2,2],[2,2])
var grid3=gui(gui.grid,[grid1,2,3],[2,2])
gui gui.height,[grid1,1],1
gui gui.height,[grid1,2],1
gui gui.height,[grid1,3],20
gui gui.height,[grid1,4],1
gui gui.height,[grid1,5],1

HofK

... wird noch kompakter und damit weniger fehleranfällig - gefällt mir
Wenn es "durch" ist mache ich die Kreisberechnung neu.

XProfan 11

Muss jetzt noch die X-Achsen berechnen und bisl kram...

Tolle neue weitere Mgl. auf einen Rutsch alle Zellenhöhen zu setzen:

statt
Kompilieren Markieren Separieren

gui gui.height,[grid1,1],1
gui gui.height,[grid1,2],1
gui gui.height,[grid1,3],20
gui gui.height,[grid1,4],1
gui gui.height,[grid1,5],1

geht auch:
Kompilieren Markieren Separieren

gui gui.height,grid1,[1,1,20,1,1]

Oder wenn man eine Zelle mit automatischer Höhe für Anpassung wünscht dann 0 oder null:
Kompilieren Markieren Separieren

gui gui.height,grid1,[20,null,20]

erzeugt eine Zelle mit 20er Höhe, eine die alles ausgleicht, und unten eine weitere mit 20er Höhe.