Work around broken ToolButton with Style=tbsDropDown after translation: https://sourceforge.net/tracker/index.php?func=detail&aid=902470&group_id=74086&atid=539908

Fixes issue #3066.
This commit is contained in:
Ansgar Becker
2013-01-02 19:12:13 +00:00
parent 068c263923
commit becd4bdd0e

View File

@@ -164,6 +164,10 @@ procedure TfrmTextEditor.FormCreate(Sender: TObject);
begin
InheritFont(Font);
TranslateComponent(Self);
// Work around broken dropdown toolbutton after translation:
// https://sourceforge.net/tracker/index.php?func=detail&aid=902470&group_id=74086&atid=539908
btnLinebreaks.Style := tbsButton;
btnLinebreaks.Style := tbsDropDown;
end;