Próbálom - próbálom, de ha tudnál egy rövid kódot írni ehhez megköszönném!
procedure TForm1.FormCreate(Sender: TObject);
var
c: Tcanvas;
begin
c:=Tcanvas.Create;
c.Brush.Color:=clred;
gridpanel1.ParentColor:=false;
gridpanel1.PaintTo(c,100,100);
end;
Itt van ahol most tartok, nem tudom miért nem lesz látható eredmény.
|