Gerätfarbe verändern

Anfängerfragen zum Programmieren mit PureBasic.
Benutzeravatar
diceman
Beiträge: 347
Registriert: 06.07.2017 12:24
Kontaktdaten:

Re: Gerätfarbe verändern

Beitrag von diceman »

Oh nein, wie unredlich von mir! :o
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.
Benutzeravatar
chi
Beiträge: 90
Registriert: 17.05.2007 09:30
Wohnort: Linz - Austria

Re: Gerätfarbe verändern

Beitrag von chi »

Der Gerät wird nie müde, der Gerät schläft nie ein...
Benutzeravatar
udg
Beiträge: 560
Registriert: 20.06.2013 23:27

Re: Gerätfarbe verändern

Beitrag von udg »

Ich vermute eher den Frame, dass dieser nicht so farblich will wie er es möchte?

Bild

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
ccode_new
Beiträge: 1214
Registriert: 27.11.2016 18:13
Wohnort: Erzgebirge

Re: Gerätfarbe verändern

Beitrag von ccode_new »

Hallo!

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
Benutzeravatar
Bisonte
Beiträge: 2427
Registriert: 01.04.2007 20:18

Re: Gerätfarbe verändern

Beitrag von Bisonte »

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 ;)
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​​
Benutzeravatar
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

Beitrag von ts-soft »

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)?
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.
Bild
Micha122
Beiträge: 248
Registriert: 02.10.2011 14:45
Wohnort: Sinzig
Kontaktdaten:

Re: Gerätfarbe verändern

Beitrag von Micha122 »

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)?
Ich gebe @ts-soft vollkommen Recht! :allright:
Wollte hier nur ein wenig lesen, und dann schon wieder dieser lächerliche M.... :cry:
Barcodes for PureBasic - http://micha122.bplaced.net/
Lord
Beiträge: 313
Registriert: 21.01.2008 19:11

Re: Gerätfarbe verändern

Beitrag von Lord »

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:

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




Fragend,
Josef Berger
... Ihnen ...
... das Produkt uneingeschränkt nutzen kann. ...

Bevor Sie eine neue Sprache erlernen wollen (PureBasic), sollten Sie zuerst die deutsche Sprache richtig anwenden. :wink:
Mein Gott, bin ich mal wieder redlich. :lol:
Bild
Josef Berger
Beiträge: 7
Registriert: 12.04.2018 13:01

Re: Gerätfarbe verändern

Beitrag von Josef Berger »

Lord hat geschrieben:Bevor Sie eine neue Sprache erlernen wollen (PureBasic), sollten Sie zuerst die deutsche Sprache richtig anwenden. :wink:
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.
Ich habe meiner Frau bereits Bescheid gesagt und sie wird mich gleich züchtigen. Das hätte echt nicht passieren dürfen!
diceman hat geschrieben:Mal unabhängig von Ihrer Frage ... warum erstellen Sie sich nicht einfach zu jedem unredlichen Befehl ein Macro in sittlichem Hochdeutsch? :?
Was meinen Sie damit? Meinen Sie Marko?
ccode_new hat geschrieben:ich habe für Sie hier einmal eine Lösung ohne erweiterte Fensterrahmenarbeits-Funktionen (Windows-Framework/API).
Vielen herzlichen Dank für Ihre Hilfe! Genau so wollte ich das haben. Vielen Dank!
diceman hat geschrieben:Wie mundet Ihnen mein (redlicher) Lösungsansatz?
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.
udg hat geschrieben:Ich vermute eher den Frame, dass dieser nicht so farblich will wie er es möchte?
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!

Dankend,
Josef Berger
Josef Berger benutzt die Programmierungssprache in der Version 5.62 auf einem Windows-Heimrechner!
Lord
Beiträge: 313
Registriert: 21.01.2008 19:11

Re: Gerätfarbe verändern

Beitrag von Lord »

Josef Berger hat geschrieben:
Lord hat geschrieben:Bevor Sie eine neue Sprache erlernen wollen (PureBasic), sollten Sie zuerst die deutsche Sprache richtig anwenden. :wink:
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.
Ich habe meiner Frau bereits Bescheid gesagt und sie wird mich gleich züchtigen. Das hätte echt nicht passieren dürfen!
...
Josef Berger hat geschrieben:Josef Berger benutzt die Programmierungssprache in der Version 5.62 auf einem Windows-Heimrechner!
Die ersten Anzeichen eines Erfolges der Züchtigung scheinen sich zu zeigen.
Oder ging der Schuß etwa nach hinten los? :lol:
Bild
Antworten