Hello Roland. Yep, yep, yep, I think I get it.
The trick is to use this to create the face: dynedit.face := tface.create(self); _______________________ procedure tmainfo.mainformcreated(const sender: TObject); begin dynedit := tedit.Create(self); dynedit.bounds_cx := 100; dynedit.bounds_cy := 21; {.$define use_existing_frame} {$IFDEF use_existing_frame} dynedit.frame := tedit1.frame; {$ELSE} dynedit.frame := tcaptionframe.create(iscrollframe(self)); dynedit.frame.caption := 'Hello'; dynedit.face := tface.create(self); // here change dynedit.face.fade_color.count := 2; dynedit.face.fade_color[0] := cl_ltgreen; dynedit.face.fade_color[1] := cl_dkgreen; dynedit.face.fade_direction := gd_down; {$ENDIF} insertwidget(dynedit, makepoint(8, 48)); dynedit.show; end; procedure tmainfo.mainformdestroy(const sender: TObject); begin dynedit.free; end; ___________________ Heap dump by heaptrc unit of /home/fred/memoryleak/dynedit 1122 memory blocks allocated : 201244/203552 1122 memory blocks freed : 201244/203552 0 unfreed memory blocks : 0 True heap size : 131072 True free heap : 131072 ;-) Fre;D -- Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/ _______________________________________________ mseide-msegui-talk mailing list mseide-msegui-talk@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk