Rysowanie w ScrollBox

0

Witam,
mam pytanie, w jaki sposób tlo w ScrollBoxie np. z białego zamienić na gradient lub obrazek. Patrzyłem czy to to ma Canvasa, ale nie ma i dlatego mam problem :(
Właściwie mi chodzi tylko o rysowanie wewnątrzy tego komponent z gradientem sobie poradzę.

Proszę o wskazówki
Dzięki [soczek]

0
var
    C : TCanvas;
Begin
  C := TCanvas.Create;
  C.Handle := GetDC(ScrollBox1.Handle);
  { rysyjesz}
  ReleaseDC(ScrollBox1.Handle, C.Handle);
  C.Free;
end;
0

No kodzik działa, ale nie do końca dobrze. Kiedy np. przewijam to co jest niżej to po tym już się nie rysowało, albo np. przesuwam jakiś komponent we wnętrzy to wtedy zostaje biały ślad - może ktoś wie co z tym zrobić

Proszę o pomoc
Dzięki

0

obsłuż zdarzenie OnPaint i dodaj

inherited;

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