[KOL] Listbox Scrollbar

[JoniDS]

Is it possible to "hide" listbox scrollbars or get control of their paint event?

Thanks

[yuriy_sydorov]

You can set Options property of listbox to hide scrollbars and enable owner drawn items.

[JoniDS]

I think when you are talking about de LoNoHideScroll, right?

But wether i put yes or no, scrollbar always appears.

I've looked at source code and testing i managed to hide the scroll bar if i removed WS_VSCROLL from the newlistbox function. Of course it will now never show no matter what i put in Lonohidescroll.

Code: [Select]

function NewListbox( AParent: PControl; Options: TListOptions ): PControl;
var Flags: Integer;
begin
  Flags := MakeFlags( @Options, ListFlags );
  Result := _NewControl( AParent, 'LISTBOX', WS_VISIBLE or WS_CHILD or WS_TABSTOP
                         or WS_BORDER  or WS_VSCROLL
                         or LBS_NOTIFY  or Flags , True, @ListActions );
  with Result.fBoundsRect do
  begin
    Right := Right + 100;
    Bottom := Top + 200;
  end;
  Result.fColor := clWindow;
  Result.fLookTabKeys := [ tkTab, tkLeftRight ];
end;   
Is this because SetWindowLong doesn't allows to change WS_VSCROLL property after window has been created?

Using the following code still shows the scrollbar :

Code: [Select]

procedure TForm1.ListBox1Show(Sender: PObj);
var
 style : integer;
begin
style :=   GetWindowLong(listbox1.handle, GWL_STYLE) xor WS_VSCROLL;
SetwindowLong(Listbox1.Handle,GWL_STYLE,  style );
SetWindowPos(Listbox1.handle, Listbox1.handle,Listbox1.left, listbox1.Top, listbox1.Width, listbox1.height,SWP_NOMOVE or SWP_NOSIZE or SWP_NOZORDER or SWP_FRAMECHANGED);
end;
     

[yuriy_sydorov]

I misread loNoHideScroll option.

Removing WS_VSCROLL is the only way to hide scroll bar.

Use this in form's FormCreate event:

Code: [Select]

listbox1.Style:=listbox1.Style and not WS_VSCROLL;

[u-boot]

I know this is an old topic but i think it must be updated.

Code: [Select]

listbox1.Style:=listbox1.Style and not WS_VSCROLL;

This "solution" causes following Error:
Error: Incompatible types: got "TListBoxStyle" expected "LongInt"

Definition of TListBoxStyle:
TListBoxStyle = (lbStandard, lbOwnerDrawFixed, lbOwnerDrawVariable, lbVirtual);

[Mi-Ki]

Hi.
How to hide scrollbar Lazarus in linux?

[derek.john.evans]

Often the solution is to use a different control to display a list.
Ie: TListview, tstringgrid, tsynedit, tdatagrid

Some controls are 100% native, so a solution is platform specific.

I often find bonus features if you think outside the class names

[Mi-Ki]

No other does not