* My column classes DEFINE CLASS colPlain AS Column Editable = .F. PROCEDURE StartEdit THIS.Editable = .T. END PROC ENDDEFINE DEFINE colGreenBar AS colPlain DynamicBackColor = IIF(RECNO()%2=0,RGB(0,255,0),RGB(255,25,255) ENDDEFINE DEFINE CLASS ColResizer AS colGreenBar PROCDURE Resize THIS.Text1.FontSize = Blah Blah Blah ENDPROC ENDDEFINEThen in the Init of your form you simply;
SET CLASSLIB TO Columns.prg ADDITIVE WITH THISFORM.Grid1 .AddObject("Column2","colResizer") .AddObject("Column3","colResizer") ... ENDWITH