[Bug 16349] Text is garbled in Teach 2000
wine-bugs at winehq.org
wine-bugs at winehq.org
Thu Dec 18 10:00:37 CST 2008
http://bugs.winehq.org/show_bug.cgi?id=16349
--- Comment #7 from bas <teach2000 at basement.nl> 2008-12-18 10:00:37 ---
This is the source of the test application:
procedure TForm13.RichEdit1SelectionChange(Sender: TObject);
begin
if fsBold in T2KInputEdit1.SelAttributes.Style then
Caption := 'Fontstyle: [Bold]'
else
Caption := 'Fontstyle: []';
end;
procedure TForm13.SpeedButton1Click(Sender: TObject);
begin
if fsBold in T2KInputEdit1.SelAttributes.Style then
T2KInputEdit1.AddStyleToSelection(fsBold, False)
else
T2KInputEdit1.AddStyleToSelection(fsBold, True);
end;
--
Configure bugmail: http://bugs.winehq.org/userprefs.cgi?tab=email
Do not reply to this email, post in Bugzilla using the
above URL to reply.
------- You are receiving this mail because: -------
You are watching all bug changes.
More information about the wine-bugs
mailing list