XProfan

Español

Heinz
Bernhard

¡Hola, Sebastian !
Zuerst una vez : Yo bin glücklich deine SKControl.Dll nutzen a dürfen, ellos es suuuper.
Mir gefällt el einfache Art el freien Farbauswahl y yo möchte dies auch en mei-nen Progrämmchen a el Nutzer weitergeben, dh. él se el Farbe el Buttons y des Textes incluso bestimmen puede.
Un zusätzliche Spielerei eben.
Pensé por lo tanto daran, el vom Nutzer gewählte Farbe en uno Ini-Expediente a speichern (para 18 Buttons) y beim Programmaufruf einlesen que se.

Button redactar :
Declarar BF1$, BF1%
BF1% = RGB(0,255,0) Buttonfarbe

So funktioniert alles bestens :

cadena cadena#,0 = Test
1& = SKCtrl_CreateColorButton(%Hwnd,cadena#, RGB(0,0,255), BF1%, 14,15,250,30, %hInstance)

Nun auslesen de el Ini :
BF1$ = Readini$(C

rogrammeProfanAuswahl.Ini, Buttonfarbe, 1) Button-farbe 1 einlesen

Hier el problema :
Puedo en el ColorButton sí kein $, pero sólo % einsetzen.
Was kansst du me raten ? Wenn posible igual unos pocos Befehle angeben.

Herzlichen Dank en el voraus, freundl. Grüße Heinz Bernhard

XProfan-Version 10+11
Betriebssystem Win7

30.04.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

Usted mußt el String en una Integer umwandeln. Dazu hay el Función Val():

BF1% = Val(Readini$(C

rogrammeProfanAuswahl.Ini, Buttonfarbe, 1)) Button-farbe 1 einlesen

Saludo
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

30.04.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Einfache Backslashes - como son ellos otra vez.

@Heinz: str$

val

30.04.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

Einfache Backslashes - como son ellos otra vez.

Vielleiht baue Yo Conjunto(Escape, 2) todavía en XProfan 11una ...

Saludo
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

30.04.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Heinz
Bernhard

Vielen Dank Roland y IF !
Bisherige Versuche desafortunadamente erfolglos.
In el Ini se RGB(0,255,0) ausgelesen voluntad.
Mit Imprimir BF1% hay sólo una 0

Befehl kann BF1% = Str$ Val( ) oder BF1% = Val( ) lauten, Ergebnis es siempre igual : 0

Freundl. Saludo Heinz Bernhard

XProfan-Version 10+11
Betriebssystem Win7

30.04.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Kompilieren Marca Separación

var f%=rgb(63,127,255)
print f%
writeini meine.ini,opt,value=str$(f%)
f%=val(readini$(meine.ini,opt,value))
print f%
waitInpu

ungetestet aber debería...

30.04.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Sebastian
König

¡Hola Heinz,

todavía kurz a más Erläuterung: RGB() es una Función, de el drei Farbanteilen Rot, Grün y Blau una LongInt-Valor con el gemischten Farbe zusammensetzt. Diesen Valor kannst du como String en el INI escribir y beim Lesen con Val() otra vez en un Zahl zurückverwandeln (genau dies macht iFs Ejemplo). Der String RGB(0,255,0) kann de Val() hingegen no como Zahl interpretiert voluntad (es sí una XProfan-Función), sodass Usted en el Fall simplemente una 0 erhältst.

MfG

Sebastian

Windows XP, XProfan/Profan² 4.5 bis 11
Profan2Cpp-Homepage: [...]

Alte Profan²-Seite: [...]

01.05.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

@Heinz
Tal vez hilft Usted el más:
Kompilieren Marca Separación

So sieht bei mir ein Farbeintrag in eine INI-Datei aus:
-------------------------------------------------------
[Oberflächen-Farben]
Hintergrund-Rot=230
Hintergrund-Grün=240
Hintergrund-Blau=250
Schrift-Rot=0
Schrift-Grün=0
Schrift-Blau=150
-------------------------------------------------------
So schreibe ich in die INI-Datei:
WRITEINI config_datei$,Oberflächen-Farben,Hintergrund-Rot = r$
WRITEINI config_datei$,Oberflächen-Farben,Hintergrund-Grün = g$
WRITEINI config_datei$,Oberflächen-Farben,Hintergrund-Blau = b$
WRITEINI config_datei$,Oberflächen-Farben,Schrift-Rot = r1$
WRITEINI config_datei$,Oberflächen-Farben,Schrift-Grün = g1$
WRITEINI config_datei$,Oberflächen-Farben,Schrift-Blau = b1$
-----------------------------------------------------
So wird die INI-Datei gelesen:
r$=READINI$(config_datei$,Oberflächen-Farben,Hintergrund-Rot)
g$=READINI$(config_datei$,Oberflächen-Farben,Hintergrund-Grün)
b$=READINI$(config_datei$,Oberflächen-Farben,Hintergrund-Blau)
r1$=READINI$(config_datei$,Oberflächen-Farben,Schrift-Rot)
g1$=READINI$(config_datei$,Oberflächen-Farben,Schrift-Grün)
b1$=READINI$(config_datei$,Oberflächen-Farben,Schrift-Blau)
---------------------------------------------------
Wichtig ist diese Zeile zum Schluss:
r%=VAL(r$):g%=VAL(g$):b%=VAL(b$):r1%=VAL(r1$):g1%=VAL(g1$):b1%=VAL(b1$)
Damit wird der Hintergrund bestimmt:
RGB(r%,g%,b%)
und die Schriftfarbe:
RGB(r1%,g1%,b1%)
Damit kannst Du Deine Buttons auch farblich bestimmen.

01.05.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Heinz
Bernhard

¡Hola, Yo danke Euch Allen ! ! !

Der para mich entscheidende Referencia war el Typwandlung antes
Ini-Speicherung - nun klappt lo.
Gracias auch para el Hinweise a tollen DLL y el ausführliche Speicherung el Farbeinträge en deine Ini. Auch al Schluss otra vez el Typwandlung !
OK, nun habe ego gefressen.
Posesiones sí ähnliche Problemas, des Einlesens de uno Ini, ya veces en Pixxos
[...]

programmiert. Diese Lingua es muy rápidamente porque ellos kein Waitinput oä. sabe y dadurch el Prozessor ständig con 100 % schuften läßt.
Dies fue una Grund para Umstieg en XProfan. Nun muss sólo todavía gelernt voluntad - soweit Tiempo es. Trotzdem, lo macht riesigen Spass.
Und esta, unsere, Comunidad es simplemente Spitze - danke a todos Macher y hilfbereite Miembros !

Heinz Bernhard

XProfan-Version 10+11
Betriebssystem Win7

01.05.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita