IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Lazarus Pascal Discussion :

[Lazarus 0.9.20] ScrollBars invisibles


Sujet :

Lazarus Pascal

  1. #1
    Nouveau Candidat au Club
    Profil pro
    Inscrit en
    Novembre 2006
    Messages
    3
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Novembre 2006
    Messages : 3
    Points : 1
    Points
    1
    Par défaut [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!
    Fichiers attachés Fichiers attachés

  2. #2
    Nouveau Candidat au Club
    Profil pro
    Inscrit en
    Novembre 2006
    Messages
    3
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Novembre 2006
    Messages : 3
    Points : 1
    Points
    1
    Par défaut
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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.

  3. #3
    Nouveau Candidat au Club
    Profil pro
    Inscrit en
    Novembre 2006
    Messages
    3
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Novembre 2006
    Messages : 3
    Points : 1
    Points
    1
    Par défaut 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.
    Fichiers attachés Fichiers attachés

Discussions similaires

  1. Scrollbar invisible sous IE6
    Par m.zouabi dans le forum Mise en page CSS
    Réponses: 2
    Dernier message: 10/09/2009, 12h07
  2. [SWT] Rendre invisibles les scrollbars d'un Text
    Par soft-war dans le forum SWT/JFace
    Réponses: 7
    Dernier message: 12/06/2008, 17h43
  3. Comment remettre des scrollbar invisible à leurs positions d'origine
    Par avogadro dans le forum Général JavaScript
    Réponses: 1
    Dernier message: 16/08/2006, 18h13
  4. [VB6][MsFlexGrid] ScrollBars = 0 et première ligne invisible
    Par Phifi dans le forum VB 6 et antérieur
    Réponses: 4
    Dernier message: 03/08/2006, 15h39
  5. Réponses: 8
    Dernier message: 05/06/2002, 12h55

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo