[Lazarus 0.9.20] ScrollBars invisibles

Version imprimable

29/11/2006, 13h59
schenkos

1 pièce(s) jointe(s)

[Lazarus 0.9.20] ScrollBars invisibles

Bonjour,

Etant développeur Delphi, je me suis lancé en FPC sous Lazarus afin de faire des programmes multi-plateformes. Je rencontre actuellement un problème avec les scrollbars depuis la version 0.9.20 de Lazarus sous win32 en Windows XP.

Les scrollbars des TForms et TScrollBox ne fonctionnent plus alors qu'ils fonctionnaient en 0.9.18; en effet, impossible de rendre visibles les scrollbars autant en design qu'en runtime. Le problème semble ne pas survenir sous Linux en GTK.

La dernière version SVN ne résoud pas le problème non plus. Les sources du programme de test sont en attachement.

Merci d'avance pour votre aide!

Le code suivant a au moins le mérite d'afficher les scrollbars mais cela ne fonctionne encore pas. La méthode ComputeScrollbars n'existe que depuis la 0.9.20. J'ai notifié le bug sur le site de freepascal mais je n'ai pas eu encore de réponse.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
unit Unit1; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, LResources, Forms, ExtCtrls, Buttons;

type

  { TForm1 }

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  protected
    procedure ComputeScrollbars; override;
  public
    { public declarations }
  end; 

var
  Form1: TForm1; 

implementation

uses
  LCLType, LCLIntf;

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  HorzScrollBar.Range   := 1000;
  HorzScrollBar.Visible := True;

  VertScrollBar.Range   := 1000;
  VertScrollBar.Visible := True;
end;

procedure TForm1.ComputeScrollbars;
begin
  inherited ComputeScrollbars;
  
  ShowScrollBar(Handle, SB_HORZ, HorzScrollBar.Visible);
  ShowScrollBar(Handle, SB_VERT, VertScrollBar.Visible);
end;

initialization
  {$I Unit1.lrs}

end.

07/12/2006, 12h41
schenkos

1 pièce(s) jointe(s)

Cela donnera peut-être des idées!?

Voici un petit code en attachement qui donnera peut-être des idées aux personnes ayant envie de se lancer la ré-écriture du control TScrollingWinControl. C'est un peu bogué mais suffisant pour ce que j'en fais, principalement l'affichage d'un bitmap plus grand.