[NonVCL] Hintergundfarbe des TabSheets mit XP-Styles

[turboPASCAL]

*kram* ...lang ist's her...


Hi,

äh, warum nicht einfach das Zeichnen des Tabsheed-Hinttergrundes "auslassen".
Das funktioniert schon aber der Nachteil ist nun das man die Controls eben
nicht auch Transparent gezeichnet werden.

Delphi-Quellcode:

function TabDlgFunc(hDlg: HWND; uMsg: DWORD; wParam: WPARAM; lParam: LPARAM): Bool; stdcall;
begin
  Result := TRUE;
  case uMsg of
    WM_COMMAND:
      begin
        if hiword(wParam) = BN_CLICKED then
        begin
          case loword(wParam) of
            1011: Messagebox(hDlg, 'Tab1', '', 0);
            1021: Messagebox(hDlg, 'Tab2', '', 0);
          end;
        end;
      end;
    WM_ERASEBKGND: ; // wParam := 0;
    else
      Result := FALSE;
  end;
end;

[neothemachine]

Zitat von Luckie:

Ichhabe das gerade mit der VCL ausprobiert und ein TPageControl mit TTabSheets genommen. Da scheint das aber nicht zu funktionieren.

Hi, gibt es da mittlerweile irgendwelche Fortschritte? Bin beim selben Problem, aber mit VCL.

[Daniel Schuhmann]

Das mdControls (Beitrag #20) müsste es doch gelöst haben?

[neothemachine]

Naja, ums mal vorsichtig auszudrücken...nicht direkt

Wenn ich diese Controls (in meinem Fall nur PageControl und die TabSheets) benutze, dann - im nicht-Theme-Modus - flackert es nun, so als wenn ich DoubleBuffered auf false hätte, was aber vorher perfekt war. So, und im Theme-Modus kann ich das flackern nicht wirklich testen, da er eine nach der anderen "Range Check Error" Meldung bringt, wenn sich irgendwas an der Größe der Controls ändert, und es liegt sicher nicht an meinem Code, aber wohl eher daran dass diese Controls für Delphi <=7 gemacht wurden und ich eine höhere Version hab.

Aber trotzdem danke, ich glaub ich werd jetzt einfach warten bis CodeGear das selber korrigiert hat in seinen Sources, bekannt ist das Problem ja, hat auch schon einer der Entwickler in einem Blog darüber geschrieben.