PureBoard

Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/

Gerätfarbe verändern

https://www.purebasic.fr/german/viewtopic.php?t=30765

Seite 2 von 2

Re: Gerätfarbe verändern

Verfasst: 17.04.2018 19:59
von diceman
Oh nein, wie unredlich von mir! :o
Ich werde Buße tun und Asche auf mein Haupt streuen.

Re: Gerätfarbe verändern

Verfasst: 17.04.2018 22:18
von chi
Der Gerät wird nie müde, der Gerät schläft nie ein...

Re: Gerätfarbe verändern

Verfasst: 17.04.2018 22:41
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

Re: Gerätfarbe verändern

Verfasst: 17.04.2018 22:48
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.

Re: Gerätfarbe verändern

Verfasst: 17.04.2018 23:24
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 ;)

Re: Gerätfarbe verändern

Verfasst: 17.04.2018 23:48
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)?

Re: Gerätfarbe verändern

Verfasst: 18.04.2018 00:18
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:

Re: Gerätfarbe verändern

Verfasst: 18.04.2018 08:10
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:

Re: Gerätfarbe verändern

Verfasst: 18.04.2018 09:50
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

Re: Gerätfarbe verändern

Verfasst: 18.04.2018 11:54
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:
Alle Zeiten sind UTC+02:00
Seite 2 von 2

Powered by phpBB® Forum Software © phpBB Limited

Deutsche Übersetzung durch phpBB.de