Lazarus - ListBox - jak skryt ScrollBar

C++, C#, Visual Basic, Delphi, Perl a ostatní

Moderátor: Moderátoři Živě.cz

Odeslat příspěvekod Le_Ze 31. 12. 2016 09:06

Zdravím.
Poraďte jak skryt v komponentě ListBox vodorovný ScrollBar?
Le_Ze
Junior

Odeslat příspěvekod Just_jo 31. 12. 2016 09:35

Just_jo
Junior
Uživatelský avatar

Odeslat příspěvekod Le_Ze 31. 12. 2016 15:11

To jsem take našel
ListBox1.Style:= ListBox1.Style and not WS_VSCROLL;

(77,25) Error: (4001) Incompatible types: got "TListBoxStyle" expected "LongInt"
(77,36) Warning: (4110) range check error while evaluating constants (4292870143 must be between -2147483648 and 2147483647)

V delphi to jde
ShowScrollBar(ListBox1.Handle,SB_BOTH,False);
Le_Ze
Junior

Odeslat příspěvekod Just_jo 31. 12. 2016 15:30

Proto jsem taky psal ať zkusíš hledat - mělo to být jen k nasměrování co hledat.

Těžko můžu vědět co jsi našel
Just_jo
Junior
Uživatelský avatar

Odeslat příspěvekod Just_jo 31. 12. 2016 21:45

Mám odzkoušeno - ShowScrollBar funguje pokud se přidá do Uses "Windows"

Kód: Vybrat vše
uses
... , Windows


10 minut i s instalací ( opětovnou ) Lazarus IDE
Just_jo
Junior
Uživatelský avatar

Odeslat příspěvekod Le_Ze 1. 1. 2017 08:57

No jo, ale ja zapomněl napsat že se mi jedna o linux. :-!
Le_Ze
Junior

Odeslat příspěvekod Just_jo 1. 1. 2017 09:43

Dobrá, tak to ti asi zbývá pouze jedna poslední možnost ( možná dvě )

Vytvoř si svoji komponentu TListBox nebo si uprav stávající komponentu.
Ohledně scrollbaru u Lazarus. Je to potřeba opravit v "inc" souboru. Na netu je o tom spousta
Just_jo
Junior
Uživatelský avatar

Odeslat příspěvekod Le_Ze 1. 1. 2017 10:08

nebo si uprav stávající komponentu.
Ohledně scrollbaru u Lazarus. Je to potřeba opravit v "inc" souboru. Na netu je o tom spousta

Mužeš prosím nasměrovat na nějaký navod?
Vubec nevím co hledat.
Vše co jsem našel ohledně listbox - ScrollBar bylo pro windovs.
Le_Ze
Junior

Odeslat příspěvekod Just_jo 1. 1. 2017 11:51

Ještě tu mám toto, jen nevím jak to mám portnout na Unix.

Platí to pro všechny TListboxy na formuláři

Kód: Vybrat vše
type

  TListBox = class (StdCtrls.TListBox)
   protected
    procedure CreateParams ( var params: TCreateParams); override ;
  end ;

implementation

procedure TListBox.CreateParams ( var params: TCreateParams);
begin
  inherited CreateParams (params);
  if (Params.Style and WS_VSCROLL) <> 0 then
    Params.Style := Params.Style and not WS_VSCROLL;
end ;

Just_jo
Junior
Uživatelský avatar


Kdo je online

Uživatelé procházející toto fórum: Žádní registrovaní uživatelé a 0 návštevníků