diff options
| -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> |