Gerätfarbe verändern
Re: Gerätfarbe verändern
Oh nein, wie unredlich von mir!
Ich werde Buße tun und Asche auf mein Haupt streuen.
Ich werde Buße tun und Asche auf mein Haupt streuen.
Now these points of data make a beautiful line,
And we're out of Beta, we're releasing on time.
And we're out of Beta, we're releasing on time.
Re: Gerätfarbe verändern
Der Gerät wird nie müde, der Gerät schläft nie ein...
Re: Gerätfarbe verändern
Ich vermute eher den Frame, dass dieser nicht so farblich will wie er es möchte?
Code: Alles auswählen
EnableExplicit
Enumeration
#Wnd
EndEnumeration
Enumeration
#Txt_1
#Txt_2
#Str_1
#Cnt
#Cnt2
EndEnumeration
Enumeration
#Fnt_SegoeUI12
EndEnumeration
Define.i Event, EventWindow, EventGadget, EventType, EventMenu
LoadFont(#Fnt_SegoeUI12, "Segoe Ui", 12, #PB_Font_HighQuality)
Procedure OpenWindow_Window_0()
OpenWindow(#Wnd, 517, 23, 782, 662, "Programm", #PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_TitleBar|#PB_Window_ScreenCentered|#PB_Window_Invisible)
SetWindowColor(#Wnd, RGB(254, 199, 117))
TextGadget(#Txt_1, 65, 35, 130, 30, "1px Frame")
;1px Line
ContainerGadget(#Cnt, 55, 50, 670, 555, #PB_Container_BorderLess);{
SetGadgetColor(#Cnt, #PB_Gadget_BackColor, RGB(76, 76, 76))
;Inhalte hierrein
ContainerGadget(#Cnt2, 1, 1, 668, 553, #PB_Container_BorderLess);{
SetGadgetColor(#Cnt2, #PB_Gadget_BackColor, RGB(254, 199, 117))
TextGadget(#Txt_2, 63, 25, 70, 16, "Betreff", #SS_CENTER|#SS_CENTERIMAGE)
SetGadgetColor(#Txt_2, #PB_Gadget_BackColor, RGB(254, 199, 117))
StringGadget(#Str_1, 81, 45, 508, 24, "", #PB_String_BorderLess)
SetGadgetColor(#Str_1, #PB_Gadget_BackColor, RGB(254, 221, 174))
SetGadgetFont(#Str_1, FontID(#Fnt_SegoeUI12))
; und hier der weitere Rest
CloseGadgetList();}
CloseGadgetList();}
TextGadget(#Txt_1, 65, 42, 70, 16, "1px Frame", #SS_CENTER|#SS_CENTERIMAGE)
SetGadgetColor(#Txt_1, #PB_Gadget_BackColor, RGB(254, 199, 117))
HideWindow(#Wnd, #False)
EndProcedure
OpenWindow_Window_0()
Repeat
Event = WaitWindowEvent()
Select Event
; ///////////////////
Case #PB_Event_Gadget
EventGadget = EventGadget()
EventType = EventType()
If EventGadget = #Txt_1
ElseIf EventGadget = #Cnt
EndIf
; ////////////////////////
Case #PB_Event_CloseWindow
EventWindow = EventWindow()
If EventWindow = #Wnd
CloseWindow(#Wnd)
Break
EndIf
EndSelect
ForEver
PB v5.43 LTS + v6.02 LTS | Windows 7 x86 + 11 x64 - Gforce RTX 4090 - AMD Ryzen 9 5900X 12-Core Processor 4.2 GHz - 64,0 GB RAM,
ASUSTEK TUF Gaming X570 Plus
ASUS ROG Thor-1200P Platinum (1200W, Aura Sync, OLED Display, 0dB-Cooling)
1x 1 TByte Samsung MZ-V7S500BW 970 EVO Plus 1 TB NVMe M.2 Internal SSD
1x 2 TByte Samsung MZ-V7S2T0BW 970 EVO Plus 2 TB NVMe M.2 Internal SSD
von BiSONTE! TOP. Kauft Eure Hardware gern bei ihm.
Monitor:
LG 38GL950G-B 95 (38 Zoll) Ultragear Curved 21: 9 UltraWide QHD IPS
ASUSTEK TUF Gaming X570 Plus
ASUS ROG Thor-1200P Platinum (1200W, Aura Sync, OLED Display, 0dB-Cooling)
1x 1 TByte Samsung MZ-V7S500BW 970 EVO Plus 1 TB NVMe M.2 Internal SSD
1x 2 TByte Samsung MZ-V7S2T0BW 970 EVO Plus 2 TB NVMe M.2 Internal SSD
von BiSONTE! TOP. Kauft Eure Hardware gern bei ihm.
Monitor:
LG 38GL950G-B 95 (38 Zoll) Ultragear Curved 21: 9 UltraWide QHD IPS
Re: Gerätfarbe verändern
Hallo!
Ich finde die Lösung von udg schön.
Und im übrigen wird wohl der Rahmen des "Frames" als Faden bezeichnet.
Ich finde die Lösung von udg schön.
Und im übrigen wird wohl der Rahmen des "Frames" als Faden bezeichnet.
Betriebssysteme: div. Windows, Linux, Unix - Systeme
no Keyboard, press any key
no mouse, you need a cat
no Keyboard, press any key
no mouse, you need a cat
Re: Gerätfarbe verändern
Allerdings hätte ich da jetzt einen Leinwandkasten (unredl. CanvasGadget) mit Behälterflagge (unredl. #PB_Canvas_Container) benutzt,
und die Fäden selbst gezeichnet. Mehr Freiheit bei Form und Farbe
und die Fäden selbst gezeichnet. Mehr Freiheit bei Form und Farbe
PureBasic 6.04 LTS (Windows x86/x64) | Windows10 Pro x64 | Asus TUF X570 Gaming Plus | R9 5900X | 64GB RAM | GeForce RTX 3080 TI iChill X4 | HAF XF Evo | build by vannicom
- ts-soft
- Beiträge: 22292
- Registriert: 08.09.2004 00:57
- Computerausstattung: Mainboard: MSI 970A-G43
CPU: AMD FX-6300 Six-Core Processor
GraKa: GeForce GTX 750 Ti, 2 GB
Memory: 16 GB DDR3-1600 - Dual Channel - Wohnort: Berlin
Re: Gerätfarbe verändern
Warum wird diesem "Menschen", der sich nicht korrekt, wie in einem Forum üblich, ausdrücken kann, geantwortet?
Findet Ihr das nicht ein bißchen lächerlich (rhetorische Frage, bedarf keiner Antwort)?
Findet Ihr das nicht ein bißchen lächerlich (rhetorische Frage, bedarf keiner Antwort)?
PureBasic 5.73 LTS | SpiderBasic 2.30 | Windows 10 Pro (x64) | Linux Mint 20.1 (x64)
Nutella hat nur sehr wenig Vitamine. Deswegen muss man davon relativ viel essen.
Nutella hat nur sehr wenig Vitamine. Deswegen muss man davon relativ viel essen.
Re: Gerätfarbe verändern
Ich gebe @ts-soft vollkommen Recht!ts-soft hat geschrieben:Warum wird diesem "Menschen", der sich nicht korrekt, wie in einem Forum üblich, ausdrücken kann, geantwortet?
Findet Ihr das nicht ein bißchen lächerlich (rhetorische Frage, bedarf keiner Antwort)?
Wollte hier nur ein wenig lesen, und dann schon wieder dieser lächerliche M....
Barcodes for PureBasic - http://micha122.bplaced.net/
Re: Gerätfarbe verändern
... Ihnen ...Josef Berger hat geschrieben:Werte Gemeinde!
Ich freue mich, Sie mitteilen zu dürfen, dass ich jetzt die Vollversion besitze und ich kann das Produkt uneingeschränkt nutzen.
Heute fing ich sofort an, mein erstes Produkt zu erschaffen, nachdem ich schon eine Produktidee gefunden habe. Ich schreibe zuerst den Gestaltungsbereich (unredl. Design) und habe schon mein erstes Problem bei der Umsetzung.
Fenster, Schnurgerät und Herausgebergerät kann ich problemlos einfärben, aber ich will auch das Rahmengerät einfärben. Leider gibt es laut Hilfe keine Möglichkeit, den Hintergrund zu verändern.
Hier mein Quelltext meines Produktes im Anfangsstadium:
Fragend,Code: Alles auswählen
Define Ereignis Define GeraetEreignis If OpenWindow(1, 0, 0, 1000, 850, "Faden erschaffen", #PB_Window_SystemMenu) If ContainerGadget(1, 0, 0, 1000, 850, #PB_Container_Raised) If FrameGadget(2, 50, 50, 900, 750, "Faden erschaffen") TextGadget(3, 100, 100, 100, 20, "Betreff") StringGadget(4, 100, 120, 800, 20, "") ButtonGadget(7, 100, 170, 100, 20, "Fett") ButtonGadget(8, 100, 190, 100, 20, "Kursiv") ButtonGadget(9, 100, 210, 100, 20, "Unterstrichen") ButtonGadget(10, 100, 230, 100, 20, "Zitat") ButtonGadget(11, 100, 250, 100, 20, "Aufzählung") ButtonGadget(12, 100, 270, 100, 20, "Aufzählungspunkt") ButtonGadget(13, 100, 290, 100, 20, "Bild") ButtonGadget(14, 100, 310, 100, 20, "Adresse") ButtonGadget(16, 100, 360, 20, 20, ":D") ButtonGadget(17, 120, 360, 20, 20, ":)") ButtonGadget(18, 140, 360, 20, 20, ":(") ButtonGadget(19, 160, 360, 20, 20, ":p") ButtonGadget(20, 180, 360, 20, 20, ":?") ButtonGadget(21, 100, 380, 20, 20, "8)") ButtonGadget(22, 120, 380, 20, 20, "<)") ButtonGadget(23, 140, 380, 20, 20, ";)") ButtonGadget(24, 160, 380, 20, 20, ":|") ButtonGadget(25, 180, 380, 20, 20, ">:)") ButtonGadget(26, 100, 400, 20, 20, ":P") ButtonGadget(27, 120, 400, 20, 20, "xD") ButtonGadget(28, 140, 400, 20, 20, "^^") ButtonGadget(29, 160, 400, 20, 20, ":*") ButtonGadget(30, 180, 400, 20, 20, "-.-") ButtonGadget(31, 100, 420, 100, 20, "------------------------------") ComboBoxGadget(35, 100, 470, 100, 20) TextGadget(15, 100, 150, 100, 20, "Formatierung") TextGadget(33, 100, 450, 100, 20, "Textbausteine") TextGadget(34, 100, 340, 100, 20, "Emotionen") TextGadget(5, 220, 150, 100, 20, "Nachrichtentext") EditorGadget(6, 220, 170, 680, 500) ButtonGadget(32, 450, 700, 200, 50, "Publizieren") EndIf EndIf SetWindowColor(1, RGB(255, 237, 195)) SetGadgetColor(1, 2, RGB(255, 237, 195)) SetGadgetColor(3, 2, RGB(255, 237, 195)) SetGadgetColor(5, 2, RGB(255, 237, 195)) SetGadgetColor(15, 2, RGB(255, 237, 195)) SetGadgetColor(33, 2, RGB(255, 237, 195)) SetGadgetColor(34, 2, RGB(255, 237, 195)) SetGadgetColor(4, 2, RGB(255, 242, 213)) SetGadgetColor(6, 2, RGB(255, 242, 213)) Repeat Ereignis = WaitWindowEvent() If Ereignis = #PB_Event_Gadget GeraetEreignis = EventGadget() If GeraetEreignis = 1 EndIf EndIf Until Ereignis = #PB_Event_CloseWindow EndIf
Josef Berger
... das Produkt uneingeschränkt nutzen kann. ...
Bevor Sie eine neue Sprache erlernen wollen (PureBasic), sollten Sie zuerst die deutsche Sprache richtig anwenden.
Mein Gott, bin ich mal wieder redlich.
-
- Beiträge: 7
- Registriert: 12.04.2018 13:01
Re: Gerätfarbe verändern
Sie haben Recht. Tut mir herzlich leid. Es ist unverzeihlich. Ich war so aufgeregt und in Euphorie verfallen, weil ich nun das Programmierungsprodukt besitze. Ich bitte Sie um Entschuldigung und Verständnis.Lord hat geschrieben:Bevor Sie eine neue Sprache erlernen wollen (PureBasic), sollten Sie zuerst die deutsche Sprache richtig anwenden.
Ich habe meiner Frau bereits Bescheid gesagt und sie wird mich gleich züchtigen. Das hätte echt nicht passieren dürfen!
Was meinen Sie damit? Meinen Sie Marko?diceman hat geschrieben:Mal unabhängig von Ihrer Frage ... warum erstellen Sie sich nicht einfach zu jedem unredlichen Befehl ein Macro in sittlichem Hochdeutsch?
Vielen herzlichen Dank für Ihre Hilfe! Genau so wollte ich das haben. Vielen Dank!ccode_new hat geschrieben:ich habe für Sie hier einmal eine Lösung ohne erweiterte Fensterrahmenarbeits-Funktionen (Windows-Framework/API).
Das hat zwar nichts mit meiner Frage zu tun, aber das klingt ausgezeichnet, die Befehle von der Programmiersprache anzupassen. Ich überlege es mir, ob ich Ihren Quelltext übernehmen werde.diceman hat geschrieben:Wie mundet Ihnen mein (redlicher) Lösungsansatz?
Vielen herzlichen Dank für Ihre Hilfe! Genau so wollte ich das auch haben. Vielen Dank! Aber ich habe den Quelltext von dem anderen Menschen bereits in Anspruch genommen. Leider kamen Sie zu spät. Trotzdem vielen Dank!udg hat geschrieben:Ich vermute eher den Frame, dass dieser nicht so farblich will wie er es möchte?
Dankend,
Josef Berger
Josef Berger benutzt die Programmierungssprache in der Version 5.62 auf einem Windows-Heimrechner!
Re: Gerätfarbe verändern
Josef Berger hat geschrieben:Sie haben Recht. Tut mir herzlich leid. Es ist unverzeihlich. Ich war so aufgeregt und in Euphorie verfallen, weil ich nun das Programmierungsprodukt besitze. Ich bitte Sie um Entschuldigung und Verständnis.Lord hat geschrieben:Bevor Sie eine neue Sprache erlernen wollen (PureBasic), sollten Sie zuerst die deutsche Sprache richtig anwenden.
Ich habe meiner Frau bereits Bescheid gesagt und sie wird mich gleich züchtigen. Das hätte echt nicht passieren dürfen!
...
Die ersten Anzeichen eines Erfolges der Züchtigung scheinen sich zu zeigen.Josef Berger hat geschrieben:Josef Berger benutzt die Programmierungssprache in der Version 5.62 auf einem Windows-Heimrechner!
Oder ging der Schuß etwa nach hinten los?