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: ----------------------------------------------------------------