Prozaiczne pytanie -Paintbox-

0

Witajcie.

Mam prosty problem, troche zardzewiałem w Delphi, powiedzcie:

  1. Jak wypuscic ten tekst, zeby był widoczny, co dodac? refresh?:
Paint.Canvas.TextOut(20,20,IntToStr(FormMain.Width)+'x'+IntToStr(FormMain.Height));
 
  1. Jak skorzystac z procedury Canvas.FillRect(obiekt : TRect); ?
    Definiuje sobie np.
var bg : Trect; 

Nastepnie robie:

bg := Paint.Canvas.Rectangle(5,5,100,100);
i jak chce Paint.Canvas.FullRect(bg); 

to wyrzuca blad na instrukcji przypisania do bg.
:(

Pomocy
gw

0

Co do pierwszego problemu, to o ile dorze zrozumiałem pytanie, to powynienes wrzucic kodzik do FormPaint() albo FormShow()

0

ad2
rectangle nie zwraca zadnego TRect - daj
bg:=rect(x,y,w,h) i bedzie dobrze.
a jak nie to po kolei
bg.top:=y;
bg.left:=x;......

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