XProfan

Français

Heinz
Bernhard

allô, Sebastian !
d'abord einmal : je suis glücklich deine SKControl.Dll nutzen trop dürfen, vous ist suuuper.
Mir comme qui simple Art qui freien Farbauswahl et je voudrais ca aussi dans mei-nen Progrämmchen à den Nutzer weitergeben, dh. il soll qui la couleur qui Buttons et des Textes selbst bestimmen peut.
une zusätzliche Spielerei plan.
J'ai pensé daher daran, qui vom Nutzer gewählte la couleur dans einer Ini-Dossier trop Sauver (pour 18 Buttons) et beim Programmaufruf einlesen trop laisser.

Button erstellen :
Déclarer BF1$, BF1%
BF1% = RGB(0,255,0) Buttonfarbe

So funktioniert alles bestens :

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

eh bien auslesen aus qui Ini :
BF1$ = Readini$(C

rogrammeProfanAuswahl.Ini, Buttonfarbe, 1) Button-la couleur 1 einlesen

ici cela Problem :
je peux im ColorButton oui ne...aucune $, mais seulement % einsetzen.
quoi kansst du mir deviner ? si possible juste un paire Befehle angeben.

Herzlichen Dank d'avance, freundl. Grüße Heinz Bernhard

XProfan-Version 10+11
Betriebssystem Win7

30.04.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

RGH

tu dois den String dans un Integer transformer. en supplément gibt es qui Funktion Val():

BF1% = Val(Readini$(C

rogrammeProfanAuswahl.Ini, Buttonfarbe, 1)) Button-la couleur 1 einlesen

Salut
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 citation

Absatzweise Citation Zeilenweise Citation

Simple Backslashes - les voilà wieder.

@Heinz: str$

val

30.04.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

RGH

Simple Backslashes - les voilà wieder.

Vielleiht baue je Set(Escape, 2) doch encore dans XProfan 11un ...

Salut
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 citation

Absatzweise Citation Zeilenweise Citation

Heinz
Bernhard

Vielen Dank Roland et IF !
Bisherige Versuche malheureusement erfolglos.
dans qui Ini soll RGB(0,255,0) ausgelesen volonté.
avec Imprimer BF1% gibt es seulement une 0

Befehl peux BF1% = Str$ Val( ) ou bien BF1% = Val( ) lauten, Ergebnis ist toujours juste : 0

Freundl. Salut Heinz Bernhard

XProfan-Version 10+11
Betriebssystem Win7

30.04.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Kompilieren Marque Séparation

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 mais sollte...

30.04.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Sebastian
König

allô Heinz,

encore kurz zur weiteren Erläuterung: RGB() ist une Funktion, qui aus den trois Farbanteilen rouge, vert et bleu une LongInt-Wert avec qui gemischten la couleur zusammensetzt. Diesen Wert peux du comme String dans qui INI écrivons et beim Lesen avec Val() wieder dans un numéro zurückverwandeln (oui c'est ca ca pouvoir iFs Beispiel). qui String RGB(0,255,0) peux de Val() hingegen pas comme numéro interpretiert volonté (c'est oui une XProfan-Funktion), sodass Du dans dem le cas simple une 0 erhältst.

MfG

Sebastian

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

Alte Profan²-Seite: [...]

01.05.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

@Heinz
peut-être hilft Dir cela plus:
Kompilieren Marque Séparation

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 citation

Absatzweise Citation Zeilenweise Citation

Heinz
Bernhard

allô, je remercie Euch Allen ! ! !

qui pour mich entscheidende Hinweis était qui Typwandlung avant qui
Ini-Speicherung - eh bien klappt es.
merci aussi pour qui Hinweise zur tollen DLL et qui détaillé Speicherung qui Farbeinträge dans deine Ini. aussi am Schluss wieder qui Typwandlung !
OK, eh bien habe ego gefressen.
Habe oui ähnliche Probleme, des Einlesens aus einer Ini, déjà la fois dans Pixxos
[...]

programmiert. cet Discours ist très vite weil vous ne...aucune Waitinput oä. kennt et dadurch den Prozessor ständig avec 100 % schuften läßt.
ca était aussi un Grund zum Umstieg sur XProfan. eh bien muss seulement encore gelernt volonté - soweit Zeit ist. quand même, es pouvoir riesigen Spass.
et cet, unsere, Community ist simple Spitze - merci à alle Macher et hilfbereite Mitglieder !

Heinz Bernhard

XProfan-Version 10+11
Betriebssystem Win7

01.05.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation