diff options
| author | Graeme Geldenhuys <graemeg@users.sourceforge.net> | 2007-04-05 23:06:55 +0000 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@users.sourceforge.net> | 2007-04-05 23:06:55 +0000 |
| commit | 4b429dbc80222e4d6d0d20a7aca9aba3c57838b5 (patch) | |
| tree | 0c7b3639975d6e8870d315c08ee9867ffb1e2b34 /prototypes/multihandle | |
| parent | 57848ff4bf8b9acf2d610a3eee6776fc6d57f0bc (diff) | |
| download | fpGUI-4b429dbc80222e4d6d0d20a7aca9aba3c57838b5.tar.xz | |
Fixed painting issue of multihandle prototype. The forms paint event painted over all embedded components.
Diffstat (limited to 'prototypes/multihandle')
| -rw-r--r-- | prototypes/multihandle/gui2Base.pas | 4 | ||||
| -rw-r--r-- | prototypes/multihandle/test.lpi | 7 |
2 files changed, 6 insertions, 5 deletions
diff --git a/prototypes/multihandle/gui2Base.pas b/prototypes/multihandle/gui2Base.pas index 90fcc843..1692dda0 100644 --- a/prototypes/multihandle/gui2Base.pas +++ b/prototypes/multihandle/gui2Base.pas @@ -215,7 +215,7 @@ end; procedure TWidget.EvOnMouseLeave(Sender: TObject); begin Exclude(FWidgetState, wsHasFocus); - Paint; +// Paint; end; procedure TWidget.SetColor(const AValue: TGfxColor); @@ -386,7 +386,7 @@ end; procedure TLabel.Paint; begin // Color := FParent.Canvas.GetColor; -// inherited Paint; + inherited Paint; Canvas.SetColor(colWhite); Canvas.FillRect(Rect(0,0,Width,Height)); Canvas.SetColor(colBlack); diff --git a/prototypes/multihandle/test.lpi b/prototypes/multihandle/test.lpi index 4315fb2c..cb9bb62e 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> @@ -9,7 +9,7 @@ </Flags> <SessionStorage Value="InProjectDir"/> <MainUnit Value="0"/> - <IconPath Value="./"/> + <IconPath Value=".\"/> <TargetFileExt Value=""/> </General> <VersionInfo> @@ -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> |