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