Mam problem, tworze komponent Image i rysuje na nim prostokąt. Następnie zmieniam rozmiar image(zmienia się na pewno bo odczytuje jego długość) ale prostokąt nie chce się narysować większy niż przy pierwszym rozmiarze image... Co może być przyczyną?
Tak wygląda kod...
- Tworzenie image
procedure TMain.PasekWlasciwy(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
pasek, Image_grupy: TImage;
begin
Image_grupy:=TImage(Sender);
pasek:=TImage.Create(Image_grupy.Parent);
pasek.Parent:=(Image_grupy.Parent);
pasek.Top:=14;
pasek.Left:=7+((sek-1)*5);
pasek.Width:=75;
pasek.Height:=12;
pasek.Canvas.Pen.Color:=clGreen;
pasek.Canvas.Pen.Width:=5;
pasek.Canvas.Brush.Color:=clGreen;
pasek.Canvas.Rectangle(0,0,ClientWidth,ClientHeight);
pasek.OnMouseDown:=MouseDownNaPasku;
pasek.OnMouseMove:=MouseMoveNaPasku;
pasek.OnMouseUp:=MouseUpNaPasku;
end;
- Zmiana długości...
procedure TMain.MouseMoveNaPasku(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
pasek: TImage;
begin
pasek:=TImage(Sender);
pasek.Width:=pasek.Width+5;
Main.Caption:=IntToStr(pasek.Width); //informacja o nowej dlugości paska
pasek.Canvas.Pen.Color:=clGreen;
pasek.Canvas.Brush.Color:=clGreen;
pasek.Canvas.Rectangle(0,0,ClientWidth,ClientHeight);
end;
Proszę o jakąś poradę co może być przyczyną takiego stanu rzeczy...