Einzelnen Beitrag anzeigen

Benutzerbild von Sourcemaker
Sourcemaker

Registriert seit: 3. Sep 2003
Ort: Westoverledingen
256 Beiträge
 
Delphi XE5 Professional
 
#5

Re: Checkbox verändert im XP-Design die Position

  Alt 7. Sep 2006, 18:01
Danke Uli,

damit geht es:
Delphi-Quellcode:
   if ThemeServices.ThemesEnabled then
   begin
      for i := 0 to Pred(ComponentCount) do
         if Components[i] is TCheckBox then
         begin
            TCheckBox(Components[i]).Left := TCheckBox(Components[i]).Left + 2;
            TCheckBox(Components[i]).Width := TCheckBox(Components[i]).Width - 2;
         end;
   end;
Im Gegensatz zu Deinem Code habe ich statt Controls Components benutzt um die ganze Form abzugrasen.
Außerdem habe ich noch die Breite korrigiert.

Und Unit Themes einbinden nicht vergessen.

Grüße

Frank
Frank
  Mit Zitat antworten Zitat