Перерисовка TImage

[-Jack-]

Всем привет. На форме есть StatusBar, на нем есть TImage.


Unit1

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.ExtCtrls,
  System.ImageList, Vcl.ImgList, Unit2;

type
  TForm1 = class(TForm)
    StatusBar1: TStatusBar;
    Button1: TButton;
    Image: TCustomImage;
    ImageList1: TImageList;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image:= TCustomImage.Create(StatusBar1);
  Image.Parent:= StatusBar1;
  Image.Height:= 15;
  Image.Width:= 15;
  Image.ImageContainer:= ImageList1;

end;

end.

Unit2

unit Unit2;

interface

uses
  System.Classes, System.SysUtils,
  Vcl.Controls, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.Graphics, Vcl.StdCtrls;


type
  TCustomImage = class(TImage)
  private
    { Private declarations }
    fCurrentItem: integer;
    procedure MainClickEvent(Sender: TObject);
  public
    { Public declarations }
    ImageContainer: TImageList;
    constructor Create(AOwner: TComponent);
  end;

implementation


constructor TCustomImage.Create(AOwner: TComponent);
begin
  inherited;
  self.OnClick:= MainClickEvent;
  fCurrentItem:= -1;
  self.Transparent:=true;
end;


procedure TCustomImage.MainClickEvent(Sender: TObject);
begin

  fCurrentItem:= fCurrentItem + 1;

  if (fCurrentItem > ImageContainer.Count - 1) then
    fCurrentItem := 0;

  ImageContainer.GetIcon(fCurrentItem, self.Picture.Icon);

end;

end.

При этом при клике по картинке,она не обновляется, хотя процедура MainClickEvent срабатывает.


Обратил внимание, что TCustomImage перерисовывается только в том случаи, если изменить размер формы. Как бы это исправить ? )

[Black Fregat]

Update вызвать напрямую

[-Jack-]

procedure TCustomImage.MainClickEvent(Sender: TObject);
begin

  fCurrentItem:= fCurrentItem + 1;

  if (fCurrentItem > ImageContainer.Count - 1) then
    fCurrentItem := 0;

  ImageContainer.GetIcon(fCurrentItem, self.Picture.Icon);

  self.Update;

end;

Не помогло.

[dummy_user]

ImageContainer где создаётся?