0021822: TMemo : Bug with Horizontal ScrollBar - Free Pascal/Lazarus Bug Tracker

View Issue Details [ Jump to Notes ]

[ Issue History ] [ Print ]

Project

Category

View Status

Date Submitted

Last Update

0021822

Lazarus

LCL

public

2012-04-21 10:23

2012-08-27 19:08

Reporter

HexNihilo

Assigned To

Priority

normal

Severity

minor

Reproducibility

always

Status

new

Resolution

open

Platform

OS Version

Product Version

1.1 (SVN)

Product Build

Target Version

Fixed in Version

Summary

0021822: TMemo : Bug with Horizontal ScrollBar

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

Tags

No tags attached.

Fixed in Revision

LazTarget

Widgetset

GTK 2, Win32/Win64

Attached Files

TMemoBug.zip [^] (32,227 bytes) 2012-04-21 10:24

MemoBug.png [^] (30,167 bytes) 2012-04-21 10:26

Relationships

Notes
(0061839) Anton (reporter) 2012-08-23 18:02 edited on: 2012-08-23 18:09	cannot reproduce on win7(64) classic theme with Lazarus 1.1 r38335M FPC 2.6.0 i386-win32-win32/win64, but in standard theme it is

(0061840) Zeljan Rikalo (developer) 2012-08-23 18:15	It works fine here (Qt and Gtk2), Fedora 14, Lazarus trunk fpc-2.6.1

(0061893) Anton (reporter) 2012-08-25 19:42	Project, that was compiled with Delphi 7 on Win7(64) also suffer from this bug. I am going to check more recent Delphi versions, may be this is a bug in core of Windows...

(0061939) Anton (reporter) 2012-08-27 19:08	Application compiled by Delphi XE2 looks like on MemoBug.png. Visual Studio 2010 for TextBoxes with Multiline=true and TextAlign=Center or Right doesn show bottom scrollBar at all independent of ScrollBars property value.

Issue History
Date Modified	Username	Field	Change
2012-04-21 10:23	HexNihilo	New Issue
2012-04-21 10:23	HexNihilo	Widgetset	=> GTK 2, Win32/Win64
2012-04-21 10:24	HexNihilo	File Added: TMemoBug.zip
2012-04-21 10:26	HexNihilo	File Added: MemoBug.png
2012-08-23 18:02	Anton	Note Added: 0061839
2012-08-23 18:09	Anton	Note Edited: 0061839
2012-08-23 18:15	Zeljan Rikalo	Note Added: 0061840
2012-08-25 19:42	Anton	Note Added: 0061893
2012-08-27 19:08	Anton	Note Added: 0061939

lazarus bugtracker

Open source GUI RAD IDE for Free Pascal