Local User
5 months ago
12 changed files with 2585 additions and 0 deletions
@ -0,0 +1,11 @@
|
||||
xfce4-terminal -e |
||||
|
||||
# The first two lines of this file contain the prefix and suffix |
||||
# that it takes to execute a shell script in your favourite terminal. |
||||
# examples (note that some lines contain a trailing space): |
||||
# xfce4-terminal -e |
||||
# |
||||
# xterm -hold -e |
||||
# |
||||
# terminus -e |
||||
# |
||||
Binary file not shown.
Binary file not shown.
|
After Width: | Height: | Size: 134 KiB |
@ -0,0 +1,87 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?> |
||||
<CONFIG> |
||||
<ProjectOptions> |
||||
<Version Value="12"/> |
||||
<PathDelim Value="\"/> |
||||
<General> |
||||
<Flags> |
||||
<CompatibilityMode Value="True"/> |
||||
</Flags> |
||||
<SessionStorage Value="InProjectDir"/> |
||||
<Title Value="phyportal"/> |
||||
<Scaled Value="True"/> |
||||
<ResourceType Value="res"/> |
||||
<UseXPManifest Value="True"/> |
||||
<XPManifest> |
||||
<DpiAware Value="True"/> |
||||
</XPManifest> |
||||
<Icon Value="0"/> |
||||
</General> |
||||
<BuildModes Count="1"> |
||||
<Item1 Name="Default" Default="True"/> |
||||
</BuildModes> |
||||
<PublishOptions> |
||||
<Version Value="2"/> |
||||
<UseFileFilters Value="True"/> |
||||
</PublishOptions> |
||||
<RunParams> |
||||
<FormatVersion Value="2"/> |
||||
</RunParams> |
||||
<RequiredPackages Count="1"> |
||||
<Item1> |
||||
<PackageName Value="LCL"/> |
||||
</Item1> |
||||
</RequiredPackages> |
||||
<Units Count="3"> |
||||
<Unit0> |
||||
<Filename Value="phyportal.lpr"/> |
||||
<IsPartOfProject Value="True"/> |
||||
</Unit0> |
||||
<Unit1> |
||||
<Filename Value="unit1.pas"/> |
||||
<IsPartOfProject Value="True"/> |
||||
<ComponentName Value="Form1"/> |
||||
<HasResources Value="True"/> |
||||
<ResourceBaseClass Value="Form"/> |
||||
<UnitName Value="Unit1"/> |
||||
</Unit1> |
||||
<Unit2> |
||||
<Filename Value="unit2.pas"/> |
||||
<IsPartOfProject Value="True"/> |
||||
<ComponentName Value="Form2"/> |
||||
<HasResources Value="True"/> |
||||
<ResourceBaseClass Value="Form"/> |
||||
<UnitName Value="Unit2"/> |
||||
</Unit2> |
||||
</Units> |
||||
</ProjectOptions> |
||||
<CompilerOptions> |
||||
<Version Value="11"/> |
||||
<PathDelim Value="\"/> |
||||
<Target> |
||||
<Filename Value="phyportal"/> |
||||
</Target> |
||||
<SearchPaths> |
||||
<IncludeFiles Value="$(ProjOutDir)"/> |
||||
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/> |
||||
</SearchPaths> |
||||
<Linking> |
||||
<Debugging> |
||||
<DebugInfoType Value="dsDwarf2Set"/> |
||||
</Debugging> |
||||
</Linking> |
||||
</CompilerOptions> |
||||
<Debugging> |
||||
<Exceptions Count="3"> |
||||
<Item1> |
||||
<Name Value="EAbort"/> |
||||
</Item1> |
||||
<Item2> |
||||
<Name Value="ECodetoolError"/> |
||||
</Item2> |
||||
<Item3> |
||||
<Name Value="EFOpenError"/> |
||||
</Item3> |
||||
</Exceptions> |
||||
</Debugging> |
||||
</CONFIG> |
||||
@ -0,0 +1,23 @@
|
||||
program phyportal; |
||||
|
||||
{$mode objfpc}{$H+} |
||||
|
||||
uses |
||||
{$IFDEF UNIX}{$IFDEF UseCThreads} |
||||
cthreads, |
||||
{$ENDIF}{$ENDIF} |
||||
Interfaces, // this includes the LCL widgetset |
||||
Forms, Unit1, Unit2 |
||||
{ you can add units after this }; |
||||
|
||||
{$R *.res} |
||||
|
||||
begin |
||||
RequireDerivedFormResource:=True; |
||||
Application.Scaled:=True; |
||||
Application.Initialize; |
||||
Application.CreateForm(TForm1, Form1); |
||||
Application.CreateForm(TForm2, Form2); |
||||
Application.Run; |
||||
end. |
||||
|
||||
@ -0,0 +1,179 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?> |
||||
<CONFIG> |
||||
<ProjectSession> |
||||
<PathDelim Value="\"/> |
||||
<Version Value="12"/> |
||||
<BuildModes Active="Default"/> |
||||
<Units Count="4"> |
||||
<Unit0> |
||||
<Filename Value="phyportal.lpr"/> |
||||
<IsPartOfProject Value="True"/> |
||||
<EditorIndex Value="-1"/> |
||||
<WindowIndex Value="-1"/> |
||||
<TopLine Value="-1"/> |
||||
<CursorPos X="-1" Y="-1"/> |
||||
<UsageCount Value="183"/> |
||||
</Unit0> |
||||
<Unit1> |
||||
<Filename Value="unit1.pas"/> |
||||
<IsPartOfProject Value="True"/> |
||||
<ComponentName Value="Form1"/> |
||||
<HasResources Value="True"/> |
||||
<ResourceBaseClass Value="Form"/> |
||||
<UnitName Value="Unit1"/> |
||||
<IsVisibleTab Value="True"/> |
||||
<TopLine Value="539"/> |
||||
<CursorPos X="68" Y="551"/> |
||||
<UsageCount Value="183"/> |
||||
<Loaded Value="True"/> |
||||
<LoadedDesigner Value="True"/> |
||||
</Unit1> |
||||
<Unit2> |
||||
<Filename Value="unit2.pas"/> |
||||
<IsPartOfProject Value="True"/> |
||||
<ComponentName Value="Form2"/> |
||||
<HasResources Value="True"/> |
||||
<ResourceBaseClass Value="Form"/> |
||||
<UnitName Value="Unit2"/> |
||||
<EditorIndex Value="1"/> |
||||
<TopLine Value="24"/> |
||||
<CursorPos X="77" Y="49"/> |
||||
<UsageCount Value="178"/> |
||||
<Loaded Value="True"/> |
||||
<LoadedDesigner Value="True"/> |
||||
</Unit2> |
||||
<Unit3> |
||||
<Filename Value="C:\lazarus\fpc\3.0.4\source\packages\fcl-process\src\process.pp"/> |
||||
<EditorIndex Value="-1"/> |
||||
<TopLine Value="268"/> |
||||
<CursorPos X="21" Y="24"/> |
||||
<UsageCount Value="5"/> |
||||
</Unit3> |
||||
</Units> |
||||
<JumpHistory Count="30" HistoryIndex="29"> |
||||
<Position1> |
||||
<Filename Value="unit1.pas"/> |
||||
<Caret Line="729" TopLine="716"/> |
||||
</Position1> |
||||
<Position2> |
||||
<Filename Value="unit1.pas"/> |
||||
<Caret Line="730" TopLine="716"/> |
||||
</Position2> |
||||
<Position3> |
||||
<Filename Value="unit1.pas"/> |
||||
<Caret Line="733" TopLine="716"/> |
||||
</Position3> |
||||
<Position4> |
||||
<Filename Value="unit1.pas"/> |
||||
<Caret Line="736" TopLine="716"/> |
||||
</Position4> |
||||
<Position5> |
||||
<Filename Value="unit1.pas"/> |
||||
<Caret Line="725" TopLine="716"/> |
||||
</Position5> |
||||
<Position6> |
||||
<Filename Value="unit1.pas"/> |
||||
<Caret Line="729" TopLine="716"/> |
||||
</Position6> |
||||
<Position7> |
||||
<Filename Value="unit1.pas"/> |
||||
<Caret Line="730" TopLine="716"/> |
||||
</Position7> |
||||
<Position8> |
||||
<Filename Value="unit1.pas"/> |
||||
<Caret Line="733" TopLine="716"/> |
||||
</Position8> |
||||
<Position9> |
||||
<Filename Value="unit1.pas"/> |
||||
<Caret Line="686" Column="76" TopLine="674"/> |
||||
</Position9> |
||||
<Position10> |
||||
<Filename Value="unit1.pas"/> |
||||
</Position10> |
||||
<Position11> |
||||
<Filename Value="unit1.pas"/> |
||||
<Caret Line="488" Column="3" TopLine="467"/> |
||||
</Position11> |
||||
<Position12> |
||||
<Filename Value="unit1.pas"/> |
||||
<Caret Line="763" Column="12" TopLine="742"/> |
||||
</Position12> |
||||
<Position13> |
||||
<Filename Value="unit1.pas"/> |
||||
<Caret Line="201" Column="86" TopLine="193"/> |
||||
</Position13> |
||||
<Position14> |
||||
<Filename Value="unit1.pas"/> |
||||
<Caret Line="204" Column="18" TopLine="191"/> |
||||
</Position14> |
||||
<Position15> |
||||
<Filename Value="unit1.pas"/> |
||||
<Caret Line="190" Column="52" TopLine="176"/> |
||||
</Position15> |
||||
<Position16> |
||||
<Filename Value="unit1.pas"/> |
||||
<Caret Line="926" Column="20" TopLine="924"/> |
||||
</Position16> |
||||
<Position17> |
||||
<Filename Value="unit1.pas"/> |
||||
<Caret Line="12" Column="3"/> |
||||
</Position17> |
||||
<Position18> |
||||
<Filename Value="unit1.pas"/> |
||||
<Caret Line="584" Column="54" TopLine="476"/> |
||||
</Position18> |
||||
<Position19> |
||||
<Filename Value="unit1.pas"/> |
||||
<Caret Line="488" Column="75" TopLine="479"/> |
||||
</Position19> |
||||
<Position20> |
||||
<Filename Value="unit1.pas"/> |
||||
<Caret Line="323" Column="11" TopLine="308"/> |
||||
</Position20> |
||||
<Position21> |
||||
<Filename Value="unit1.pas"/> |
||||
<Caret Line="10" Column="26"/> |
||||
</Position21> |
||||
<Position22> |
||||
<Filename Value="unit1.pas"/> |
||||
<Caret Line="71" Column="11" TopLine="51"/> |
||||
</Position22> |
||||
<Position23> |
||||
<Filename Value="unit1.pas"/> |
||||
<Caret Line="74" Column="11" TopLine="54"/> |
||||
</Position23> |
||||
<Position24> |
||||
<Filename Value="unit1.pas"/> |
||||
<Caret Line="75" Column="11" TopLine="55"/> |
||||
</Position24> |
||||
<Position25> |
||||
<Filename Value="unit1.pas"/> |
||||
<Caret Line="76" Column="11" TopLine="56"/> |
||||
</Position25> |
||||
<Position26> |
||||
<Filename Value="unit1.pas"/> |
||||
<Caret Line="77" Column="11" TopLine="57"/> |
||||
</Position26> |
||||
<Position27> |
||||
<Filename Value="unit1.pas"/> |
||||
<Caret Line="305" Column="15" TopLine="284"/> |
||||
</Position27> |
||||
<Position28> |
||||
<Filename Value="unit1.pas"/> |
||||
<Caret Line="323" Column="15" TopLine="302"/> |
||||
</Position28> |
||||
<Position29> |
||||
<Filename Value="unit1.pas"/> |
||||
<Caret Line="12" Column="24"/> |
||||
</Position29> |
||||
<Position30> |
||||
<Filename Value="unit1.pas"/> |
||||
<Caret Line="85" Column="16" TopLine="58"/> |
||||
</Position30> |
||||
</JumpHistory> |
||||
<RunParams> |
||||
<FormatVersion Value="2"/> |
||||
<Modes ActiveMode=""/> |
||||
</RunParams> |
||||
</ProjectSession> |
||||
</CONFIG> |
||||
Binary file not shown.
@ -0,0 +1,959 @@
|
||||
object Form1: TForm1 |
||||
Left = 550 |
||||
Height = 781 |
||||
Top = 0 |
||||
Width = 1016 |
||||
Caption = 'phyportal' |
||||
ClientHeight = 781 |
||||
ClientWidth = 1016 |
||||
Color = clNavy |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnCreate = FormCreate |
||||
OnShow = FormShow |
||||
Position = poDesktopCenter |
||||
LCLVersion = '2.2.0.4' |
||||
object Shape1: TShape |
||||
Left = 13 |
||||
Height = 288 |
||||
Top = 64 |
||||
Width = 986 |
||||
Brush.Color = clSilver |
||||
Pen.Style = psClear |
||||
end |
||||
object Label1: TLabel |
||||
Left = 19 |
||||
Height = 20 |
||||
Top = 90 |
||||
Width = 39 |
||||
Caption = 'phy-1' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
Font.Style = [fsBold] |
||||
ParentFont = False |
||||
end |
||||
object LabelCPU1: TLabel |
||||
Left = 90 |
||||
Height = 20 |
||||
Top = 90 |
||||
Width = 116 |
||||
Caption = 'CPUs busy (total):' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
ParentFont = False |
||||
end |
||||
object LabelMEM1: TLabel |
||||
Left = 90 |
||||
Height = 20 |
||||
Top = 115 |
||||
Width = 114 |
||||
Caption = 'RAM used (total):' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
ParentFont = False |
||||
end |
||||
object Button2: TButton |
||||
Left = 90 |
||||
Height = 25 |
||||
Top = 141 |
||||
Width = 124 |
||||
Caption = 'more info...' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnClick = Button2Click |
||||
ParentFont = False |
||||
TabOrder = 0 |
||||
end |
||||
object Memo1: TMemo |
||||
Left = 397 |
||||
Height = 76 |
||||
Top = 90 |
||||
Width = 421 |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
Lines.Strings = ( |
||||
'getm (by klingbei) uses 50 cores (expected end 2023-10-10)' |
||||
'cdo merge (by thomas) uses 2 cores (expected end 2023-10-10)' |
||||
) |
||||
OnChange = Memo1Change |
||||
ParentFont = False |
||||
ReadOnly = True |
||||
ScrollBars = ssBoth |
||||
TabOrder = 1 |
||||
WordWrap = False |
||||
end |
||||
object Button3: TButton |
||||
Left = 826 |
||||
Height = 25 |
||||
Top = 90 |
||||
Width = 165 |
||||
Caption = 'start jupyter lab' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnClick = Button3Click |
||||
ParentFont = False |
||||
TabOrder = 2 |
||||
end |
||||
object Button4: TButton |
||||
Left = 825 |
||||
Height = 25 |
||||
Top = 115 |
||||
Width = 166 |
||||
Caption = 'start console' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnClick = Button4Click |
||||
ParentFont = False |
||||
TabOrder = 3 |
||||
end |
||||
object Label4: TLabel |
||||
Left = 19 |
||||
Height = 20 |
||||
Top = 64 |
||||
Width = 165 |
||||
Caption = 'IOW COMPUTE SERVERS' |
||||
Font.Color = clGreen |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
Font.Style = [fsBold] |
||||
ParentFont = False |
||||
end |
||||
object Button5: TButton |
||||
Left = 825 |
||||
Height = 25 |
||||
Top = 141 |
||||
Width = 166 |
||||
Caption = 'start console via xpra' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnClick = Button5Click |
||||
ParentFont = False |
||||
TabOrder = 4 |
||||
end |
||||
object Shape2: TShape |
||||
Left = 13 |
||||
Height = 51 |
||||
Top = 6 |
||||
Width = 986 |
||||
Brush.Color = clSilver |
||||
Pen.Style = psClear |
||||
end |
||||
object Label5: TLabel |
||||
Left = 19 |
||||
Height = 20 |
||||
Top = 6 |
||||
Width = 41 |
||||
Caption = 'LINKS' |
||||
Font.Color = clGreen |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
Font.Style = [fsBold] |
||||
ParentFont = False |
||||
end |
||||
object Button1: TButton |
||||
Left = 19 |
||||
Height = 25 |
||||
Top = 26 |
||||
Width = 114 |
||||
Caption = 'beginners'' intro' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnClick = Button1Click |
||||
ParentFont = False |
||||
TabOrder = 5 |
||||
end |
||||
object Button6: TButton |
||||
Left = 134 |
||||
Height = 25 |
||||
Top = 26 |
||||
Width = 114 |
||||
Caption = 'phywiki' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnClick = Button6Click |
||||
ParentFont = False |
||||
TabOrder = 6 |
||||
end |
||||
object Button7: TButton |
||||
Left = 250 |
||||
Height = 25 |
||||
Top = 26 |
||||
Width = 114 |
||||
Caption = 'webmail' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnClick = Button7Click |
||||
ParentFont = False |
||||
TabOrder = 7 |
||||
end |
||||
object Button8: TButton |
||||
Left = 365 |
||||
Height = 25 |
||||
Top = 26 |
||||
Width = 114 |
||||
Caption = 'chat' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnClick = Button8Click |
||||
ParentFont = False |
||||
TabOrder = 8 |
||||
end |
||||
object Button9: TButton |
||||
Left = 480 |
||||
Height = 25 |
||||
Top = 26 |
||||
Width = 114 |
||||
Caption = 'owncloud' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnClick = Button9Click |
||||
ParentFont = False |
||||
TabOrder = 9 |
||||
end |
||||
object Button10: TButton |
||||
Left = 595 |
||||
Height = 25 |
||||
Top = 26 |
||||
Width = 114 |
||||
Caption = 'public drive' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnClick = Button10Click |
||||
ParentFont = False |
||||
TabOrder = 10 |
||||
end |
||||
object Button11: TButton |
||||
Left = 710 |
||||
Height = 25 |
||||
Top = 26 |
||||
Width = 114 |
||||
Caption = 'git server' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnClick = Button11Click |
||||
ParentFont = False |
||||
TabOrder = 11 |
||||
end |
||||
object Label6: TLabel |
||||
Left = 19 |
||||
Height = 20 |
||||
Top = 179 |
||||
Width = 39 |
||||
Caption = 'phy-2' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
Font.Style = [fsBold] |
||||
ParentFont = False |
||||
end |
||||
object LabelCPU2: TLabel |
||||
Left = 90 |
||||
Height = 20 |
||||
Top = 179 |
||||
Width = 116 |
||||
Caption = 'CPUs busy (total):' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
ParentFont = False |
||||
end |
||||
object LabelMEM2: TLabel |
||||
Left = 90 |
||||
Height = 20 |
||||
Top = 205 |
||||
Width = 114 |
||||
Caption = 'RAM used (total):' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
ParentFont = False |
||||
end |
||||
object Button12: TButton |
||||
Left = 90 |
||||
Height = 25 |
||||
Top = 230 |
||||
Width = 124 |
||||
Caption = 'more info...' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnClick = Button12Click |
||||
ParentFont = False |
||||
TabOrder = 12 |
||||
end |
||||
object Memo2: TMemo |
||||
Left = 397 |
||||
Height = 76 |
||||
Top = 179 |
||||
Width = 421 |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
Lines.Strings = ( |
||||
'getm (by klingbei) uses 50 cores (expected end 2023-10-10)' |
||||
'cdo merge (by thomas) uses 2 cores (expected end 2023-10-10)' |
||||
) |
||||
OnChange = Memo1Change |
||||
ParentFont = False |
||||
ReadOnly = True |
||||
ScrollBars = ssBoth |
||||
TabOrder = 13 |
||||
WordWrap = False |
||||
end |
||||
object Button13: TButton |
||||
Left = 826 |
||||
Height = 25 |
||||
Top = 179 |
||||
Width = 165 |
||||
Caption = 'start jupyter lab' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnClick = Button13Click |
||||
ParentFont = False |
||||
TabOrder = 14 |
||||
end |
||||
object Button14: TButton |
||||
Left = 825 |
||||
Height = 25 |
||||
Top = 205 |
||||
Width = 166 |
||||
Caption = 'start console' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnClick = Button14Click |
||||
ParentFont = False |
||||
TabOrder = 15 |
||||
end |
||||
object Button15: TButton |
||||
Left = 825 |
||||
Height = 25 |
||||
Top = 230 |
||||
Width = 166 |
||||
Caption = 'start console via xpra' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnClick = Button15Click |
||||
ParentFont = False |
||||
TabOrder = 16 |
||||
end |
||||
object Label9: TLabel |
||||
Left = 19 |
||||
Height = 20 |
||||
Top = 269 |
||||
Width = 39 |
||||
Caption = 'phy-3' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
Font.Style = [fsBold] |
||||
ParentFont = False |
||||
end |
||||
object LabelCPU3: TLabel |
||||
Left = 90 |
||||
Height = 20 |
||||
Top = 269 |
||||
Width = 116 |
||||
Caption = 'CPUs busy (total):' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
ParentFont = False |
||||
end |
||||
object LabelMEM3: TLabel |
||||
Left = 90 |
||||
Height = 20 |
||||
Top = 294 |
||||
Width = 114 |
||||
Caption = 'RAM used (total):' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
ParentFont = False |
||||
end |
||||
object Button16: TButton |
||||
Left = 90 |
||||
Height = 25 |
||||
Top = 320 |
||||
Width = 124 |
||||
Caption = 'more info...' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnClick = Button16Click |
||||
ParentFont = False |
||||
TabOrder = 17 |
||||
end |
||||
object Memo3: TMemo |
||||
Left = 397 |
||||
Height = 76 |
||||
Top = 269 |
||||
Width = 421 |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
Lines.Strings = ( |
||||
'getm (by klingbei) uses 50 cores (expected end 2023-10-10)' |
||||
'cdo merge (by thomas) uses 2 cores (expected end 2023-10-10)' |
||||
) |
||||
OnChange = Memo1Change |
||||
ParentFont = False |
||||
ReadOnly = True |
||||
ScrollBars = ssBoth |
||||
TabOrder = 18 |
||||
WordWrap = False |
||||
end |
||||
object Button17: TButton |
||||
Left = 826 |
||||
Height = 25 |
||||
Top = 269 |
||||
Width = 165 |
||||
Caption = 'start jupyter lab' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnClick = Button17Click |
||||
ParentFont = False |
||||
TabOrder = 19 |
||||
end |
||||
object Button18: TButton |
||||
Left = 825 |
||||
Height = 25 |
||||
Top = 294 |
||||
Width = 166 |
||||
Caption = 'start console' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnClick = Button18Click |
||||
ParentFont = False |
||||
TabOrder = 20 |
||||
end |
||||
object Button19: TButton |
||||
Left = 825 |
||||
Height = 25 |
||||
Top = 320 |
||||
Width = 166 |
||||
Caption = 'start console via xpra' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnClick = Button19Click |
||||
ParentFont = False |
||||
TabOrder = 21 |
||||
end |
||||
object Shape3: TShape |
||||
Left = 13 |
||||
Height = 109 |
||||
Top = 358 |
||||
Width = 986 |
||||
Brush.Color = clSilver |
||||
Pen.Style = psClear |
||||
end |
||||
object Label12: TLabel |
||||
Left = 19 |
||||
Height = 20 |
||||
Top = 384 |
||||
Width = 39 |
||||
Caption = 'phy-4' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
Font.Style = [fsBold] |
||||
ParentFont = False |
||||
end |
||||
object LabelCPU4: TLabel |
||||
Left = 90 |
||||
Height = 20 |
||||
Top = 384 |
||||
Width = 116 |
||||
Caption = 'CPUs busy (total):' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
ParentFont = False |
||||
end |
||||
object LabelMEM4: TLabel |
||||
Left = 90 |
||||
Height = 20 |
||||
Top = 410 |
||||
Width = 114 |
||||
Caption = 'RAM used (total):' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
ParentFont = False |
||||
end |
||||
object Button20: TButton |
||||
Left = 90 |
||||
Height = 25 |
||||
Top = 435 |
||||
Width = 124 |
||||
Caption = 'more info...' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnClick = Button20Click |
||||
ParentFont = False |
||||
TabOrder = 22 |
||||
end |
||||
object Memo4: TMemo |
||||
Left = 397 |
||||
Height = 76 |
||||
Top = 384 |
||||
Width = 421 |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
Lines.Strings = ( |
||||
'getm (by klingbei) uses 50 cores (expected end 2023-10-10)' |
||||
'cdo merge (by thomas) uses 2 cores (expected end 2023-10-10)' |
||||
) |
||||
OnChange = Memo1Change |
||||
ParentFont = False |
||||
ReadOnly = True |
||||
ScrollBars = ssBoth |
||||
TabOrder = 23 |
||||
WordWrap = False |
||||
end |
||||
object Button21: TButton |
||||
Left = 826 |
||||
Height = 25 |
||||
Top = 384 |
||||
Width = 165 |
||||
Caption = 'start jupyter lab' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnClick = Button21Click |
||||
ParentFont = False |
||||
TabOrder = 24 |
||||
end |
||||
object Button22: TButton |
||||
Left = 825 |
||||
Height = 25 |
||||
Top = 410 |
||||
Width = 166 |
||||
Caption = 'start console' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnClick = Button22Click |
||||
ParentFont = False |
||||
TabOrder = 25 |
||||
end |
||||
object Button23: TButton |
||||
Left = 825 |
||||
Height = 25 |
||||
Top = 435 |
||||
Width = 166 |
||||
Caption = 'start console via xpra' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnClick = Button23Click |
||||
ParentFont = False |
||||
TabOrder = 26 |
||||
end |
||||
object Label15: TLabel |
||||
Left = 19 |
||||
Height = 20 |
||||
Top = 358 |
||||
Width = 118 |
||||
Caption = 'IOW GPU SERVER' |
||||
Font.Color = clGreen |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
Font.Style = [fsBold] |
||||
ParentFont = False |
||||
end |
||||
object Shape5: TShape |
||||
Left = 13 |
||||
Height = 198 |
||||
Top = 474 |
||||
Width = 986 |
||||
Brush.Color = clSilver |
||||
Pen.Style = psClear |
||||
end |
||||
object Label16: TLabel |
||||
Left = 19 |
||||
Height = 20 |
||||
Top = 499 |
||||
Width = 47 |
||||
Caption = 'phy-10' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
Font.Style = [fsBold] |
||||
ParentFont = False |
||||
end |
||||
object LabelCPU5: TLabel |
||||
Left = 90 |
||||
Height = 20 |
||||
Top = 499 |
||||
Width = 116 |
||||
Caption = 'CPUs busy (total):' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
ParentFont = False |
||||
end |
||||
object LabelMEM5: TLabel |
||||
Left = 90 |
||||
Height = 20 |
||||
Top = 525 |
||||
Width = 114 |
||||
Caption = 'RAM used (total):' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
ParentFont = False |
||||
end |
||||
object Button24: TButton |
||||
Left = 90 |
||||
Height = 25 |
||||
Top = 550 |
||||
Width = 124 |
||||
Caption = 'more info...' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnClick = Button24Click |
||||
ParentFont = False |
||||
TabOrder = 27 |
||||
end |
||||
object Memo5: TMemo |
||||
Left = 397 |
||||
Height = 76 |
||||
Top = 499 |
||||
Width = 421 |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
Lines.Strings = ( |
||||
'getm (by klingbei) uses 50 cores (expected end 2023-10-10)' |
||||
'cdo merge (by thomas) uses 2 cores (expected end 2023-10-10)' |
||||
) |
||||
OnChange = Memo1Change |
||||
ParentFont = False |
||||
ReadOnly = True |
||||
ScrollBars = ssBoth |
||||
TabOrder = 28 |
||||
WordWrap = False |
||||
end |
||||
object Button25: TButton |
||||
Left = 826 |
||||
Height = 25 |
||||
Top = 499 |
||||
Width = 165 |
||||
Caption = 'start jupyter lab' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnClick = Button25Click |
||||
ParentFont = False |
||||
TabOrder = 29 |
||||
end |
||||
object Button26: TButton |
||||
Left = 825 |
||||
Height = 25 |
||||
Top = 525 |
||||
Width = 166 |
||||
Caption = 'start console' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnClick = Button26Click |
||||
ParentFont = False |
||||
TabOrder = 30 |
||||
end |
||||
object Button27: TButton |
||||
Left = 825 |
||||
Height = 25 |
||||
Top = 550 |
||||
Width = 166 |
||||
Caption = 'start console via xpra' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnClick = Button27Click |
||||
ParentFont = False |
||||
TabOrder = 31 |
||||
end |
||||
object Label19: TLabel |
||||
Left = 19 |
||||
Height = 20 |
||||
Top = 474 |
||||
Width = 131 |
||||
Caption = 'IOW DATA SERVERS' |
||||
Font.Color = clGreen |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
Font.Style = [fsBold] |
||||
ParentFont = False |
||||
end |
||||
object Label20: TLabel |
||||
Left = 19 |
||||
Height = 20 |
||||
Top = 589 |
||||
Width = 47 |
||||
Caption = 'phy-11' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
Font.Style = [fsBold] |
||||
ParentFont = False |
||||
end |
||||
object LabelCPU6: TLabel |
||||
Left = 90 |
||||
Height = 20 |
||||
Top = 589 |
||||
Width = 116 |
||||
Caption = 'CPUs busy (total):' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
ParentFont = False |
||||
end |
||||
object LabelMEM6: TLabel |
||||
Left = 90 |
||||
Height = 20 |
||||
Top = 614 |
||||
Width = 114 |
||||
Caption = 'RAM used (total):' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
ParentFont = False |
||||
end |
||||
object Button28: TButton |
||||
Left = 90 |
||||
Height = 25 |
||||
Top = 640 |
||||
Width = 124 |
||||
Caption = 'more info...' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnClick = Button28Click |
||||
ParentFont = False |
||||
TabOrder = 32 |
||||
end |
||||
object Memo6: TMemo |
||||
Left = 397 |
||||
Height = 76 |
||||
Top = 589 |
||||
Width = 421 |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
Lines.Strings = ( |
||||
'getm (by klingbei) uses 50 cores (expected end 2023-10-10)' |
||||
'cdo merge (by thomas) uses 2 cores (expected end 2023-10-10)' |
||||
) |
||||
OnChange = Memo1Change |
||||
ParentFont = False |
||||
ReadOnly = True |
||||
ScrollBars = ssBoth |
||||
TabOrder = 33 |
||||
WordWrap = False |
||||
end |
||||
object Button29: TButton |
||||
Left = 826 |
||||
Height = 25 |
||||
Top = 589 |
||||
Width = 165 |
||||
Caption = 'start jupyter lab' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnClick = Button29Click |
||||
ParentFont = False |
||||
TabOrder = 34 |
||||
end |
||||
object Button30: TButton |
||||
Left = 825 |
||||
Height = 25 |
||||
Top = 614 |
||||
Width = 166 |
||||
Caption = 'start console' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnClick = Button30Click |
||||
ParentFont = False |
||||
TabOrder = 35 |
||||
end |
||||
object Button31: TButton |
||||
Left = 825 |
||||
Height = 25 |
||||
Top = 640 |
||||
Width = 166 |
||||
Caption = 'start console via xpra' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnClick = Button31Click |
||||
ParentFont = False |
||||
TabOrder = 36 |
||||
end |
||||
object Shape7: TShape |
||||
Left = 13 |
||||
Height = 96 |
||||
Top = 678 |
||||
Width = 859 |
||||
Brush.Color = clSilver |
||||
Pen.Style = psClear |
||||
end |
||||
object Label23: TLabel |
||||
Left = 19 |
||||
Height = 20 |
||||
Top = 678 |
||||
Width = 164 |
||||
Caption = 'EXTERNAL RESSOURCES' |
||||
Font.Color = clGreen |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
Font.Style = [fsBold] |
||||
ParentFont = False |
||||
end |
||||
object Label24: TLabel |
||||
Left = 21 |
||||
Height = 20 |
||||
Top = 698 |
||||
Width = 205 |
||||
Caption = 'haumea cluster (Uni Rostock)' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
Font.Style = [fsBold] |
||||
ParentFont = False |
||||
end |
||||
object Button32: TButton |
||||
Left = 19 |
||||
Height = 25 |
||||
Top = 717 |
||||
Width = 109 |
||||
Caption = 'get account...' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnClick = Button32Click |
||||
ParentFont = False |
||||
TabOrder = 37 |
||||
end |
||||
object Button33: TButton |
||||
Left = 135 |
||||
Height = 25 |
||||
Top = 717 |
||||
Width = 165 |
||||
Caption = 'start jupyter lab' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnClick = Button33Click |
||||
ParentFont = False |
||||
TabOrder = 38 |
||||
end |
||||
object Button34: TButton |
||||
Left = 134 |
||||
Height = 25 |
||||
Top = 742 |
||||
Width = 166 |
||||
Caption = 'start console' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnClick = Button34Click |
||||
ParentFont = False |
||||
TabOrder = 39 |
||||
end |
||||
object Label25: TLabel |
||||
Left = 365 |
||||
Height = 20 |
||||
Top = 698 |
||||
Width = 149 |
||||
Caption = 'NHR supercomputers' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
Font.Style = [fsBold] |
||||
ParentFont = False |
||||
end |
||||
object Button35: TButton |
||||
Left = 365 |
||||
Height = 25 |
||||
Top = 717 |
||||
Width = 115 |
||||
Caption = 'get account...' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnClick = Button35Click |
||||
ParentFont = False |
||||
TabOrder = 40 |
||||
end |
||||
object Button36: TButton |
||||
Left = 481 |
||||
Height = 25 |
||||
Top = 717 |
||||
Width = 178 |
||||
Caption = 'start jupyter lab (berlin)' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnClick = Button36Click |
||||
ParentFont = False |
||||
TabOrder = 41 |
||||
end |
||||
object Button37: TButton |
||||
Left = 481 |
||||
Height = 25 |
||||
Top = 742 |
||||
Width = 178 |
||||
Caption = 'start console (berlin)' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnClick = Button37Click |
||||
ParentFont = False |
||||
TabOrder = 42 |
||||
end |
||||
object Button38: TButton |
||||
Left = 666 |
||||
Height = 25 |
||||
Top = 717 |
||||
Width = 192 |
||||
Caption = 'start jupyter lab (göttingen)' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnClick = Button38Click |
||||
ParentFont = False |
||||
TabOrder = 43 |
||||
end |
||||
object Button39: TButton |
||||
Left = 666 |
||||
Height = 25 |
||||
Top = 742 |
||||
Width = 192 |
||||
Caption = 'start console (göttingen)' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnClick = Button39Click |
||||
ParentFont = False |
||||
TabOrder = 44 |
||||
end |
||||
object Label26: TLabel |
||||
Left = 398 |
||||
Height = 20 |
||||
Top = 69 |
||||
Width = 101 |
||||
Caption = 'registered jobs' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
ParentFont = False |
||||
end |
||||
object Button40: TButton |
||||
Left = 506 |
||||
Height = 18 |
||||
Top = 69 |
||||
Width = 109 |
||||
Caption = 'refresh' |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
OnClick = Button40Click |
||||
ParentFont = False |
||||
TabOrder = 45 |
||||
end |
||||
object Shape8: TShape |
||||
Left = 880 |
||||
Height = 96 |
||||
Top = 678 |
||||
Width = 119 |
||||
Brush.Color = clSilver |
||||
Pen.Style = psClear |
||||
end |
||||
object Label27: TLabel |
||||
Left = 888 |
||||
Height = 20 |
||||
Top = 678 |
||||
Width = 52 |
||||
Caption = 'STATUS' |
||||
Font.Color = clGreen |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
Font.Style = [fsBold] |
||||
ParentFont = False |
||||
end |
||||
object LabelStatus: TLabel |
||||
Left = 888 |
||||
Height = 67 |
||||
Top = 701 |
||||
Width = 100 |
||||
AutoSize = False |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
ParentFont = False |
||||
WordWrap = True |
||||
end |
||||
object Timer1: TTimer |
||||
Interval = 120000 |
||||
OnTimer = Timer1Timer |
||||
Left = 257 |
||||
Top = 94 |
||||
end |
||||
end |
||||
@ -0,0 +1,143 @@
|
||||
object Form2: TForm2 |
||||
Left = 578 |
||||
Height = 344 |
||||
Top = 344 |
||||
Width = 456 |
||||
Caption = 'phyportal - start jupyter lab' |
||||
ClientHeight = 344 |
||||
ClientWidth = 456 |
||||
Color = clNavy |
||||
Font.Height = -14 |
||||
Font.Name = 'Open Sans' |
||||
LCLVersion = '2.2.0.4' |
||||
object Shape1: TShape |
||||
Left = 6 |
||||
Height = 326 |
||||
Top = 6 |
||||
Width = 442 |
||||
Brush.Color = clSilver |
||||
Pen.Style = psClear |
||||
end |
||||
object Label1: TLabel |
||||
Left = 18 |
||||
Height = 20 |
||||
Top = 19 |
||||
Width = 132 |
||||
Caption = 'start jupyter lab on:' |
||||
end |
||||
object Edit1: TEdit |
||||
Left = 83 |
||||
Height = 30 |
||||
Top = 38 |
||||
Width = 311 |
||||
Color = clSilver |
||||
Enabled = False |
||||
TabOrder = 0 |
||||
Text = 'Edit1' |
||||
end |
||||
object Label2: TLabel |
||||
Left = 18 |
||||
Height = 20 |
||||
Top = 77 |
||||
Width = 225 |
||||
Caption = 'CPU cores for parallel computing:' |
||||
end |
||||
object SpinEdit1: TSpinEdit |
||||
Left = 83 |
||||
Height = 30 |
||||
Top = 96 |
||||
Width = 122 |
||||
MaxValue = 128 |
||||
MinValue = 1 |
||||
TabOrder = 1 |
||||
Value = 1 |
||||
end |
||||
object Label3: TLabel |
||||
Left = 237 |
||||
Height = 20 |
||||
Top = 77 |
||||
Width = 168 |
||||
Caption = 'Which GPUs will you use:' |
||||
end |
||||
object Edit2: TEdit |
||||
Left = 262 |
||||
Height = 30 |
||||
Top = 96 |
||||
Width = 134 |
||||
TabOrder = 2 |
||||
Text = 'no GPUs' |
||||
end |
||||
object Label4: TLabel |
||||
Left = 16 |
||||
Height = 20 |
||||
Top = 142 |
||||
Width = 359 |
||||
Caption = 'What will you do (leave empty for no job registration):' |
||||
end |
||||
object Edit3: TEdit |
||||
Left = 83 |
||||
Height = 30 |
||||
Top = 160 |
||||
Width = 313 |
||||
TabOrder = 3 |
||||
Text = 'Edit3' |
||||
end |
||||
object Label5: TLabel |
||||
Left = 17 |
||||
Height = 20 |
||||
Top = 198 |
||||
Width = 119 |
||||
Caption = 'How many hours?' |
||||
end |
||||
object BitBtn1: TBitBtn |
||||
Left = 82 |
||||
Height = 30 |
||||
Top = 275 |
||||
Width = 146 |
||||
Default = True |
||||
DefaultCaption = True |
||||
Kind = bkOK |
||||
ModalResult = 1 |
||||
OnClick = BitBtn1Click |
||||
TabOrder = 4 |
||||
end |
||||
object BitBtn2: TBitBtn |
||||
Left = 262 |
||||
Height = 30 |
||||
Top = 274 |
||||
Width = 134 |
||||
Cancel = True |
||||
DefaultCaption = True |
||||
Kind = bkCancel |
||||
ModalResult = 2 |
||||
OnClick = BitBtn2Click |
||||
TabOrder = 5 |
||||
end |
||||
object SpinEdit2: TSpinEdit |
||||
Left = 84 |
||||
Height = 30 |
||||
Top = 218 |
||||
Width = 121 |
||||
MaxValue = 1000 |
||||
MinValue = 1 |
||||
TabOrder = 6 |
||||
Value = 1 |
||||
end |
||||
object Label6: TLabel |
||||
Left = 233 |
||||
Height = 20 |
||||
Top = 198 |
||||
Width = 49 |
||||
Caption = 'Queue:' |
||||
end |
||||
object ComboBox1: TComboBox |
||||
Left = 243 |
||||
Height = 32 |
||||
Top = 218 |
||||
Width = 150 |
||||
ItemHeight = 0 |
||||
OnSelect = ComboBox1Select |
||||
Style = csDropDownList |
||||
TabOrder = 7 |
||||
end |
||||
end |
||||
@ -0,0 +1,69 @@
|
||||
unit Unit2; |
||||
|
||||
{$mode objfpc}{$H+} |
||||
|
||||
interface |
||||
|
||||
uses |
||||
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls, |
||||
Spin, Buttons; |
||||
|
||||
type |
||||
|
||||
{ TForm2 } |
||||
|
||||
TForm2 = class(TForm) |
||||
BitBtn1: TBitBtn; |
||||
BitBtn2: TBitBtn; |
||||
ComboBox1: TComboBox; |
||||
Edit1: TEdit; |
||||
Edit2: TEdit; |
||||
Edit3: TEdit; |
||||
Label1: TLabel; |
||||
Label2: TLabel; |
||||
Label3: TLabel; |
||||
Label4: TLabel; |
||||
Label5: TLabel; |
||||
Label6: TLabel; |
||||
Shape1: TShape; |
||||
SpinEdit1: TSpinEdit; |
||||
SpinEdit2: TSpinEdit; |
||||
procedure BitBtn1Click(Sender: TObject); |
||||
procedure BitBtn2Click(Sender: TObject); |
||||
procedure ComboBox1Select(Sender: TObject); |
||||
private |
||||
|
||||
public |
||||
|
||||
end; |
||||
|
||||
var |
||||
Form2: TForm2; |
||||
|
||||
implementation |
||||
|
||||
{$R *.lfm} |
||||
|
||||
{ TForm2 } |
||||
|
||||
procedure TForm2.ComboBox1Select(Sender: TObject); |
||||
begin |
||||
// in a queue called "test", jobs can run no longer than 1 hour by default |
||||
if ComboBox1.Items.Count>0 then |
||||
if pos('test',ComboBox1.Items[ComboBox1.ItemIndex])>0 then |
||||
SpinEdit2.Value:=1; |
||||
end; |
||||
|
||||
procedure TForm2.BitBtn1Click(Sender: TObject); |
||||
begin |
||||
Form2.Tag:=1; |
||||
Form2.Close; |
||||
end; |
||||
|
||||
procedure TForm2.BitBtn2Click(Sender: TObject); |
||||
begin |
||||
Form2.Close; |
||||
end; |
||||
|
||||
end. |
||||
|
||||
Loading…
Reference in new issue