Gadget TextFarbe Transparent / Semi-Tranparent

Anfängerfragen zum Programmieren mit PureBasic.
smateja
Beiträge: 250
Registriert: 25.11.2004 19:51
Computerausstattung: Alienware Aurora / Intel Core i7 CPU @ 2.8 GHz / 64 Bit OS

Gadget TextFarbe Transparent / Semi-Tranparent

Beitrag von smateja »

Hallo zusammen,

nach langer suche im Frum geb ich nun auf und hoffe auf eure Mithilfe.

1. Gibt es denn die Möglichkeit die Vordergrundfarbe eines z. B. Textgadgets Transparent zu machen, oder hier eine Transparents von 25% zu definieren?

Evtl. hat ja jemand hier einen passenden API Befehl?


2. Man kann ja die Hintergrundfarbe eines Gadgets Transparent machen:

Code: Alles auswählen


Procedure WCB(WindowID, Message, wParam, lParam)

  Result = #PB_ProcessPureBasicEvents
  Select Message
   Case #WM_CTLCOLORSTATIC   
      Select lparam
      Case GadgetID(1)
         SetBkMode_(wparam,#TRANSPARENT)
         SetTextColor_(wParam,#TRANSPARENT))
         ProcedureReturn GetStockObject_(#HOLLOW_BRUSH)
      EndSelect     
  EndSelect

  ProcedureReturn Result
EndProcedure

OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu)
  
  TextGadget(1,10,10,120,20,"Transparenter Text",0)
  SetWindowCallback(@WCB(),0)
  InvalidateRect_(WindowID(0), #Null, #True)

Gibt es auch die Möglichkeit hier den Transparenzwert zu definieren - sprich: Durchlässigkeit = 20% oder sowas?
PB 4.6 / 32 Bit / 64 Bit