Сломанные полосы прокрутки в TImgView32 от Graphics32 - PullRequest
Новая
       46

Сломанные полосы прокрутки в TImgView32 от Graphics32

0 голосов
/ 08 октября 2019

Я хочу отображать изображения на TImgView32, но полосы прокрутки явно не работают. Когда я увеличиваю, изменяю размер окна, затем уменьшаю, я вижу это:

Broken scrollbar

Я установил ImgView321.ScrollBars.Visibility в svAuto, поэтому долженне будет никаких полос прокрутки.

Вот весь мой код. Unit1.dfm: 

object Form1: TForm1
  Left = 414
  Top = 179
  Width = 711
  Height = 494
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnMouseWheelDown = FormMouseWheelDown
  OnMouseWheelUp = FormMouseWheelUp
  PixelsPerInch = 96
  TextHeight = 13
  object ImgView321: TImgView32
    Left = 0
    Top = 0
    Width = 695
    Height = 454
    Align = alClient
    Bitmap.ResamplerClassName = 'TNearestResampler'
    BitmapAlign = baCustom
    Scale = 1.000000000000000000
    ScaleMode = smScale
    ScrollBars.ShowHandleGrip = True
    ScrollBars.Style = rbsDefault
    ScrollBars.Size = 17
    ScrollBars.Visibility = svAuto
    OverSize = 0
    TabOrder = 0
  end
end

и Unit1.pas: 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, GR32_Image;

type
  TForm1 = class(TForm)
    ImgView321: TImgView32;
    procedure FormCreate(Sender: TObject);
    procedure FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
      MousePos: TPoint; var Handled: Boolean);
    procedure FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
      MousePos: TPoint; var Handled: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  ImgView321.Bitmap.LoadFromFile('1.bmp');
end;

procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  ImgView321.Scale := ImgView321.Scale / 2;

  ImgView321.Refresh;  
end;

procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  ImgView321.Scale := ImgView321.Scale * 2;

  ImgView321.Refresh;
end;

end.

1 Ответ

0 голосов
/ 08 октября 2019

Кажется, чтобы решить проблему, когда вместо 

ImgView321.Invalidate;

или 

ImgView321.Refresh;

Я просто делаю: 

ImgView321.ScrollBars.Visibility := svHidden;  
ImgView321.ScrollBars.Visibility := svAuto;

Кажется, что проблема сперекрашивание полос прокрутки.

...