PureBoard

Danke Dir mk-soft für die schnelle Antwort.

Ihr seid die Besten!

Grüße

NicknameFJ

Hallo,

ich habe im Forum eine Procedure gefunden um zu prüfen ob in den Compileroptionen der Schalter für DPI Awareness gesetzt ist.


EnableASM
Procedure.i DPi_option_checked()
MOV eax, dword [PB_Compiler_DPIAware]
ProcedureReturn
EndProcedure
DisableASM


Das funktioniert mit ASM Backend ...

... und noch ein kleiner (klugsch...) Tipp.
Wenn du 32 und 64 bit versionen unterstützen möchtest...
dann besser SetWindowLongPtr_()
anstelle von SetWindowLong_() verwenden.
Sagt zumindest M$.


Was heißt da klugsch... - bin doch für jeden Tipp dankbar.

TextGadget und CheckboxGadget waren ...

yupp,
einmal die hintergrundfarbe setzen reicht bei TextGadget tatsächlich aus :allright:

SetGadgetColor(#Text_HauptAnsicht, #PB_Gadget_BackColor, $f0f0f0)



Nachtrag:
Wenn das Textgadget jetzt schwarz ist dann einfach die Farbe ändern. Warum bin ich da nicht draufgekommen? :oops ...

Danke Euch beiden.

Es sind mehr und auch andere Gadgets im Panel, aber mir ist nur beim Textgadget ein Fehler aufgefallen.

Ich teste mal Eure Vorschläge im richtigen Programm und sehe ob es so geht.

NicknameFJ

Hallo zusammen,

ich habe ein Panelgadget bei dem ich den aktiven Reiter farbig markieren wollte. Ich habe es schon vor langer Zeit über einen Callback mit OwnerDraw realisiert. Bis 6.01 hat das auch einwandfrei funktioniert. So wie ich es sehe ist der OwnerDraw aber nur für das Panelgadget, die ...

Hallo STARGÅTE,

cool. Danke für die Verbesserung.

NicknameFJ

Hi,

auf WIN gibt es die WIN-API Funktion GetAsyncKeyState

https://docs.microsoft.com/en-us/window ... nckeystate

mit der abgefragt werden kann ob eine Taste gerade im Moment der Abfrage gedrückt ist.


NicknameFJ

Ich habe das Problem jetzt so gelöst


EnableExplicit

Define Quit, i, Event, Gadget, Type, File$, Line


If OpenWindow(1,0,0,500,300,"TEST Drag Drop",#PB_Window_ScreenCentered | #PB_Window_SystemMenu)

ListIconGadget(1,10,10,480,250,"TEXT",480, #PB_ListIcon_FullRowSelect)
For i = 0 To 99 ...

Hallo mercelx,

ich würde es so lösen:


If OpenWindow(0, 0, 0, 322, 220, "PanelGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
PanelGadget (0, 8, 8, 306, 203)
AddGadgetItem (0, -1, "Panel 1")
AddGadgetItem (0, -1, "Panel 2")
ButtonGadget(2, 10, 15, 80, 24,"Button 1")
ButtonGadget ...