Einzelnen Beitrag anzeigen

Benutzerbild von lbccaleb
lbccaleb

Registriert seit: 25. Mai 2006
Ort: Rostock / Bremen
2.037 Beiträge
 
Delphi 7 Enterprise
 
#4

AW: nonVCL TabControl Hintergrundfarbe ändern

  Alt 23. Feb 2011, 21:05
Also,läuft auf nem Windows Vista System.

Das Tab Control wird nur per Quelltext erstellt.

Sowie es hier im Forum angeboten wurde vom User "semo".

Ich hab ja bei der Erstellung kein Problem, eher beim zeichnen. Das kann doch nicht sein das ich das nun nur wegen dem Hintergrund selber zeichnen muss??

Normalerweise hat doch jedes Control eine WM_CTLCOLOR message auf die es reagiert, oder nicht? Kann für das TabControl nur keine ausmachen.

so hatte ich mit ERASEBKGND es versucht.

Delphi-Quellcode:
function EraseBkGnd(hWindow: HWND;Clr:COLORREF;DC: HDC):LRESULT;
var
  hBr: hBrush;
  r: TRect;
begin
  hBr := CreateSolidBrush(Clr);
  GetClientRect(hWindow,r);
  FillRect(DC,r,hBr);
  DeleteObject(hBr);
  result := 1;
end;

function TabWndProc(hTab, uMsg, wParam, lParam:DWORD): DWORD; stdcall;
var
  ps : TPAINTSTRUCT;
  pen : HPEN;
  brush: HBRUSH;
  dc : HDC;
  rect : TRect;
  OldObjct: DWORD;
begin
  Result := 0;
  case uMsg of
    WM_ERASEBKGND:
      result:=EraseBkGnd(hTab,RGB(120,120,120),wparam);
 {    begin;
        SetBkMode(wParam, TRANSPARENT);
        result:=GetStockObject( NULL_BRUSH );
      end;  }

  else
    Result := CallWindowProc(OldWndProc, hTab, uMsg, wParam, lParam);
  end;
end;

  hwnd_Tabcontrol := CreateWindow(WC_TABCONTROL, '', WS_CHILD or WS_CLIPSIBLINGS or WS_VISIBLE or TCS_TOOLTIPS, TabRect.Left, TabRect.Top, TabRect.Right, TabRect.Bottom, wnd, 0, HInstance, nil );
  OldWndProc := Pointer(SetWindowLong(hwnd_Tabcontrol, GWL_WNDPROC, Integer(@TabWndProc)));
Martin
MFG Caleb
TheSmallOne (MediaPlayer)
Die Dinge werden berechenbar, wenn man die Natur einer Sache durchschaut hat (Blade)

Geändert von lbccaleb (23. Feb 2011 um 21:11 Uhr)
  Mit Zitat antworten Zitat