On 3/30/21 5:06 PM, fredvs wrote:
Re-hello Pat
Ooops you write dynedit.face := tface.createface;
But with this it refuse to compile here:
main.pas(44,25) Error: identifier idents no member "createface"
Look at it again carefully.
Here is the comple program:
implementation
uses
main_mfm;
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;
dynedit.createframe;
{$ELSE}
// dynedit.frame := tcaptionframe.create(iscrollframe(self));
dynedit.createframe;
dynedit.frame.caption := 'Hello';
// dynedit.face := tface.create(iface(self));
dynedit.createface;
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;
_______________________________________________
mseide-msegui-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk
