System Farben verwenden - Paules-PC-Forum.de

Hallo1001 · 26.02.2009, 23:29

Hallo alle Miteinander!

Wer in seinem X-Profan Programm gerne die System-Farben verwenden möchte, der kan diese mit diesem kleinem Demo in Erfahrung bringen.

Bei den Farb-Namen handelt es sich um API Aufrufe, die auch direkt im X-Profan Programm verwendet werden können.

Beispiel:
$H Windows.ph
CLS ~GetSysColor(~COLOR_ACTIVECAPTION)
waitinput

Damit kann man dann die gleichen Farben in seinem X-Programm verwenden, die auch das Windowssystem verwendet. Wen man die Farbe anklickt, dann wird der Farbwert angezeigt. Und man kann den Farb-Namen kopieren und ihn so in sein eigenes X-Profan Programm einfügen.

Der Quellcode und die EXE-Datei können hier heruntergeladen werden:
http://www.pcfilter.de/Hallo1001/X-P...stemfarben.zip

LG Jens

**Frabbing** · 26.02.2009, 23:34

Das sind doch kleine Helfer, die immer mal fehlen. Und nette Einsteiger-Übungen. Weiter so!

Hallo1001 · 26.02.2009, 23:48

THX...
Das währe aber auch ohne Eure (und speziell auch Deiner) Hilfe überhaupt nicht möglich gewasen...

horsthorn · 27.02.2009, 06:12

Sowas hab ich schon immer gesucht !

Hab Dir noch ein paar Zeilen dazu geschrieben. Wenn jetzt eine Farbe ausgewählt wird, stehen die RGB(r%,g%,b%)-Werte in der Zwischenablage

Zusätzlich solltest Du schon reinschreiben, von wem das Tool ist. Schließlich war es Deine Idee und Deine Arbeit

Zitat:

PROC Farbe
Parameters Farbe%
Declare Tmp$
Tmp$ = "Rotanteil: "+Str$(GetRValue(Farbe%))+"\n"
Tmp$ = Tmp$+"Grünanteil: "+Str$(GetGValue(Farbe%))+"\n"
Tmp$ = Tmp$+"Blauanteil: "+Str$(GetBValue(Farbe%))+"\n\n"
tmp$=tmp$;"Eine Info über den Programmautor \n"
tmp$=tmp$;"Copyright - Name - ©2009"
MessageBox(Tmp$, "Info Farbe", 64)
CLEARCLIP
PUTCLIP "RGB("+Str$(GetRValue(Farbe%))+","+Str$(GetGValue(Farbe%))+","+Str$(GetBValue(Fa rbe%))+")"
ENDPROC

So könnte die Messagebox jetzt aussehen - nur ein Vorschlag

Hallo1001 · 27.02.2009, 23:18

@Horst

Jo, dass mit dem Namen ist glatt unter gegangen. Deinen Vorschlag mit der Zwischenablage finde ich gut und ich habe Deinen Code auch mit eingefügt. Ich habe die Daten Neu hochgeladen, jetzt sollte alles soweit OK sein...

LG Jens

**Jac de Lad** · 28.02.2009, 09:16

Ich kann allem Positivem, hier gesagten, nur beipflichten.

26.02.2009, 23:29	#1 (Direktlink)
Hallo1001 Ist öfter hier Registriert seit: 20.02.2009 Alter: 39 Beiträge: 71	System Farben verwenden Hallo alle Miteinander! Wer in seinem X-Profan Programm gerne die System-Farben verwenden möchte, der kan diese mit diesem kleinem Demo in Erfahrung bringen. Bei den Farb-Namen handelt es sich um API Aufrufe, die auch direkt im X-Profan Programm verwendet werden können. Beispiel: $H Windows.ph CLS ~GetSysColor(~COLOR_ACTIVECAPTION) waitinput Damit kann man dann die gleichen Farben in seinem X-Programm verwenden, die auch das Windowssystem verwendet. Wen man die Farbe anklickt, dann wird der Farbwert angezeigt. Und man kann den Farb-Namen kopieren und ihn so in sein eigenes X-Profan Programm einfügen. Der Quellcode und die EXE-Datei können hier heruntergeladen werden: http://www.pcfilter.de/Hallo1001/X-P...stemfarben.zip LG Jens

26.02.2009, 23:34	#2 (Direktlink)
Frabbing Super-Moderator Registriert seit: 05.02.2009 Ort: Westliches NRW Alter: 44 Beiträge: 5.093	Das sind doch kleine Helfer, die immer mal fehlen. Und nette Einsteiger-Übungen. Weiter so! __________________ Gruß, Frank Webpage http://frabbing.bplaced.net mit Freeware - Tools, Spiele und Grafiken.

28.02.2009, 09:16	#6 (Direktlink)
Jac de Lad Super-Moderator Registriert seit: 06.02.2009 Ort: Coswig Alter: 27 Beiträge: 1.159	Ich kann allem Positivem, hier gesagten, nur beipflichten. __________________ XProfan-Profi (XProfan X2+XPIA) http://jacdelad.bplaced.net http://jacdelad.square7.ch

Themen-Optionen
Druckbare Version zeigen Jemanden per E-Mail auf dieses Thema hinweisen
Ansicht
Linear-Darstellung Zur Hybrid-Darstellung wechseln Zur Baum-Darstellung wechseln

Ähnliche Themen
Thema	Autor	Forum	Antworten	Letzter Beitrag
System Sound verwenden	Hallo1001	Helfer & Tools	5	26.02.2009 23:20
2 Systemplatten verwenden	Sohn-Gottes	Hardware - Problemlösungen	5	20.02.2009 19:16
AGP auf PCIe verwenden	Schrotti	Hardware - Kaufempfehlungen	4	01.10.2006 14:50
Fax verwenden ?	Klausi 11111	Hardware - Kaufempfehlungen	1	03.01.2006 12:11
PcAnywhere verwenden	Pink_	Software - Allgemein	0	11.05.2005 22:06

26.02.2009, 23:48	#3 (Direktlink)
Hallo1001 Ist öfter hier Registriert seit: 20.02.2009 Alter: 39 Beiträge: 71	THX... Das währe aber auch ohne Eure (und speziell auch Deiner) Hilfe überhaupt nicht möglich gewasen...

27.02.2009, 23:18	#5 (Direktlink)
Hallo1001 Ist öfter hier Registriert seit: 20.02.2009 Alter: 39 Beiträge: 71	@Horst Jo, dass mit dem Namen ist glatt unter gegangen. Deinen Vorschlag mit der Zwischenablage finde ich gut und ich habe Deinen Code auch mit eingefügt. Ich habe die Daten Neu hochgeladen, jetzt sollte alles soweit OK sein... LG Jens