examples: barchart fixed compilation

git-svn-id: trunk@31484 -
This commit is contained in:
zeljko 2011-07-01 07:24:57 +00:00
parent 3e230c04f9
commit 2a8c382976
4 changed files with 59 additions and 51 deletions

View File

@ -1,39 +1,20 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<Version Value="4"/>
<Version Value="9"/>
<General>
<ProjectType Value="Application"/>
<Flags>
<SaveClosedFiles Value="False"/>
<SaveOnlyProjectUnits Value="True"/>
<LRSInOutputDirectory Value="False"/>
</Flags>
<MainUnit Value="0"/>
<ActiveEditorIndexAtStart Value="1"/>
<IconPath Value="./"/>
<TargetFileExt Value=""/>
<Title Value="chartdemo"/>
<ActiveWindowIndexAtStart Value="0"/>
</General>
<Units Count="2">
<Unit0>
<Filename Value="chartdemo.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="chartdemo"/>
<UsageCount Value="20"/>
</Unit0>
<Unit1>
<CursorPos X="71" Y="8"/>
<EditorIndex Value="0"/>
<Filename Value="frmmain.pas"/>
<ComponentName Value="Form1"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<ResourceFilename Value="frmmain.lrs"/>
<TopLine Value="1"/>
<UnitName Value="frmmain"/>
<UsageCount Value="20"/>
</Unit1>
</Units>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
@ -52,15 +33,40 @@
<MinVersion Major="1" Valid="True"/>
</Item1>
</RequiredPackages>
<Units Count="2">
<Unit0>
<Filename Value="chartdemo.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="chartdemo"/>
<UsageCount Value="20"/>
</Unit0>
<Unit1>
<Filename Value="frmmain.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="frmmain"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="0"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="73" Y="8"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="2"/>
<Version Value="10"/>
<SearchPaths>
<SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/>
<SrcPath Value="$(LazarusDir)/lcl;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)"/>
</SearchPaths>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>

View File

@ -1,25 +1,25 @@
object Form1: TForm1
Caption = 'Form1'
ClientHeight = 300
ClientWidth = 400
OnShow = Form1Show
PixelsPerInch = 90
HorzScrollBar.Page = 401
VertScrollBar.Page = 301
Left = 440
Height = 300
Top = 209
Width = 400
HorzScrollBar.Page = 401
VertScrollBar.Page = 301
Caption = 'Form1'
ClientHeight = 300
ClientWidth = 400
OnShow = Form1Show
LCLVersion = '0.9.31'
object BarChart1: TBarChart
Depth = 20
Caption = 'My Data'
ClientHeight = 256
ClientWidth = 368
FullRepaint = False
TabOrder = 0
Left = 16
Height = 256
Top = 16
Width = 368
Caption = 'My Data'
FullRepaint = False
TabOrder = 0
Bars = <>
Depth = 20
LabelPosition = plLeft
end
end

View File

@ -1,9 +1,11 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#7'Caption'#6#5'Form1'#12'ClientHeight'#3','#1#11'Cl'
+'ientWidth'#3#144#1#6'OnShow'#7#9'Form1Show'#13'PixelsPerInch'#2'Z'#18'HorzS'
+'crollBar.Page'#3#145#1#18'VertScrollBar.Page'#3'-'#1#4'Left'#3#184#1#6'Heig'
+'ht'#3','#1#3'Top'#3#209#0#5'Width'#3#144#1#0#9'TBarChart'#9'BarChart1'#5'De'
+'pth'#2#20#7'Caption'#6#7'My Data'#12'ClientHeight'#3#0#1#11'ClientWidth'#3
+'p'#1#11'FullRepaint'#8#8'TabOrder'#2#0#4'Left'#2#16#6'Height'#3#0#1#3'Top'#2
+#16#5'Width'#3'p'#1#0#0#0
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#184#1#6'Height'#3','#1#3'Top'#3#209#0#5'W'
+'idth'#3#144#1#18'HorzScrollBar.Page'#3#145#1#18'VertScrollBar.Page'#3'-'#1#7
+'Caption'#6#5'Form1'#12'ClientHeight'#3','#1#11'ClientWidth'#3#144#1#6'OnSho'
+'w'#7#9'Form1Show'#10'LCLVersion'#6#6'0.9.31'#0#9'TBarChart'#9'BarChart1'#4
+'Left'#2#16#6'Height'#3#0#1#3'Top'#2#16#5'Width'#3'p'#1#7'Caption'#6#7'My Da'
+'ta'#11'FullRepaint'#8#8'TabOrder'#2#0#4'Bars'#14#0#5'Depth'#2#20#13'LabelPo'
+'sition'#7#6'plLeft'#0#0#0
]);

View File

@ -5,7 +5,7 @@ unit frmmain;
interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, chart;
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, BarChart;
type
TForm1 = class(TForm)