diff options
author | Felipe Menteiro de Carvalho <sekelsenmat@users.sourceforge.net> | 2006-11-23 18:59:10 +0000 |
---|---|---|
committer | Felipe Menteiro de Carvalho <sekelsenmat@users.sourceforge.net> | 2006-11-23 18:59:10 +0000 |
commit | dada2e72d6c0ca106db0a0dafa179e54a408ec73 (patch) | |
tree | f344d4c368f52727a5534645ffca54077f81c1cb /prototypes/multihandle | |
parent | 7a9b7aa63ec89922242ce4fca8a558a0abbe8b02 (diff) | |
download | fpGUI-dada2e72d6c0ca106db0a0dafa179e54a408ec73.tar.xz |
Implemented ProcessEvent and sending events to parent on Windows platform.
Diffstat (limited to 'prototypes/multihandle')
-rw-r--r-- | prototypes/multihandle/gui2Base.pas | 10 | ||||
-rw-r--r-- | prototypes/multihandle/test.lpi | 5 |
2 files changed, 7 insertions, 8 deletions
diff --git a/prototypes/multihandle/gui2Base.pas b/prototypes/multihandle/gui2Base.pas index e0b0812e..3af4326c 100644 --- a/prototypes/multihandle/gui2Base.pas +++ b/prototypes/multihandle/gui2Base.pas @@ -54,7 +54,7 @@ type property OnPainting: TNotifyEvent read FOnPainting write FOnPainting; property Color: TGfxColor read FColor write SetColor; public - constructor Create(AParent: TFCustomWindow; AWindowOptions: TGfxWindowOptions); override; + constructor Create(AParent: TFCustomWindow; AWindowOptions: TFWindowOptions); override; constructor Create; virtual; property OnClick: TNotifyEvent read FOnClick write FOnClick; end; @@ -66,7 +66,7 @@ type procedure PopupWindowClick(Sender: TObject); procedure Paint; override; public - constructor Create(AParent: TFCustomWindow; AWindowOptions: TGfxWindowOptions); override; + constructor Create(AParent: TFCustomWindow; AWindowOptions: TFWindowOptions); override; constructor Create; override; end; @@ -251,8 +251,7 @@ begin Canvas.FillRect(r); end; -constructor TForm.Create(AParent: TFCustomWindow; - AWindowOptions: TGfxWindowOptions); +constructor TForm.Create(AParent: TFCustomWindow; AWindowOptions: TFWindowOptions); begin inherited Create(AParent, AWindowOptions); FColor := colWhite; @@ -346,8 +345,7 @@ begin inherited Paint; end; -constructor TPopupWindow.Create(AParent: TFCustomWindow; - AWindowOptions: TGfxWindowOptions); +constructor TPopupWindow.Create(AParent: TFCustomWindow; AWindowOptions: TFWindowOptions); begin inherited Create(AParent, AWindowOptions); // SetPosition(); diff --git a/prototypes/multihandle/test.lpi b/prototypes/multihandle/test.lpi index af9f5e1e..7422b477 100644 --- a/prototypes/multihandle/test.lpi +++ b/prototypes/multihandle/test.lpi @@ -1,7 +1,7 @@ <?xml version="1.0"?> <CONFIG> <ProjectOptions> - <PathDelim Value="/"/> + <PathDelim Value="\"/> <Version Value="5"/> <General> <Flags> @@ -23,7 +23,7 @@ <RunParams> <local> <FormatVersion Value="1"/> - <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/> + <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/> </local> </RunParams> <RequiredPackages Count="1"> @@ -41,6 +41,7 @@ </ProjectOptions> <CompilerOptions> <Version Value="5"/> + <PathDelim Value="\"/> <CodeGeneration> <Generate Value="Faster"/> </CodeGeneration> |