Theming / CommonControls - Geht es auch teilweise?

[Der schöne Günther]

Es ist etwas verrückt, ich gebe es zu.

Ich habe eine VCL-Anwendung die sehr mutig ist. Sie verschiebt beispielsweise Komponenten (wie Labels und Buttons) im OnPaint -Handler des Formulars. Das ist nicht richtig so, ich weiß. Damit das alles funktioniert, muss man in den Delphi-Projektoptionen unter "Laufzeit-Themes" "Keine" anwählen. Damit hat man diese Windows 2000-Optik, aber das ist ok.

Schaltet man die Themes ein, funktioniert gar nichts mehr: Das Verschieben von Komponenten löst den OnPaint-Handler wieder aus und die gesamte Anwendung hängt oder zeichnet sich sehr komisch.

Soweit, so gut.


Ich möchte nun allerdings ein neues Formular hinzufügen. Eins mit Themes, wo alles toll aussehen soll. Geht das, ohne generell Themes einzuschalten? Ich finde nur, wie man Themes für einzelne Controls wieder deaktivieren kann. Aber das hilft mir nicht, da stapeln sich die OnPaint-Handler weiterhin. Die Anwendung läuft nurwenn kein Common Controls 6-Eintrag im Manifest ist. Also man in den Projektoptionen "Keine Themes" angewählt hat.

Was kann ich jetzt noch tun?

[Uwe Raabe]

Du kannst im Programm nur eine COMCTL32.DLL verwenden. Durch das Manifest bestimmst du, welche es sein soll. Meines Wissens kann man das nicht mischen.

[stahli]

Warum machst Du so was komisches?
Willst Du Labels anhand eines Bitmaps positionieren oder so?
Vielleicht finden wir ja einen besseren Ansatz?

Ein Problem, das ich früher hatte: Panel.Left := Panel.Left; hat eine Neuzeichnung ausgelöst.
Also habe ich vorher auf Gleichheit geprüft und nur bei Ungleichheit neu zugewiesen.
Vielleicht bringt Dich das ja irgendwie weiter.

[Der schöne Günther]

Ich mache das nicht- Als der Code geschrieben wurde bin ich (ernsthaft) noch in die Grundschule gegangen.

Ich suche nur verzweifelt nach einer Möglichkeit noch etwas billig dranzustricken ohne die OnPaint-Handler von Dutzenden Formularen entwirren zu müssen. Denn sonst wird das schon wieder nichts mit Urlaub nehmen

Noch bin ich nicht verzweifelt genug die neuen Formulare in eine gesonderte DLL auszulagern. Das geht bestimmt...

[Namenloser]

Kannst du nicht sowas machen?

Delphi-Quellcode:

TBaseForm = class(TForm)
protected
  FRepaintDisabled: Boolean;
  procedure DoPaint; override;
public
  procedure DisableRepaints;
  procedure EnableRepaints;
end;

procedure TBaseForm.DisableRepaints;
begin
  FRepaintDisabled := True;
end;

procedure TBaseForm.EnableRepaints;
begin
  FRepaintDisabled := True;
end;

procedure TBaseForm.DoPaint;
begin
  if not FRepaintDisabled then
    inherited DoPaint;
end;

---------------------------------------------

procedure TMyForm.FormPaint(Sender: TObject);
begin
  // bla bla bla ...

  DisableRepaints;
  Button1.Left := Button1.Left + 1;
  EnableRepaints;

  // bla bla bla ...
end;

Soll jetzt eher Pseudocode sein, habe lange nichts mit Delphi gemacht. Wenn es sehr viele Stellen sind und man nicht alle einzeln ändern will, könnte man auch

Delphi-Quellcode:

procedure TBaseForm.DoPaint;
begin
  if not FRepaintDisabled then
  begin
    DisableRepaints;
    inherited DoPaint;
    EnableRepaints;
  end;
end;

versuchen. Könnte natürlich ungewollte Seiteneffekt haben.

[himitsu]

Man kann die neuen CC verwenden, aber das Theming für alle/einzelne Controls deaktivieren.


Grundantwort: Im OnPaint darf niemals die "Anzeige", bzw. Komponenteneigenschaften verändert werden, vorallem nichts permanent immer wieder.
Außer indem man selber das Zeichnen übernimmt und nur im Gezeichneten variiert.

[Bernhard Geyer]

Zitat von Der schöne Günther:

Ich mache das nicht- Als der Code geschrieben wurde bin ich (ernsthaft) noch in die Grundschule gegangen.

Und? Jeder hat mal angefangen und weiß es nach Jahren besser.
Wem das nicht so geht hat vermutlich in den Jahren nix gelernt.

Zitat von Der schöne Günther:

Ich suche nur verzweifelt nach einer Möglichkeit noch etwas billig dranzustricken ohne die OnPaint-Handler von Dutzenden Formularen entwirren zu müssen. Denn sonst wird das schon wieder nichts mit Urlaub nehmen

Vieleicht wurde es die letzten Male nix mit Urlaub nehmen weil du versuchst immer was billig dranzustricken statt es mal richtig umzuschreiben.[/QUOTE]

Zitat von Der schöne Günther:

Noch bin ich nicht verzweifelt genug die neuen Formulare in eine gesonderte DLL auszulagern. Das geht bestimmt...

Wieso sollte es das sein?

[uligerhardt]

Vielleicht mit SetWindowTheme?
http://www.delphipraxis.net/287158-post8.html

[Der schöne Günther]

Zitat von Bernhard Geyer:

[...]

Danke, sehr hilfreich.

Zitat von uligerhardt:

Vielleicht mit SetWindowTheme?

Damit sieht zwar alles wieder "alt" aus, aber aufhängen tut es sich leider immer noch