Graphics32

[hrypa6411]

Witam
Chciałbym zrobic taki prosty programik , ktory bedzie mial pole PaintBox z GR32 i przycisk. Po wcisnieciu przycisku ma sie narysowac prostokat na PainBox'ie o losowych wspolrzednych

procedure TForm1.PaintBox321PaintBuffer(Sender: TObject);
begin
  PaintBox321.Buffer.Clear(Color32(255 , 255 , 255 , 100));
// PaintBox321.Buffer.FillRectT(150 , 150 , 300 , 300 , Color32(100 , 100 , 100 , 255));
  PaintBox321.Repaint;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

  PaintBox321.Buffer.FillRectT(150 , 150 , 300 , 300 , Color32(100 , 100 , 100 , 255));
  PaintBox321.Repaint;
end;

W pierwszej z tych procedur prostokat sie rysuje , a w buttonclick sie nie rysyje, dlaczego ?? jak zrobic zeby sie rysowal ??(ten kod ma byc tylko zaczatkiem do tego programu)

[one_eddie]

A czy jesli zakomentujesz linie PaintBox321.Buffer.Clear(Color32(255 , 255 , 255 , 100)); coś sie zmienia?

[BABCIA ADHD]

Niestety nie używałem czegoś takiego, więc być może trochę nie trafię z odpowiedzią.

Ale czym jest procedura "PaintBox321PaintBuffer" ? Czy ona przypadkiem nie jest wywoływana gdy obraz (grafika) ma być narysowane - czyli gdy następuje odświeżenie. I w tej procedurze masz "PaintBox321.Repaint;" , a to chyba odświeża paintbox'a, więc czy przypadkiem nie ma tam rekurencji (tj. wywołania procedury w tej samej procedurze) ?. A druga procedura to po kliknięciu na przycisk, rysujesz prostokąt, a potem odświeżasz paintbox'a a w procedurze odświeżającej masz czyszczenie ekranu i zmazuje ci się prostokąt, zanim go zobaczysz.

Nie jestem tego pewien, bo nie wiem kiedy wykonuje się ta pierwsza procedura. Napisz mi kiedy to może pomogę