Problem ze zmianą rozmiaru Imege...

0

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...

  1. 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;
  1. 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...

0

musisz jeszcze zmienić
pasek.bitmap.width

0
Misiekd napisał(a)

musisz jeszcze zmienić
pasek.bitmap.width

Ale komponent Image (u mnie pasek) nie ma własności bitmap? Próbowałem kodu który podałem ale kompilator go nie "łyka"? Może czego zapomniałem zdeklarować ??

0

img1.Picture.Bitmap
sorka za błąd

0
Misiekd napisał(a)

img1.Picture.Bitmap
sorka za błąd

Działa :) Wielkie dzięki za pomoc...

1 użytkowników online, w tym zalogowanych: 0, gości: 1