Edit-Anzeige unter Win-7

[horsthorn]

Entweder bilde ich mir das ein oder es liegt an meiner Grafik-Karte oder es liegt an Win-7 oder...
Wenn mit Create("Edit",..... eine Eingabe erzeugt wird, ist die Ansicht auf einem Dialogfenster kaum zu sehen.
Das Dialogfenster ist fast genau so weiß wie die Edit-Zeile.
Finde ich nicht gut.
Kann man das ändern ohne "Startpaint X&" zu bemühen

[Frabbing]

Du könntest eine andere Hintergrundfarbe einstellen.

[horsthorn]

@Frank
die Frage bezog sich auf Dialog-Fenster. Die haben einen festen Hintergrund. Bis ...XP war der immer hellgrau und man konnte die Editzeilen gut erkennen.
Jetzt sind die Dialoge fast weiß.
Um das zu ändern, müsste ich "Startpaint dialog&" benutzen. Dann hab ich aber das Problem, daß %WMPAINT mit der neuen Farbe die Edit-Dialoge übermalt.
Einzige Möglichkeit, die mir einfällt, wäre die:
das Dialogfenster bei jedem %WMPAINT-Aufruf total zu löschen und dann erneut aufzubauen.
Dann gehen mir aber im ungünstigsten Fall die Inhalte der Edit-Eingaben "flöten"
Darum möchte ich kein "STARTPAINT dialog&" benutzen.
Dachte, daß es da vielleicht einen Trick gibt, der die von Windows-7 eingestellte Farbe ändert ???

[MaZz]

...oder subclassen und auf WM_CTLCOLORDLG reagieren.

[Bangkok]

Hat Windows 7 keine Themen mehr, wenn ja kann man doch dort einiges tun um die Farbe zu verändern. ich benutze unter XP ein Theme das auch die Dialogboxen fast weiß macht.

[Frabbing]

Dachte, daß es da vielleicht einen Trick gibt, der die von Windows-7 eingestellte Farbe ändert ???

Den gibt es, Horst. Vielleicht inspiriert dich das ja:

'(w) Frabbing für Paules PC-Forum
'
$H windows.ph

Declare a#,b#
Dim a#,4
Dim b#,4

Cls

Var x&=Create("Window",%HWnd,"Dialogfenster",80,90,180,200)

Var y&=~GetSysColor(~COLOR_BTNFACE)
Long a#,0=~COLOR_BTNFACE
Long b#,0=Rgb(255,200,80)
~SetSysColors(1,a#,b#)

WaitInput

Long a#,0=~COLOR_BTNFACE
Long b#,0=y&
~SetSysColors(1,a#,b#)

Dispose a#,b#
End

P.S.: Funktioniert übrigens mit allen Systemfarben, z.B. Menüfarben usw.

[Andreas Miethe]

Zitat von Frabbing

Den gibt es, Horst. Vielleicht inspiriert dich das ja:
P.S.: Funktioniert übrigens mit allen Systemfarben, z.B. Menüfarben usw.

Genau ! Und wenn so ein Programm bei mir meine Systemfarben verändert fliegt es sofort wieder riunter.

[Frabbing]

Zitat von Andreas Miethe

Genau ! Und wenn so ein Programm bei mir meine Systemfarben verändert fliegt es sofort wieder riunter.

Bei mir übrigens auch. Aber Horst hat ja genau danach gefragt.
Für den eigenen Gebrauch ist es aber ok.

[horsthorn]

@Frank - Danke

Zitat von Andreas Miethe
Genau ! Und wenn so ein Programm bei mir meine Systemfarben verändert fliegt es sofort wieder riunter.

...aber nach dieser "brutalen" Drohung von Andreas hab ich den Code umgeschreiben. Nun findet alles auf dem Hauptfenster statt.
Ist das so OK - Andreas ?

[Andreas Miethe]

Zitat von horsthorn

@Frank - Danke
...aber nach dieser "brutalen" Drohung von Andreas hab ich den Code umgeschreiben. Nun findet alles auf dem Hauptfenster statt.
Ist das so OK - Andreas ?

Na klar, solange meine Systemeinstellungen nicht veändert werden

[Andreas Miethe]

Hallo Horst,

hier ein kleines Beispiel für eine farbige DialogBox.

$H Messages.ph
$H Windows.ph

Declare Brush&,Ende&,Edit&,Button&
cls

Set("Fastmode",1)
CreateColorDialog(0,0,300,200,"Dialog",$6CB6FF)
Set("Fastmode",0)

Whilenot Ende&
  Waitinput
EndWhile

Proc CreateColorDialog
  Parameters x%,y%,w%,h%,Text$,Color&
  Brush& = ~CreateSolidBrush(Color&)
  Struct DLG = style&,dwExtendedStyle&,cdit%,x%,y%,w%,h%,menu%,class%,title&
  Var BS# = New(DLG)
  Clear BS#
  BS#.style& = ~WS_POPUP | ~WS_BORDER | ~DS_MODALFRAME | ~WS_CAPTION | ~DS_CENTER
  BS#.x% = x%
  BS#.y% = y%
  BS#.w% = w%
  BS#.h% = h%
  ~DialogBoxIndirectParam(%hinstance,BS#,%hwnd,ProcAddr("MyClassProc",4),Addr(Text$))
EndProc

Proc MyClassProc
  Parameters wnd&,msg&,wparam&,lparam&
  If msg& = ~WM_INITDIALOG
    Edit& = Create("Edit",Wnd&,"Editier mich",10,10,200,20)
    Button& = Create("Button",wnd&,"Ende",10,40,80,24)
    ~SetWindowText(wnd&,lParam&)
    Return 0
  Endif
  If msg& = ~WM_CTLCOLORDLG
    Return Brush&
  Endif
  If msg& = ~WM_COMMAND
    If lParam& = Button&
      ~DeleteObject(Brush&)
      ~EndDialog(Wnd&,1000)
    Endif
  EndIf
  Return 0
EndProc

[Rolf Koch]

Tjo Horst, wenn man nicht ab und an auf meiner Seite unter Meine Profancodes schaut, dann muss man halt lange fragen
Dort ist z.B. ein Code, welcher mit Profanen Mitteln ein Dialog färbt. Ich als Staticfetischist ^^ habs ganz einfach gelöst. Schau dort mal, da ich weis, dass Du gerne wie ich Profan arbeitest.

[Frabbing]

Ich vermute, es könnte vielleicht diverse Probleme geben, wenn ein Static das Dialogfenster ganz verdeckt. Eventuell Mouseclicks, die verschluckt werden oder diverse Tastaturmessages. Auf jeden Fall aber Notifies...

[horsthorn]

@Hallo an Alle
Zuerst einmal Danke für die Hilfe

Nun werde ich mal experimentieren.
Schließlich soll die Farbveränderung nur in meinem Programm stattfinden und nicht das System verändern
(sonst steigt mir Andreas auf den Kopf )

...bis denne...

[RGH]

Hallo,

ich für meinen Teil schätze es sehr, wenn die Programme meine Systemeinstellungen nutzen, d.h. die Dialoge so anzeigen, wie ich es eingestellt habe, die Hauptfenster so anzeigen, wie ich es eingestellt habe, etc.
Windows gibt mir die Möglichkeit, sein Aussehen nahezu vollständig nach meinem Gusto und meinen Sehgewohnheiten anzupassen. Ich erwarte, dass alle Programme dies respektieren und diese Einstellungen auch nutzen. Wenn ich weiße Dialogboxen eingstellt hätte, dann will aich auch alle Dialogboxen in weiß haben! Und wenn ein Sehbehinderter sie in kontrastreichem schwarz/weiß einstellt, dann will er auch alle in schwarzz/weiß haben und braucht bestimmt keine Programme, die da wieder Extrawürste bruzzeln.

Gruß
Roland