| |
| |
|
| - Page 1 - |
|
ecki | Hello Profaner,
me would time interested, whether already someone attempts has under XProfan one Program with the allgegenwärtigen Dark fashion to create.
I have it attempts, but only the 1. Window (%hWnd) has functions.
further Window How Dialogwindow, Child Window or Grid wären now yet
desired.
but How could the functions?
Greeting oberstleutnant |
|
| |
| |
| |
|
 |
« this Posting watts as Solution marked. » |
|
Sven
Bader | Hello Ecki,
Dark fashion is a very individuelle thing and no Invertierung of colours. there's sure Standards for software, which with Microsoft Entwicklungswerkzeugen prepares watts but in the practice make at least The large any your own thing (Chrome, Firefox, Photoshop), what too on whom each others colours recognize. Word or. Office has it first with the newest Version geschafft, a Darkmode umzusetzen, there there were the already some years in windows 10.
for a optimale Lesbarkeit becomes too never reines Black for background and seldom reines white for Text uses.
yet have I unfortunately too yet no Solution, which one Dark Theme for me zufriedenstellend umsetzt except ansatzweise in the XProfed. |
|
| |
| |
| |
|
|
|
Sven
Bader | Hi,
yet have I something like always per element umgsetzt, what time rather and times badly functions. the Window self would my interests, How You the made have! can you whom code here post?
here have I among other things one Treeview in Darkmode umgesetzt: [...] 
Sorry, that You now More Gegenfragen as Answer receive have.
Regards
Sven |
|
| |
| |
| |
|
|
ecki | Hello Sven,
there have You me well wrong understood. I have only the %hWnd by
Cls RGB(0,0,0) dark made.
All windows, The in %hWnd attend, would like so did i inn dark there get.
but i don't know, How!
Greeting ecki |
|
| |
| |
| |
|
|
Sven
Bader | Achso... so goes it then in the Dialog-Window:
it wischt Unfortunately on one Dialog-Window again lane, and so to the Repaint intercepting must. Frank Abbing having there time a code, the the by SubClass undertaking: [...]
here once more something vereinfacht:
$H windows.ph
$H messages.ph
Declare dc&, ps#,d1&
Dim ps#,128
cls RGB(40,40,40)
Proc NeuZeichnen
Parameters thedc&
StartPaint thedc&
cls RGB(40,40,40)
EndPaint
Endproc
SubClassProc
If %smessage = ~WM_PAINT
dc& = ~BeginPaint(&sWnd, ps#)
NeuZeichnen(dc&)
~EndPaint(&sWnd, ps#)
Set("WinProc", 0)
Endif
ENDPROC
d1& = Create("Dialog",%hwnd,"Dialog",200,200,400,300)
NeuZeichnen(d1&)
SubClass d1&, 1
While 1
WaitInput
Case %key=2: BREAK
EndWhile
others, ggf. better Possibility:
some Dialogelemente can plainer by Sendmessage a colour give, letztendlich could one too these as Fensterhintergrund benefit. one must this element only as "Parent" define.
here an example, with the I one leeres TreeView as background for the Dialog-Window use, it functions really very well and the code is überschaubar. TreeViews listen on The Message "TVM_SETBKCOLOR".
Def Setparent(2) !"USER32","SetParent"
Cls RGB(40,40,40)
declare treeview&,dialog&,button&
dialog& = Create("Dialog",%hwnd,"Dialog",200,200,400,300)
treeview& = Create("TreeView", dialog&, 0, -5,-5,800,800)
button& = Create("Button", dialog&,"OK", 150, 200,100,50)
SendMessage(treeview&,$1100+29, 0,RGB(40,40,40))'~TVM_SETBKCOLOR
Entry /(button&,treeview&)
While iskey(27) = 0
WaitInput
EndWhile
|
|
| |
| |
| |
|
|
ecki | thanks Sven,
i'll me jetztmal with your suggestions keep busy.
will be me zurückmelden, if I ergebnisse vorweisen can.
cordial Greeting
ecki |
|
| |
| |
| |
|
|
ecki | Hello Sven,
I have time your Proposals tested, the Result has I do not so fallen.
I stay with the Farbeinstellung for the %hWnd and let any . Develop so How you're.
i'm nothing better invaded!!
thanks over again.
friendly Regards
ecki |
|
| |
| |
| |
|
|
Georg
Teles | How schauts because with SKControl.dll from,
there can The items discretionary dye
Schnellbeispiel
Regards |
|
| |
| |
| |
|
|
Sven
Bader | Yes, The functions too today yet. It can according to element To abweichendem behaviour come, too The Search to the newest Version isn't integrally slight. I mean its The Build 1.22.12 [...]
Dialog-Window are here neither thereby. i think but one Static is here the korrekte lane. too this should for a korrektes behaviour setparent() necessary his. |
|
| |
| |
| |
|
|
ecki | Sven Bader (27.01.2023)
Yes, The functions too today yet. It can according to element To abweichendem behaviour come, too The Search to the newest Version isn't integrally slight. I mean its The Build 1.22.12 [...]
Sven Bader (27.01.2023)
Dialog-Window are here neither thereby. i think but one Static is here the korrekte lane. too this should for a korrektes behaviour setparent() necessary his.
thanks you both,
I see me time the Topic on. yet having it me not interested.
Greeting ecki |
|
| |
| |
| |
|
|
ByteAttack | [...]
I look time whether I the View source yet have, then send I you because time - again one of my "unvollständigen" Projekten  |
|
| |
| |
| |
|
|
Thomas
Freier | in the manner a Dialoghintergrund?
'######################
'Header-Files
'######################
$H windows.ph
$H Messages.ph
'######################
Windowstyle 543
Declare Ende&,end1&,Win02&,colour$,Button1&
Farbe$=RGB(0,0,0)
CLS colour$
'The Brush becomes Windows using around the Dialoghintergrund to drawing
Var Dialogpinsel& = ~Createsolidbrush(colour$)
Var Button& = CREATE("BUTTON",%hwnd,"Dialog öffnen",10,10,150,25)
Window Title "Test..."
Whilenot Ende&
Waitinput
case %Key=2:Ende&=1
If Clicked(Button&)
end1& = 0
win02&=CREATE("Dialog",%hwnd,"Dialog",(%MaxX/2-300),(%MaxY/2-250),600,500)
'once The colour give
Startpaint win02&
cls colour$
Endpaint
Button1& = CREATE("BUTTON",win02&,"Dialog",10,10,150,25)
'Subclassing on
SubClass win02&,1
Whilenot end1&
WAITINPUT
If %Key = 2
end1& = 1
endif
Endwhile
DestroyWindow(win02&)
Setfocus(%Hwnd)
Endif
Endwhile
DeleteObject Dialogpinsel&
End
SubClassProc
If SubClassMessage(win02&,~WM_CTLCOLORDLG)
Set("WinProc", 0)
'~WM_CTLCOLORDLG expects as Return Value a Brush for background
Return Dialogpinsel&
EndIf
ENDPROC
|
|
| |
| Gruß Thomas
Windows XP SP2, XProfan X2 | 01/27/23 ▲ |
|
| |
|
|
Georg
Teles | |
| |
| |
| |
|
(849)
Deutsch
English
Français
Español
Italia