Skip to content
Snippets Groups Projects
Commit 5948ef0e authored by karlmichaelschindler's avatar karlmichaelschindler
Browse files

add ClearButton in DiagrammForm 

git-svn-id: svn+ssh://michael-ep3.physik.uni-halle.de/Users/Shared/EELS2@104 7e267752-d5d8-41c0-93cd-a7fa012602f9
parent aa4612f8
Branches
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
source/Lazarus-GUI/EELS.lps
+ 45
− 45
View file @ 5948ef0e
...@@ -16,9 +16,8 @@ ...@@ -16,9 +16,8 @@
<ComponentName Value="MainForm"/> <ComponentName Value="MainForm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<TopLine Value="352"/> <TopLine Value="351"/>
<CursorPos X="64" Y="335"/> <CursorPos X="64" Y="335"/>
<UsageCount Value="202"/> <UsageCount Value="202"/>
<Loaded Value="True"/> <Loaded Value="True"/>
...@@ -30,7 +29,7 @@ ...@@ -30,7 +29,7 @@
<EditorIndex Value="3"/> <EditorIndex Value="3"/>
<TopLine Value="45"/> <TopLine Value="45"/>
<CursorPos Y="74"/> <CursorPos Y="74"/>
<UsageCount Value="172"/> <UsageCount Value="173"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
...@@ -39,7 +38,7 @@ ...@@ -39,7 +38,7 @@
<EditorIndex Value="4"/> <EditorIndex Value="4"/>
<TopLine Value="61"/> <TopLine Value="61"/>
<CursorPos X="32" Y="69"/> <CursorPos X="32" Y="69"/>
<UsageCount Value="120"/> <UsageCount Value="121"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
...@@ -47,7 +46,7 @@ ...@@ -47,7 +46,7 @@
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<EditorIndex Value="5"/> <EditorIndex Value="5"/>
<CursorPos Y="189"/> <CursorPos Y="189"/>
<UsageCount Value="47"/> <UsageCount Value="48"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="None"/> <DefaultSyntaxHighlighter Value="None"/>
</Unit4> </Unit4>
...@@ -56,7 +55,7 @@ ...@@ -56,7 +55,7 @@
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<EditorIndex Value="6"/> <EditorIndex Value="6"/>
<CursorPos X="91"/> <CursorPos X="91"/>
<UsageCount Value="52"/> <UsageCount Value="53"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="None"/> <DefaultSyntaxHighlighter Value="None"/>
</Unit5> </Unit5>
...@@ -66,10 +65,11 @@ ...@@ -66,10 +65,11 @@
<ComponentName Value="DiagrammForm"/> <ComponentName Value="DiagrammForm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="2"/> <EditorIndex Value="2"/>
<TopLine Value="22"/> <TopLine Value="25"/>
<CursorPos X="28" Y="46"/> <CursorPos X="33" Y="45"/>
<UsageCount Value="21"/> <UsageCount Value="22"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit6> </Unit6>
...@@ -122,115 +122,115 @@ ...@@ -122,115 +122,115 @@
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="UMainForm.pas"/> <Filename Value="UMainForm.pas"/>
<Caret Line="478" TopLine="465"/> <Caret Line="491" Column="22" TopLine="473"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="UMainForm.pas"/> <Filename Value="UMainForm.pas"/>
<Caret Line="481" TopLine="465"/> <Caret Line="494" TopLine="473"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="UMainForm.pas"/> <Filename Value="UMainForm.pas"/>
<Caret Line="491" Column="22" TopLine="473"/> <Caret Line="493" TopLine="473"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="UMainForm.pas"/> <Filename Value="../f90/doboson.f90"/>
<Caret Line="494" TopLine="473"/> <Caret Line="50" TopLine="36"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="UMainForm.pas"/> <Filename Value="../f90/doboson.f90"/>
<Caret Line="493" TopLine="473"/> <Caret Line="112" TopLine="98"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="../f90/doboson.f90"/> <Filename Value="../f90/doboson.f90"/>
<Caret Line="50" TopLine="36"/> <Caret Line="113" TopLine="98"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="../f90/doboson.f90"/> <Filename Value="../f90/doboson.f90"/>
<Caret Line="112" TopLine="98"/> <Caret Line="115" TopLine="98"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="../f90/doboson.f90"/> <Filename Value="../f90/doboson.f90"/>
<Caret Line="113" TopLine="98"/> <Caret Line="149" Column="29" TopLine="142"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="../f90/doboson.f90"/> <Filename Value="../f90/doboson.f90"/>
<Caret Line="115" TopLine="98"/> <Caret Column="90"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="../f90/doboson.f90"/> <Filename Value="../f90/doboson.f90"/>
<Caret Line="149" Column="29" TopLine="142"/> <Caret Line="22" Column="9"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="../f90/doboson.f90"/> <Filename Value="../f90/doboson.f90"/>
<Caret Column="90"/> <Caret Line="35" Column="60" TopLine="11"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="../f90/doboson.f90"/> <Filename Value="../f90/doboson.f90"/>
<Caret Line="22" Column="9"/> <Caret Line="36" Column="34" TopLine="12"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="../f90/doboson.f90"/> <Filename Value="../f90/doboson.f90"/>
<Caret Line="35" Column="60" TopLine="11"/> <Caret Line="236" Column="7" TopLine="212"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="../f90/doboson.f90"/> <Filename Value="../f90/doboson.f90"/>
<Caret Line="36" Column="34" TopLine="12"/> <Caret Line="247" Column="18" TopLine="223"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="../f90/doboson.f90"/> <Filename Value="../f90/doboson.f90"/>
<Caret Line="236" Column="7" TopLine="212"/> <Caret Line="248" Column="16" TopLine="224"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="../f90/doboson.f90"/> <Filename Value="../f90/doboson.f90"/>
<Caret Line="247" Column="18" TopLine="223"/> <Caret Line="249" Column="16" TopLine="225"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="../f90/doboson.f90"/> <Filename Value="../f90/doboson.f90"/>
<Caret Line="248" Column="16" TopLine="224"/> <Caret Line="263" Column="22" TopLine="239"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="../f90/doboson.f90"/> <Filename Value="../f90/doboson.f90"/>
<Caret Line="249" Column="16" TopLine="225"/> <Caret Line="264" Column="20" TopLine="240"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="../f90/doboson.f90"/> <Filename Value="UMainForm.pas"/>
<Caret Line="263" Column="22" TopLine="239"/> <Caret Line="493" Column="14" TopLine="468"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="../f90/doboson.f90"/> <Filename Value="UMainForm.pas"/>
<Caret Line="264" Column="20" TopLine="240"/> <Caret Line="478" TopLine="468"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="UMainForm.pas"/> <Filename Value="UMainForm.pas"/>
<Caret Line="493" Column="14" TopLine="468"/> <Caret Line="475" Column="34" TopLine="470"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="UMainForm.pas"/> <Filename Value="UDiagramm.pas"/>
<Caret Line="478" TopLine="468"/> <Caret Line="19" Column="30"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="UMainForm.pas"/> <Filename Value="UDiagramm.pas"/>
<Caret Line="475" Column="34" TopLine="470"/> <Caret Line="24" Column="30"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="UDiagramm.pas"/> <Filename Value="UMainForm.pas"/>
<Caret Line="19" Column="30"/> <Caret Line="496" Column="31" TopLine="472"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="UDiagramm.pas"/> <Filename Value="UDiagramm.pas"/>
<Caret Line="24" Column="30"/> <Caret Line="34" Column="33" TopLine="10"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="UMainForm.pas"/> <Filename Value="UDiagramm.pas"/>
<Caret Line="496" Column="31" TopLine="472"/> <Caret Line="9" Column="23" TopLine="9"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="UDiagramm.pas"/> <Filename Value="UDiagramm.pas"/>
<Caret Line="34" Column="33" TopLine="10"/> <Caret Line="46" Column="28" TopLine="22"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="UDiagramm.pas"/> <Filename Value="UDiagramm.pas"/>
<Caret Line="9" Column="23" TopLine="9"/> <Caret Line="53" Column="28" TopLine="25"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
<RunParams> <RunParams>
......
source/Lazarus-GUI/UDiagramm.lfm
+ 10
− 1
View file @ 5948ef0e
...@@ -9,7 +9,7 @@ object DiagrammForm: TDiagrammForm ...@@ -9,7 +9,7 @@ object DiagrammForm: TDiagrammForm
OnShow = FormShow OnShow = FormShow
LCLVersion = '2.0.10.0' LCLVersion = '2.0.10.0'
object CloseButton: TButton object CloseButton: TButton
Left = 296 Left = 48
Height = 25 Height = 25
Top = 488 Top = 488
Width = 75 Width = 75
...@@ -46,4 +46,13 @@ object DiagrammForm: TDiagrammForm ...@@ -46,4 +46,13 @@ object DiagrammForm: TDiagrammForm
object SpectrumChartLineSeries: TLineSeries object SpectrumChartLineSeries: TLineSeries
end end
end end
object ClearButton: TButton
Left = 48
Height = 25
Top = 456
Width = 75
Caption = 'Clear'
OnClick = ClearButtonClick
TabOrder = 2
end
end end
source/Lazarus-GUI/UDiagramm.pas
+ 7
− 0
View file @ 5948ef0e
...@@ -13,9 +13,11 @@ type ...@@ -13,9 +13,11 @@ type
{ TDiagrammForm } { TDiagrammForm }
TDiagrammForm = class(TForm) TDiagrammForm = class(TForm)
ClearButton: TButton;
SpectrumChart: TChart; SpectrumChart: TChart;
CloseButton: TButton; CloseButton: TButton;
SpectrumChartLineSeries: TLineSeries; SpectrumChartLineSeries: TLineSeries;
procedure ClearButtonClick(Sender: TObject);
procedure CloseButtonClick(Sender: TObject); procedure CloseButtonClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
private private
...@@ -38,6 +40,11 @@ begin ...@@ -38,6 +40,11 @@ begin
DiagrammForm.Visible := false; DiagrammForm.Visible := false;
end; end;
procedure TDiagrammForm.ClearButtonClick(Sender: TObject);
begin
SpectrumChartLineSeries.Clear;
end;
procedure TDiagrammForm.FormShow(Sender: TObject); procedure TDiagrammForm.FormShow(Sender: TObject);
var var
i: Integer; i: Integer;
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment