TMemo : Bug with Horizontal ScrollBar
Original Reporter info from Mantis: HexNihilo
-
Reporter name:
Original Reporter info from Mantis: HexNihilo
- Reporter name:
Description:
Hello,
in TMemo, with WordWrap := False, Horizontal ScrollBar appears if Alignment = taLeftJustify but not if Alignment = taCenter or taRightJustify (with a bad effect). But, if "OnMouseEnter" then it appears.
Simple CODE (3 TMemo on a Form):
procedure TForm1.FormCreate(Sender: TObject);
var
i : Integer;
begin
with Memo1 do begin
for i := 0 to 9 do Lines.Add('Line' + IntToStr(i));
Alignment := taLeftJustify;
ScrollBars := ssBoth; {or ssAutoBoth;}
WordWrap := False;
end;
with Memo2 do begin
for i := 0 to 9 do Lines.Add('Line' + IntToStr(i));
Alignment := taCenter;
ScrollBars := ssBoth; {or ssAutoBoth;}
WordWrap := False;
end;
with Memo3 do begin
for i := 0 to 9 do Lines.Add('Line' + IntToStr(i));
Alignment := taRightJustify;
ScrollBars := ssBoth; {or ssAutoBoth;}
WordWrap := False;
end;
end;
Look at the attachment please (Project + Png).
Regards.
Additional information:
Bug also with gtk2.
Lazarus-1.1-36942-fpc-2.6.1-20120421-win32.exe
Mantis conversion info:
- Mantis ID: 21822
- Version: 1.1 (SVN)
- Monitored by: » HexNihilo (HexNihilo)