Graeme Geldenhuys wrote:
> Hi
>
> I'm trying my hand at implementing some basic LCL widgets using the
> fpGUI widgetset. I've never done this before! I have read the LCL
> Internals wiki page. I can't seem to see what I am doing wrong? I
> followed the wiki page to the letter.
>
> In FpGuiWSStdCtrls.pas I implemented the following for TCustomEdit.
> The 'writeln' statements are for debug only.
>
> { TFpGuiWSCustomEdit }
>
> class function TFpGuiWSCustomEdit.CreateHandle(const AWinControl:
> TWinControl;
> const AParams: TCreateParams): HWND;
> var
> lEdit: TFEdit;
> begin
> writeln('>>> ' + Classname + '.CreateHandle');
> lEdit := TFEdit.Create(AWinControl);
> Result := THandle(lEdit);
> writeln('<<< ' + Classname + '.CreateHandle');
> end;
>
> I also uncommented the line in the Initialization section
>
> RegisterWSComponent(TCustomEdit, TFpGuiWSCustomEdit);
>
>
> I can compile the LCL against fpGUI without problems. Creating a new
> application, set the widgetset to 'fpgui', then drop a TEdit on the
> main form and compile. The compiling on the test project also goes
> fine.
>
> Running the test project gives loads of errors. In the list of
> errors, I don't even see the 'writeln' statements I added, so don't
> even think it is reaching that far. I did exactly as the LCL
> Internals wiki pages said.
>
> Removing the TEdit and adding a TButton, the project runs fine. As
> soon as I add a TEdit, I get the crash. Any clues?
>
> List or errors I get:
>
> ============================================
> [EMAIL PROTECTED] fpgui_lcl: ./project1
> fpGFX/X11: TXWindow.SetSize is not properly implemented yet
> ERROR in LCL: Handle creation failed creating Edit1:TEdit
Probably you've not uncommented FPGuiWSStrCtrls in the uses section of
FPGuiInt.pas under implementation?
Regards,
Andrew Haines
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
