[Bug 16349] Text is garbled in Teach 2000

http://bugs.winehq.org/show_bug.cgi?id=16349





--- Comment #7 from bas <teach2000(a)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.