[Lazarus] How to create a listbox that can be shifted

Hans-Peter Diettrich DrDiettrich1 at aol.com
Wed Apr 24 16:31:23 CEST 2013


Jürgen Hestermann schrieb:
> 
> Am 2013-04-23 19:11, schrieb Howard Page-Clark:
>> On 23/04/13 5:20, Jürgen Hestermann wrote:
>>
>>> I am stuck again. How can I make long (wide) text visible in a
>>> restricted window?

In a proper design it should be a matter of enabling the scrollbars of 
the component, and specifying the virtual (full) extent of the 
component. See e.g. TScrollBox. When a component doesn't have 
implemented such functionality, you can wrap it into a TScrollBox, and 
set its virtual extent to the actually required width and height.

>> Use a TMemo, and set its ScrollBars property to ssAutoBoth?
> 
> Okay, yet another approach. I will try it. Thanks.
> Though each change of object type requires me to apply all the anchor 
> settings of all visible objects in the form again, because most of them 
> are anchored to the list. Quite a lot of work.
> 
> Still I am wondering why nobody seems to miss a horizontal shift for 
> TListBox and TStringGrid (especially because a slider is shown for 
> TStringGrid but does not work). Are these bugs which nobody discovered 
> since years? I can't believe it.

AFAIR Windows and Delphi only offer multi-column listboxes, where the 
listbox items are arranged in grid style, with a row count according to 
the component height, and excess items shown in additional (scrollable) 
columns. This won't help in your case, though.

DoDi





More information about the Lazarus mailing list