[Großer TD-Bug] Buttons verschwinden bei Druck auf Strg+Alt

[jaenicke]

Zitat von himitsu:

mein TDE vergammelt in der Ecke, da nutzloser als D7

Bei mir hat es jahrelang gute Dienste geleistet.

Ich hatte den VCL-Quelltext modifiziert und das Problem war weg. Wie das geht steht ja in dem Link oben. Hattest du das auch versucht oder nur den fertigen Fix?

[Jacques Murell]

Ich habe alle Änderungen manuell eingepflegt, in der Controls.pas und StdControls.pas, alles neu kompiliert, dcu's wurden neu erstellt und geändert hat sich NICHTS. Ein ähnliches Problem trifft nun auch auf den TWebbrowser zu, es kann doch nicht sein das man das Problem nicht lösen kann. Ich kann doch so das Programm nicht an den Kunden ausliefern.

[Namenloser]

Ich hab hier noch diese Unit herumfliegen (nicht von mir), die das Problem behebt. Vielleicht hilft sie dir ja.

[Jacques Murell]

Heyho, danke aber das sieht mir stark nach der Unit aus dem EDN aus, die habe ich schon am Laufen und sie verhindert auch das die Buttons verschwinden aber wie gesagt nicht das das Richedit verschwindet...

[Namenloser]

Zitat von Jacques Murell:

Heyho, danke aber das sieht mir stark nach der Unit aus dem EDN aus, die habe ich schon am Laufen und sie verhindert auch das die Buttons verschwinden aber wie gesagt nicht das das Richedit verschwindet...

Äh sorry, hab ich nicht gesehn. Bei EDN muss man sich ja erst einloggen, um was runterladen zu können.

Hast du mal versucht, den Code anzupassen?

Delphi-Quellcode:

    // repaint only controls of affected type
    if (TheCtrl is TButtonControl) or (TheCtrl is TStaticText) then
    begin
      TWinControl(TheCtrl).Repaint;
      exit; // TButtonControls, TStaticText do not contain controls so skip rest
    end;

    // NEU: -----------------------------------------------------------------
    if (TheCtrl is TCustomRichEdit) then
    begin
      TCustomRichEdit(TheCtrl).Repaint;
      exit; // TCustomRichEdit does not contain controls so skip rest
    end;
    // /NEU: ----------------------------------------------------------------

[Jacques Murell]

Heyho, dass hat leider nichts bewirkt. Füge ich weiter unten noch ein:

Delphi-Quellcode:

 procedure DoRepaint(Ctrl: TControl);
  var
    i: integer;
  begin
    if (Ctrl is TWinControl) then
    begin
      TWinControl(Ctrl).Repaint;
      for i := 0 to TWinControl(Ctrl).ControlCount - 1 do
        DoRepaint(TWinControl(Ctrl).Controls[i]);
    end;
    //neu
    if (Ctrl is TCustomRichEdit) then
      TCustomRichEdit(Ctrl).Repaint   
  end;

erscheint das Richedit für eine Milisekunde wieder, ist sofort danach aber wieder weg.

[cookie22]

Liegen die Compos auf dem TrsPanel?

[Jacques Murell]

Nein, dass RichEdit liegt unter einem TTrsPanel.