Einzelnen Beitrag anzeigen

scp

Registriert seit: 31. Okt 2003
1.120 Beiträge
 
Delphi 7 Personal
 
#4

Re: JvIPAddress wird nicht richtig dargestellt

  Alt 26. Sep 2004, 19:27
Es liegt nicht an den Themes, je nach eingestellte Höhe (Height) passierts auch ohne Themes.
Ein Bugfix? Hier eine Möglichkeit:

JvComCtrls.pas öffnen, folgendes einfügen.
Delphi-Quellcode:
  TJvIpAddress = class(TWinControl)
  private
    //...
    procedure WMCTLCOLOREDIT(var Msg: TWMCTLCOLOREDIT); message WM_CTLCOLOREDIT;
    //...
  protected
    //...
  end;

//...

implementation

//...

procedure TJvIpAddress.WMCTLCOLOREDIT(var Msg: TWMCTLCOLOREDIT);
begin
  SetBkColor(Msg.ChildDC, GetSysColor(COLOR_Window));
  Msg.result := GetSysColorBrush(COLOR_Window);
end;
Damit wird die Hintergrundfarbe der 4 Edits von vorher Schwarz (deshalb die "Balken") auf clWindow geändert.
  Mit Zitat antworten Zitat