Skip to content
Snippets Groups Projects
Commit 4f818295 authored by karlmichaelschindler's avatar karlmichaelschindler
Browse files

working chart. 

git-svn-id: svn+ssh://michael-ep3.physik.uni-halle.de/Users/Shared/EELS2@102 7e267752-d5d8-41c0-93cd-a7fa012602f9
parent 04306ad0
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
source/Lazarus-GUI/EELS.lpi
+ 1
− 0
View file @ 4f818295
......@@ -138,6 +138,7 @@
<Filename Value="UDiagramm.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="DiagrammForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
</Unit6>
</Units>
......
source/Lazarus-GUI/EELS.lps
+ 58
− 57
View file @ 4f818295
......@@ -26,7 +26,7 @@
<Filename Value="UEELSBoson.pas"/>
<IsPartOfProject Value="True"/>
<EditorIndex Value="3"/>
<TopLine Value="60"/>
<TopLine Value="45"/>
<CursorPos Y="74"/>
<UsageCount Value="172"/>
<Loaded Value="True"/>
......@@ -59,176 +59,177 @@
<DefaultSyntaxHighlighter Value="None"/>
</Unit5>
<Unit6>
<Filename Value="UDiagramm.pas"/>
<IsPartOfProject Value="True"/>
<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"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit6>
<Unit7>
<Filename Value="/opt/sw/share/lazarus/lcl/grids.pas"/>
<UnitName Value="Grids"/>
<EditorIndex Value="-1"/>
<TopLine Value="5257"/>
<CursorPos Y="5270"/>
<UsageCount Value="2"/>
</Unit6>
<Unit7>
</Unit7>
<Unit8>
<Filename Value="/opt/sw/share/lazarus/lcl/include/wincontrol.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="8371"/>
<CursorPos Y="8387"/>
<UsageCount Value="1"/>
</Unit7>
<Unit8>
</Unit8>
<Unit9>
<Filename Value="/opt/sw/share/lazarus/lcl/include/customedit.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="656"/>
<CursorPos Y="672"/>
<UsageCount Value="1"/>
</Unit8>
<Unit9>
</Unit9>
<Unit10>
<Filename Value="/opt/sw/share/lazarus/lcl/forms.pp"/>
<UnitName Value="Forms"/>
<EditorIndex Value="-1"/>
<TopLine Value="799"/>
<CursorPos X="3" Y="750"/>
<UsageCount Value="2"/>
</Unit9>
<Unit10>
</Unit10>
<Unit11>
<Filename Value="/opt/sw/share/lazarus/lcl/include/control.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="3534"/>
<CursorPos Y="3548"/>
<UsageCount Value="4"/>
</Unit10>
<Unit11>
<Filename Value="UDiagramm.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="DiagrammForm"/>
<ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="2"/>
<TopLine Value="10"/>
<CursorPos X="33" Y="35"/>
<UsageCount Value="21"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit11>
</Units>
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="UMainForm.pas"/>
<Caret Line="482" TopLine="465"/>
<Caret Line="478" TopLine="465"/>
</Position1>
<Position2>
<Filename Value="UMainForm.pas"/>
<Caret Line="478" TopLine="465"/>
<Caret Line="481" TopLine="465"/>
</Position2>
<Position3>
<Filename Value="UMainForm.pas"/>
<Caret Line="481" TopLine="465"/>
<Caret Line="478" TopLine="465"/>
</Position3>
<Position4>
<Filename Value="UMainForm.pas"/>
<Caret Line="478" TopLine="465"/>
<Caret Line="481" TopLine="465"/>
</Position4>
<Position5>
<Filename Value="UMainForm.pas"/>
<Caret Line="481" TopLine="465"/>
<Caret Line="491" Column="22" TopLine="473"/>
</Position5>
<Position6>
<Filename Value="UMainForm.pas"/>
<Caret Line="491" Column="22" TopLine="473"/>
<Caret Line="494" TopLine="473"/>
</Position6>
<Position7>
<Filename Value="UMainForm.pas"/>
<Caret Line="494" TopLine="473"/>
<Caret Line="493" TopLine="473"/>
</Position7>
<Position8>
<Filename Value="UMainForm.pas"/>
<Caret Line="493" TopLine="473"/>
<Filename Value="../f90/doboson.f90"/>
<Caret Line="50" TopLine="36"/>
</Position8>
<Position9>
<Filename Value="../f90/doboson.f90"/>
<Caret Line="50" TopLine="36"/>
<Caret Line="112" TopLine="98"/>
</Position9>
<Position10>
<Filename Value="../f90/doboson.f90"/>
<Caret Line="112" TopLine="98"/>
<Caret Line="113" TopLine="98"/>
</Position10>
<Position11>
<Filename Value="../f90/doboson.f90"/>
<Caret Line="113" TopLine="98"/>
<Caret Line="115" TopLine="98"/>
</Position11>
<Position12>
<Filename Value="../f90/doboson.f90"/>
<Caret Line="115" TopLine="98"/>
<Caret Line="149" Column="29" TopLine="142"/>
</Position12>
<Position13>
<Filename Value="../f90/doboson.f90"/>
<Caret Line="149" Column="29" TopLine="142"/>
<Caret Column="90"/>
</Position13>
<Position14>
<Filename Value="../f90/doboson.f90"/>
<Caret Column="90"/>
<Caret Line="22" Column="9"/>
</Position14>
<Position15>
<Filename Value="../f90/doboson.f90"/>
<Caret Line="22" Column="9"/>
<Caret Line="35" Column="60" TopLine="11"/>
</Position15>
<Position16>
<Filename Value="../f90/doboson.f90"/>
<Caret Line="35" Column="60" TopLine="11"/>
<Caret Line="36" Column="34" TopLine="12"/>
</Position16>
<Position17>
<Filename Value="../f90/doboson.f90"/>
<Caret Line="36" Column="34" TopLine="12"/>
<Caret Line="236" Column="7" TopLine="212"/>
</Position17>
<Position18>
<Filename Value="../f90/doboson.f90"/>
<Caret Line="236" Column="7" TopLine="212"/>
<Caret Line="247" Column="18" TopLine="223"/>
</Position18>
<Position19>
<Filename Value="../f90/doboson.f90"/>
<Caret Line="247" Column="18" TopLine="223"/>
<Caret Line="248" Column="16" TopLine="224"/>
</Position19>
<Position20>
<Filename Value="../f90/doboson.f90"/>
<Caret Line="248" Column="16" TopLine="224"/>
<Caret Line="249" Column="16" TopLine="225"/>
</Position20>
<Position21>
<Filename Value="../f90/doboson.f90"/>
<Caret Line="249" Column="16" TopLine="225"/>
<Caret Line="263" Column="22" TopLine="239"/>
</Position21>
<Position22>
<Filename Value="../f90/doboson.f90"/>
<Caret Line="263" Column="22" TopLine="239"/>
<Caret Line="264" Column="20" TopLine="240"/>
</Position22>
<Position23>
<Filename Value="../f90/doboson.f90"/>
<Caret Line="264" Column="20" TopLine="240"/>
<Filename Value="UMainForm.pas"/>
<Caret Line="493" Column="14" TopLine="468"/>
</Position23>
<Position24>
<Filename Value="UMainForm.pas"/>
<Caret Line="493" Column="14" TopLine="468"/>
<Caret Line="478" TopLine="468"/>
</Position24>
<Position25>
<Filename Value="UMainForm.pas"/>
<Caret Line="478" TopLine="468"/>
<Caret Line="475" Column="34" TopLine="470"/>
</Position25>
<Position26>
<Filename Value="UMainForm.pas"/>
<Caret Line="475" Column="34" TopLine="470"/>
<Filename Value="UDiagramm.pas"/>
<Caret Line="19" Column="30"/>
</Position26>
<Position27>
<Filename Value="UDiagramm.pas"/>
<Caret Line="19" Column="30"/>
<Caret Line="24" Column="30"/>
</Position27>
<Position28>
<Filename Value="UDiagramm.pas"/>
<Caret Line="24" Column="30"/>
</Position28>
<Position29>
<Filename Value="UMainForm.pas"/>
<Caret Line="496" Column="31" TopLine="472"/>
</Position28>
<Position29>
<Filename Value="UDiagramm.pas"/>
<Caret Line="34" Column="33" TopLine="10"/>
</Position29>
<Position30>
<Filename Value="UDiagramm.pas"/>
<Caret Line="34" Column="33" TopLine="10"/>
<Caret Line="9" Column="23" TopLine="9"/>
</Position30>
</JumpHistory>
<RunParams>
......
source/Lazarus-GUI/UDiagramm.lfm
+ 4
− 0
View file @ 4f818295
......@@ -6,6 +6,7 @@ object DiagrammForm: TDiagrammForm
Caption = 'DiagrammForm'
ClientHeight = 532
ClientWidth = 662
OnShow = FormShow
LCLVersion = '2.0.10.0'
object CloseButton: TButton
Left = 296
......@@ -34,6 +35,7 @@ object DiagrammForm: TDiagrammForm
Minors = <>
Title.LabelBrush.Style = bsClear
end>
BackColor = clWhite
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
Title.Brush.Color = clBtnFace
......@@ -41,5 +43,7 @@ object DiagrammForm: TDiagrammForm
Title.Text.Strings = (
'TAChart'
)
object SpectrumChartLineSeries: TLineSeries
end
end
end
source/Lazarus-GUI/UDiagramm.pas
+ 12
− 1
View file @ 4f818295
......@@ -5,7 +5,8 @@ unit UDiagramm;
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, TAGraph;
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, TAGraph,
TASeries, UEELSBoson;
type
......@@ -14,7 +15,9 @@ type
TDiagrammForm = class(TForm)
SpectrumChart: TChart;
CloseButton: TButton;
SpectrumChartLineSeries: TLineSeries;
procedure CloseButtonClick(Sender: TObject);
procedure FormShow(Sender: TObject);
private
public
......@@ -35,5 +38,13 @@ begin
DiagrammForm.Visible := false;
end;
procedure TDiagrammForm.FormShow(Sender: TObject);
var
i: Integer;
begin
for i:=0 to nout - 1 do
SpectrumChartLineSeries.AddXY(xout[i], yout[i]);
end;
end.
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