admin/StarStreet-Forecast
1
0
Fork 0
Code Issues 3 Pull Requests Actions Packages Projects Releases Wiki Activity

Upload files to "/"

Browse Source
This commit is contained in:
admin
2026-03-23 09:15:23 +00:00
parent cd1376e5fa
commit 46478e0acf
5 changed files with 2221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1095
astronomy.pas Normal file
View File

File diff suppressed because it is too large Load Diff

503
starstreetapp.lpi Normal file
View File

@@ -0,0 +1,503 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<General>
<SessionStorage Value="InProjectDir"/>
<Title Value="starstreetapp"/>
<Scaled Value="True"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<XPManifest>
<DpiAware Value="True"/>
<TextName Value="RadiantsDevelop.StarStreetApp.Forecast"/>
<TextDesc Value=""/>
</XPManifest>
<Icon Value="0"/>
<Resources Count="38">
<Resource_0 FileName="lunafasi/01.png" Type="RCDATA" ResourceName="01"/>
<Resource_1 FileName="lunafasi/02.png" Type="RCDATA" ResourceName="02"/>
<Resource_2 FileName="lunafasi/03.png" Type="RCDATA" ResourceName="03"/>
<Resource_3 FileName="lunafasi/04.png" Type="RCDATA" ResourceName="04"/>
<Resource_4 FileName="lunafasi/05.png" Type="RCDATA" ResourceName="05"/>
<Resource_5 FileName="lunafasi/06.png" Type="RCDATA" ResourceName="06"/>
<Resource_6 FileName="lunafasi/07.png" Type="RCDATA" ResourceName="07"/>
<Resource_7 FileName="lunafasi/08.png" Type="RCDATA" ResourceName="08"/>
<Resource_8 FileName="lunafasi/09.png" Type="RCDATA" ResourceName="09"/>
<Resource_9 FileName="lunafasi/10.png" Type="RCDATA" ResourceName="10"/>
<Resource_10 FileName="lunafasi/11.png" Type="RCDATA" ResourceName="11"/>
<Resource_11 FileName="lunafasi/12.png" Type="RCDATA" ResourceName="12"/>
<Resource_12 FileName="lunafasi/13.png" Type="RCDATA" ResourceName="13"/>
<Resource_13 FileName="lunafasi/14.png" Type="RCDATA" ResourceName="14"/>
<Resource_14 FileName="lunafasi/15.png" Type="RCDATA" ResourceName="15"/>
<Resource_15 FileName="lunafasi/16.png" Type="RCDATA" ResourceName="16"/>
<Resource_16 FileName="lunafasi/17.png" Type="RCDATA" ResourceName="17"/>
<Resource_17 FileName="lunafasi/18.png" Type="RCDATA" ResourceName="18"/>
<Resource_18 FileName="lunafasi/19.png" Type="RCDATA" ResourceName="19"/>
<Resource_19 FileName="lunafasi/20.png" Type="RCDATA" ResourceName="20"/>
<Resource_20 FileName="lunafasi/21.png" Type="RCDATA" ResourceName="21"/>
<Resource_21 FileName="lunafasi/22.png" Type="RCDATA" ResourceName="22"/>
<Resource_22 FileName="lunafasi/23.png" Type="RCDATA" ResourceName="23"/>
<Resource_23 FileName="lunafasi/24.png" Type="RCDATA" ResourceName="24"/>
<Resource_24 FileName="lunafasi/25.png" Type="RCDATA" ResourceName="25"/>
<Resource_25 FileName="lunafasi/26.png" Type="RCDATA" ResourceName="26"/>
<Resource_26 FileName="lunafasi/27.png" Type="RCDATA" ResourceName="27"/>
<Resource_27 FileName="lunafasi/28.png" Type="RCDATA" ResourceName="28"/>
<Resource_28 FileName="lunafasi/29.png" Type="RCDATA" ResourceName="29"/>
<Resource_29 FileName="lunafasi/30.png" Type="RCDATA" ResourceName="30"/>
<Resource_30 FileName="lunafasi/31.png" Type="RCDATA" ResourceName="31"/>
<Resource_31 FileName="data/2026_nasa.txt" Type="RCDATA" ResourceName="2026_NASA"/>
<Resource_32 FileName="data/2027_nasa.txt" Type="RCDATA" ResourceName="2027_NASA"/>
<Resource_33 FileName="data/2028_nasa.txt" Type="RCDATA" ResourceName="2028_NASA"/>
<Resource_34 FileName="data/2029_nasa.txt" Type="RCDATA" ResourceName="2029_NASA"/>
<Resource_35 FileName="data/2030_nasa.txt" Type="RCDATA" ResourceName="2030_NASA"/>
<Resource_36 FileName="data/2031_nasa.txt" Type="RCDATA" ResourceName="2031_NASA"/>
<Resource_37 FileName="data/2032_nasa.txt" Type="RCDATA" ResourceName="2032_NASA"/>
</Resources>
</General>
<VersionInfo>
<UseVersionInfo Value="True"/>
<AutoIncrementBuild Value="True"/>
<MinorVersionNr Value="9"/>
<RevisionNr Value="9"/>
<BuildNr Value="14"/>
<Language Value="0410"/>
<StringTable CompanyName="Radiants Sviluppo" FileDescription="An App For Astronomical Forecasting" LegalCopyright="2026" ProductName="Starstree Forecast App"/>
</VersionInfo>
<MacroValues Count="1">
<Macro2 Name="LCLWidgetType" Value="qt6"/>
</MacroValues>
<BuildModes>
<Item Name="Default" Default="True"/>
<Item Name="Mac OS Release x86_64">
<MacroValues Count="1">
<Macro5 Name="LCLWidgetType" Value="cocoa"/>
</MacroValues>
<CompilerOptions>
<Version Value="11"/>
<Target>
<Filename Value="starstreetapp"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="freccie"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<CodeGeneration>
<SmartLinkUnit Value="True"/>
<RelocatableUnit Value="True"/>
<TargetCPU Value="x86_64"/>
<TargetOS Value="darwin"/>
<Optimizations>
<OptimizationLevel Value="4"/>
</Optimizations>
</CodeGeneration>
<Linking>
<Debugging>
<GenerateDebugInfo Value="False"/>
<RunWithoutDebug Value="True"/>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
<LinkSmart Value="True"/>
<Options>
<PassLinkerOptions Value="True"/>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
</CompilerOptions>
</Item>
<Item Name="Windows 64">
<MacroValues Count="1">
<Macro1 Name="LCLWidgetType" Value="win32"/>
</MacroValues>
<CompilerOptions>
<Version Value="11"/>
<Target>
<Filename Value="starstreetapp"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="freccie"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<CodeGeneration>
<SmartLinkUnit Value="True"/>
<RelocatableUnit Value="True"/>
<TargetOS Value="win64"/>
<Optimizations>
<OptimizationLevel Value="4"/>
</Optimizations>
</CodeGeneration>
<Linking>
<Debugging>
<GenerateDebugInfo Value="False"/>
<RunWithoutDebug Value="True"/>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
<LinkSmart Value="True"/>
<Options>
<PassLinkerOptions Value="True"/>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
</CompilerOptions>
</Item>
<Item Name="Linux64_Qt6">
<CompilerOptions>
<Version Value="11"/>
<Target>
<Filename Value="starstreetapp"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="freccie"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<CodeGeneration>
<SmartLinkUnit Value="True"/>
<RelocatableUnit Value="True"/>
<Optimizations>
<OptimizationLevel Value="4"/>
</Optimizations>
</CodeGeneration>
<Linking>
<Debugging>
<GenerateDebugInfo Value="False"/>
<RunWithoutDebug Value="True"/>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
<LinkSmart Value="True"/>
<Options>
<PassLinkerOptions Value="True"/>
<LinkerOptions Value="-R $ORIGIN"/>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
</CompilerOptions>
</Item>
<Item Name="Windows32">
<MacroValues Count="1">
<Macro1 Name="LCLWidgetType" Value="win32"/>
</MacroValues>
<CompilerOptions>
<Version Value="11"/>
<Target>
<Filename Value="starstreetapp"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="freccie"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<CodeGeneration>
<SmartLinkUnit Value="True"/>
<RelocatableUnit Value="True"/>
<TargetCPU Value="i386"/>
<TargetOS Value="win32"/>
<Optimizations>
<OptimizationLevel Value="4"/>
</Optimizations>
</CodeGeneration>
<Linking>
<Debugging>
<GenerateDebugInfo Value="False"/>
<RunWithoutDebug Value="True"/>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
<LinkSmart Value="True"/>
<Options>
<PassLinkerOptions Value="True"/>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
</CompilerOptions>
</Item>
<Item Name="Mac OS Release aarch_64">
<MacroValues Count="1">
<Macro7 Name="LCLWidgetType" Value="cocoa"/>
</MacroValues>
<CompilerOptions>
<Version Value="11"/>
<Target>
<Filename Value="starstreetapp"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="freccie"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<CodeGeneration>
<SmartLinkUnit Value="True"/>
<RelocatableUnit Value="True"/>
<TargetCPU Value="aarch64"/>
<TargetOS Value="darwin"/>
<Optimizations>
<OptimizationLevel Value="4"/>
</Optimizations>
</CodeGeneration>
<Linking>
<Debugging>
<GenerateDebugInfo Value="False"/>
<RunWithoutDebug Value="True"/>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
<LinkSmart Value="True"/>
<Options>
<PassLinkerOptions Value="True"/>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
</CompilerOptions>
</Item>
<Item Name="Linux aarch64_gtk2">
<MacroValues Count="1">
<Macro4 Name="LCLWidgetType" Value="gtk2"/>
</MacroValues>
<CompilerOptions>
<Version Value="11"/>
<Target>
<Filename Value="starstreetapp"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="freccie"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<CodeGeneration>
<SmartLinkUnit Value="True"/>
<RelocatableUnit Value="True"/>
<TargetCPU Value="aarch64"/>
<Optimizations>
<OptimizationLevel Value="4"/>
</Optimizations>
</CodeGeneration>
<Linking>
<Debugging>
<GenerateDebugInfo Value="False"/>
<RunWithoutDebug Value="True"/>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
<LinkSmart Value="True"/>
<Options>
<PassLinkerOptions Value="True"/>
<LinkerOptions Value="-R $ORIGIN"/>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
</CompilerOptions>
</Item>
<Item Name="Linux64_gtk2">
<CompilerOptions>
<Version Value="11"/>
<Target>
<Filename Value="starstreetapp"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="freccie"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<CodeGeneration>
<SmartLinkUnit Value="True"/>
<RelocatableUnit Value="True"/>
<Optimizations>
<OptimizationLevel Value="4"/>
</Optimizations>
</CodeGeneration>
<Linking>
<Debugging>
<GenerateDebugInfo Value="False"/>
<RunWithoutDebug Value="True"/>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
<LinkSmart Value="True"/>
<Options>
<PassLinkerOptions Value="True"/>
<LinkerOptions Value="-R $ORIGIN"/>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
</CompilerOptions>
</Item>
<SharedMatrixOptions Count="7">
<Item1 ID="720591001505" Modes="Windows32,Windows 64" Type="IDEMacro" MacroName="LCLWidgetType" Value="win32"/>
<Item2 ID="553002146881" Modes="Default" Type="IDEMacro" MacroName="LCLWidgetType" Value="qt6"/>
<Item3 ID="139589916442" Type="IDEMacro" MacroName="LCLWidgetType" Value="gtk2"/>
<Item4 ID="175743459152" Modes="Linux aarch64_gtk2" Type="IDEMacro" MacroName="LCLWidgetType" Value="gtk2"/>
<Item5 ID="355208694772" Modes="Mac OS Release x86_64" Type="IDEMacro" MacroName="LCLWidgetType" Value="cocoa"/>
<Item6 ID="447947411232" Type="IDEMacro" MacroName="LCLWidgetType" Value="qt5"/>
<Item7 ID="847587004535" Modes="Mac OS Release aarch_64" Type="IDEMacro" MacroName="LCLWidgetType" Value="cocoa"/>
</SharedMatrixOptions>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<UseFileFilters Value="True"/>
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
</RunParams>
<RequiredPackages>
<Item>
<PackageName Value="DateTimeCtrlsDsgn"/>
</Item>
<Item>
<PackageName Value="DateTimeCtrls"/>
</Item>
<Item>
<PackageName Value="LazControls"/>
</Item>
<Item>
<PackageName Value="LazControlDsgn"/>
</Item>
<Item>
<PackageName Value="TAChartLazarusPkg"/>
</Item>
<Item>
<PackageName Value="LCL"/>
</Item>
</RequiredPackages>
<Units>
<Unit>
<Filename Value="starstreetapp.lpr"/>
<IsPartOfProject Value="True"/>
</Unit>
<Unit>
<Filename Value="unit1.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
</Unit>
<Unit>
<Filename Value="framegrafico.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="PianetiGraph"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Frame"/>
</Unit>
<Unit>
<Filename Value="frameluna.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="LunaView"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Frame"/>
</Unit>
<Unit>
<Filename Value="meteo_frame.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="MeteoView"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Frame"/>
</Unit>
<Unit>
<Filename Value="meteo_frame.lfm"/>
<IsPartOfProject Value="True"/>
</Unit>
<Unit>
<Filename Value="graficimeteo.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form3"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
</Unit>
<Unit>
<Filename Value="impostazioniform.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Impostazioni"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="ImpostazioniForm"/>
</Unit>
<Unit>
<Filename Value="settingsutils.pas"/>
<IsPartOfProject Value="True"/>
</Unit>
<Unit>
<Filename Value="freccie/info_form.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Informazioni"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
</Unit>
<Unit>
<Filename Value="visualizzaeventiform.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form2"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="VisualizzaEventiForm"/>
</Unit>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<Target>
<Filename Value="starstreetapp"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="freccie"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<CodeGeneration>
<SmartLinkUnit Value="True"/>
<RelocatableUnit Value="True"/>
<Optimizations>
<OptimizationLevel Value="0"/>
</Optimizations>
</CodeGeneration>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf2"/>
</Debugging>
<LinkSmart Value="True"/>
<Options>
<PassLinkerOptions Value="True"/>
<LinkerOptions Value="-R ./"/>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions>
<Item>
<Name Value="EAbort"/>
</Item>
<Item>
<Name Value="ECodetoolError"/>
</Item>
<Item>
<Name Value="EFOpenError"/>
</Item>
<Item>
<Name Value="ESocketError"/>
</Item>
<Item>
<Name Value="Exception"/>
</Item>
<Item>
<Name Value="EConvertError"/>
</Item>
<Item>
<Name Value="EResNotFound"/>
</Item>
</Exceptions>
</Debugging>
</CONFIG>

35
starstreetapp.lpr Normal file
View File

@@ -0,0 +1,35 @@
program starstreetapp;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}
cthreads,
{$ENDIF}
{$IFDEF HASAMIGA}
athreads,
{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms, tachartlazaruspkg, lazcontrols, datetimectrls, Unit1, framegrafico,
frameluna, meteo_frame, graficimeteo, ImpostazioniForm, settingsutils,
info_form, VisualizzaEventiForm
{ you can add units after this };
{$R *.res}
begin
RequireDerivedFormResource:=True;
Application.Scaled:=True;
{$PUSH}{$WARN 5044 OFF}
Application.MainFormOnTaskbar:=True;
{$POP}
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm3, Form3);
Application.CreateForm(TImpostazioni, Impostazioni);
Application.CreateForm(TInformazioni, Informazioni);
Application.CreateForm(TForm2, Form2);
Application.Run;
end.

475
starstreetapp.lps Normal file
View File

@@ -0,0 +1,475 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectSession>
<Version Value="12"/>
<BuildModes Active="Mac OS Release x86_64"/>
<Units>
<Unit>
<Filename Value="starstreetapp.lpr"/>
<IsPartOfProject Value="True"/>
<EditorIndex Value="5"/>
<CursorPos Y="34"/>
<UsageCount Value="204"/>
<Loaded Value="True"/>
</Unit>
<Unit>
<Filename Value="unit1.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
<IsVisibleTab Value="True"/>
<TopLine Value="16"/>
<CursorPos X="17" Y="105"/>
<ExtraEditorCount Value="2"/>
<ExtraEditor1>
<EditorIndex Value="-1"/>
<TopLine Value="103"/>
<CursorPos X="30" Y="111"/>
</ExtraEditor1>
<ExtraEditor2>
<EditorIndex Value="-1"/>
<TopLine Value="82"/>
<CursorPos Y="105"/>
</ExtraEditor2>
<UsageCount Value="204"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit>
<Unit>
<Filename Value="framegrafico.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="PianetiGraph"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Frame"/>
<EditorIndex Value="4"/>
<TopLine Value="356"/>
<CursorPos Y="317"/>
<FoldState Value=" T3mJ03y"/>
<ExtraEditorCount Value="2"/>
<ExtraEditor1>
<EditorIndex Value="-1"/>
<WindowIndex Value="-1"/>
<CursorPos X="11" Y="25"/>
</ExtraEditor1>
<ExtraEditor2>
<EditorIndex Value="-1"/>
<WindowIndex Value="-1"/>
<TopLine Value="298"/>
<CursorPos X="5" Y="322"/>
</ExtraEditor2>
<UsageCount Value="200"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit>
<Unit>
<Filename Value="frameluna.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="LunaView"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Frame"/>
<EditorIndex Value="-1"/>
<TopLine Value="67"/>
<CursorPos X="4" Y="180"/>
<UsageCount Value="202"/>
</Unit>
<Unit>
<Filename Value="meteo_frame.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="MeteoView"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Frame"/>
<EditorIndex Value="7"/>
<TopLine Value="116"/>
<CursorPos Y="126"/>
<ExtraEditorCount Value="1"/>
<ExtraEditor1>
<EditorIndex Value="-1"/>
<WindowIndex Value="-1"/>
<CursorPos Y="8"/>
</ExtraEditor1>
<UsageCount Value="205"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit>
<Unit>
<Filename Value="meteo_frame.lfm"/>
<IsPartOfProject Value="True"/>
<EditorIndex Value="-1"/>
<UsageCount Value="205"/>
<DefaultSyntaxHighlighter Value="LFM"/>
</Unit>
<Unit>
<Filename Value="graficimeteo.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form3"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<EditorIndex Value="-1"/>
<TopLine Value="39"/>
<CursorPos X="73" Y="67"/>
<UsageCount Value="205"/>
</Unit>
<Unit>
<Filename Value="impostazioniform.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Impostazioni"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="ImpostazioniForm"/>
<EditorIndex Value="2"/>
<TopLine Value="61"/>
<CursorPos X="97" Y="127"/>
<UsageCount Value="201"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit>
<Unit>
<Filename Value="settingsutils.pas"/>
<IsPartOfProject Value="True"/>
<EditorIndex Value="3"/>
<TopLine Value="50"/>
<CursorPos X="84" Y="91"/>
<UsageCount Value="201"/>
<Loaded Value="True"/>
</Unit>
<Unit>
<Filename Value="freccie/info_form.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Informazioni"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<EditorIndex Value="-1"/>
<TopLine Value="55"/>
<CursorPos X="76" Y="80"/>
<UsageCount Value="197"/>
<LoadedDesigner Value="True"/>
</Unit>
<Unit>
<Filename Value="visualizzaeventiform.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form2"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="VisualizzaEventiForm"/>
<EditorIndex Value="6"/>
<TopLine Value="62"/>
<CursorPos X="36" Y="79"/>
<ExtraEditorCount Value="1"/>
<ExtraEditor1>
<EditorIndex Value="-1"/>
<WindowIndex Value="-1"/>
<TopLine Value="33"/>
<CursorPos X="7" Y="61"/>
</ExtraEditor1>
<UsageCount Value="106"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit>
<Unit>
<Filename Value="meteo.pas"/>
<ComponentName Value="Meteo"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Frame"/>
<EditorIndex Value="-1"/>
<CursorPos X="3" Y="31"/>
<UsageCount Value="166"/>
</Unit>
<Unit>
<Filename Value="astronomy.pas"/>
<EditorIndex Value="1"/>
<TopLine Value="41"/>
<CursorPos X="3" Y="54"/>
<ExtraEditorCount Value="1"/>
<ExtraEditor1>
<EditorIndex Value="-1"/>
<WindowIndex Value="1"/>
<TopLine Value="1071"/>
<CursorPos X="75" Y="1103"/>
</ExtraEditor1>
<UsageCount Value="105"/>
<Loaded Value="True"/>
</Unit>
<Unit>
<Filename Value="../../../App/Lazarus_4.4_Qt6/lazarus/lcl/interfaces/carbon/carbonbars.pp"/>
<UnitName Value="CarbonBars"/>
<EditorIndex Value="-1"/>
<CursorPos X="2" Y="16"/>
<UsageCount Value="2"/>
</Unit>
<Unit>
<Filename Value="../../../App/Lazarus_4.4_Qt6/lazarus/lcl/include/control.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="3985"/>
<CursorPos Y="4010"/>
<UsageCount Value="6"/>
</Unit>
<Unit>
<Filename Value="unit1.lfm"/>
<EditorIndex Value="-1"/>
<UsageCount Value="7"/>
<DefaultSyntaxHighlighter Value="LFM"/>
</Unit>
<Unit>
<Filename Value="../../../App/Lazarus_4.4_Qt6/lazarus/lcl/lresources.pp"/>
<UnitName Value="LResources"/>
<EditorIndex Value="-1"/>
<TopLine Value="5334"/>
<CursorPos Y="5350"/>
<UsageCount Value="1"/>
</Unit>
<Unit>
<Filename Value="../../../App/Lazarus_4.4_Qt6/lazarus/lcl/include/graphic.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="155"/>
<CursorPos Y="171"/>
<UsageCount Value="3"/>
</Unit>
<Unit>
<Filename Value="graficimeteoform.pas"/>
<ComponentName Value="Form2"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<EditorIndex Value="-1"/>
<TopLine Value="26"/>
<CursorPos Y="31"/>
<UsageCount Value="4"/>
</Unit>
<Unit>
<Filename Value="meteoutil.pas"/>
<EditorIndex Value="8"/>
<TopLine Value="78"/>
<CursorPos X="58" Y="94"/>
<UsageCount Value="74"/>
<Loaded Value="True"/>
</Unit>
<Unit>
<Filename Value="impostazioni.pas"/>
<ComponentName Value="Settings"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<EditorIndex Value="-1"/>
<CursorPos Y="51"/>
<UsageCount Value="3"/>
</Unit>
<Unit>
<Filename Value="../../../../../fpcupdeluxe/lazarus/lcl/include/customform.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="3203"/>
<CursorPos Y="3223"/>
<UsageCount Value="12"/>
</Unit>
<Unit>
<Filename Value="../../../../../fpcupdeluxe/lazarus/lcl/include/graphic.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="151"/>
<CursorPos Y="171"/>
<UsageCount Value="7"/>
</Unit>
<Unit>
<Filename Value="../../../../../fpcupdeluxe/lazarus/lcl/interfaces/gtk2/gtk2widgetset.inc"/>
<EditorIndex Value="-1"/>
<WindowIndex Value="-1"/>
<TopLine Value="1526"/>
<CursorPos X="10" Y="1539"/>
<UsageCount Value="1"/>
</Unit>
<Unit>
<Filename Value="../../../../../fpcupdeluxe/lazarus/lcl/interfaces/carbon/carbonbars.pp"/>
<UnitName Value="CarbonBars"/>
<EditorIndex Value="-1"/>
<TopLine Value="2"/>
<CursorPos X="2" Y="16"/>
<UsageCount Value="3"/>
</Unit>
<Unit>
<Filename Value="../../../../../fpcupdeluxe/fpcsrc/packages/openssl/src/opensslsockets.pp"/>
<EditorIndex Value="-1"/>
<UsageCount Value="19"/>
</Unit>
<Unit>
<Filename Value="../../../../../fpcupdeluxe/fpcsrc/packages/openssl/src/openssl.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="82"/>
<CursorPos X="27" Y="114"/>
<UsageCount Value="18"/>
</Unit>
<Unit>
<Filename Value="../../../../../fpcupdeluxe/fpcsrc/packages/openssl/src/fpopenssl.pp"/>
<EditorIndex Value="-1"/>
<TopLine Value="16"/>
<UsageCount Value="11"/>
</Unit>
<Unit>
<Filename Value="../../../../../fpcupdeluxe/fpcsrc/packages/fcl-net/src/sslbase.pp"/>
<EditorIndex Value="-1"/>
<UsageCount Value="3"/>
</Unit>
<Unit>
<Filename Value="../../../../../fpcupdeluxe/fpcsrc/packages/fcl-web/src/base/fphttpclient.pp"/>
<EditorIndex Value="-1"/>
<TopLine Value="10"/>
<UsageCount Value="14"/>
</Unit>
<Unit>
<Filename Value="../../../../../fpcupdeluxe/fpcsrc/packages/fcl-net/src/ssockets.pp"/>
<EditorIndex Value="-1"/>
<UsageCount Value="11"/>
</Unit>
<Unit>
<Filename Value="../../../../../fpcupdeluxe/fpcsrc/rtl/inc/dynlibs.pas"/>
<EditorIndex Value="-1"/>
<UsageCount Value="3"/>
</Unit>
<Unit>
<Filename Value="../../../../../App/Lazarus_4.6_Qt6/lazarus/lcl/editbtn.pas"/>
<UnitName Value="EditBtn"/>
<EditorIndex Value="-1"/>
<TopLine Value="2146"/>
<CursorPos Y="2160"/>
<UsageCount Value="6"/>
</Unit>
<Unit>
<Filename Value="../../../../../App/Lazarus_4.6_Qt6/lazarus/lcl/include/customedit.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="550"/>
<CursorPos Y="562"/>
<UsageCount Value="6"/>
</Unit>
<Unit>
<Filename Value="../../../../../App/Lazarus_4.6_Qt6/lazarus/lcl/include/control.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="5152"/>
<CursorPos Y="5163"/>
<UsageCount Value="6"/>
</Unit>
</Units>
<JumpHistory HistoryIndex="29">
<Position>
<Filename Value="meteoutil.pas"/>
<Caret Line="90" Column="19" TopLine="73"/>
</Position>
<Position>
<Filename Value="meteo_frame.pas"/>
<Caret Line="133" TopLine="83"/>
</Position>
<Position>
<Filename Value="meteoutil.pas"/>
<Caret Line="97" Column="103" TopLine="77"/>
</Position>
<Position>
<Filename Value="meteoutil.pas"/>
<Caret Line="92" Column="27" TopLine="76"/>
</Position>
<Position>
<Filename Value="meteo_frame.pas"/>
<Caret Line="126" TopLine="118"/>
</Position>
<Position>
<Filename Value="meteoutil.pas"/>
<Caret Line="92" Column="15" TopLine="76"/>
</Position>
<Position>
<Filename Value="meteo_frame.pas"/>
<Caret Line="127" TopLine="118"/>
</Position>
<Position>
<Filename Value="meteo_frame.pas"/>
<Caret Line="78" TopLine="68"/>
</Position>
<Position>
<Filename Value="meteo_frame.pas"/>
<Caret Line="80" TopLine="68"/>
</Position>
<Position>
<Filename Value="meteo_frame.pas"/>
<Caret Line="82" TopLine="68"/>
</Position>
<Position>
<Filename Value="meteo_frame.pas"/>
<Caret Line="84" TopLine="68"/>
</Position>
<Position>
<Filename Value="meteo_frame.pas"/>
<Caret Line="86" TopLine="68"/>
</Position>
<Position>
<Filename Value="meteo_frame.pas"/>
<Caret Line="88" TopLine="70"/>
</Position>
<Position>
<Filename Value="meteo_frame.pas"/>
<Caret Line="89" TopLine="71"/>
</Position>
<Position>
<Filename Value="meteo_frame.pas"/>
<Caret Line="90" TopLine="72"/>
</Position>
<Position>
<Filename Value="meteo_frame.pas"/>
<Caret Line="91" TopLine="73"/>
</Position>
<Position>
<Filename Value="meteo_frame.pas"/>
<Caret Line="111" TopLine="100"/>
</Position>
<Position>
<Filename Value="meteo_frame.pas"/>
<Caret Line="125" TopLine="114"/>
</Position>
<Position>
<Filename Value="meteo_frame.pas"/>
<Caret Line="127" TopLine="114"/>
</Position>
<Position>
<Filename Value="meteo_frame.pas"/>
<Caret Line="132" TopLine="114"/>
</Position>
<Position>
<Filename Value="meteo_frame.pas"/>
<Caret Line="133" TopLine="115"/>
</Position>
<Position>
<Filename Value="meteo_frame.pas"/>
<Caret Line="204" TopLine="193"/>
</Position>
<Position>
<Filename Value="meteoutil.pas"/>
<Caret Line="93" Column="46" TopLine="75"/>
</Position>
<Position>
<Filename Value="meteo_frame.pas"/>
<Caret Line="78" TopLine="66"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="114" Column="77" TopLine="101"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="185" Column="3" TopLine="170"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="30" Column="36" TopLine="30"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="138" Column="25" TopLine="121"/>
</Position>
<Position>
<Filename Value="unit1.pas"/>
<Caret Line="139" Column="5" TopLine="127"/>
</Position>
<Position>
<Filename Value="visualizzaeventiform.pas"/>
<Caret Line="78" Column="43" TopLine="57"/>
</Position>
</JumpHistory>
<RunParams>
<FormatVersion Value="2"/>
<Modes ActiveMode=""/>
</RunParams>
</ProjectSession>
</CONFIG>

113
visualizzaeventiform.pas Normal file
View File

@@ -0,0 +1,113 @@
unit VisualizzaEventiForm;
{$mode ObjFPC}{$H+}
interface
uses
{$ifdef windows}
windows,
{$endif}
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, EditBtn, StdCtrls,
Spin, ComCtrls, LazNumEdit, ListFilterEdit;
type
{ TForm2 }
TForm2 = class(TForm)
ListBox1: TListBox;
ListFilterEdit1: TListFilterEdit;
SpinEdit1: TSpinEdit;
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure SpinEdit1Change(Sender: TObject);
private
public
end;
var
Form2: TForm2;
implementation
{$R *.lfm}
{ TForm2 }
procedure TForm2.SpinEdit1Change(Sender: TObject);
var
nasastringlist:TStringList;
nasalinea:string;
RisorseStream:TResourceStream;
elementi:string;
orario:string;
caratteretab:string;
begin
ListBox1.Clear;
ListFilterEdit1.FilteredListbox:=nil;
ListFilterEdit1.Text:='';
try
RisorseStream:= TResourceStream.Create(HInstance,inttostr(SpinEdit1.Value)+'_NASA', RT_RCDATA);
nasastringlist:=TStringList.Create;
SetLength(nasalinea, RisorseStream.Size);
RisorseStream.Read(nasalinea[1], RisorseStream.Size);;
nasastringlist.AddDelimitedText(nasalinea, #10, True);
for elementi in nasastringlist do
begin
if elementi<>'' then
begin
{$ifdef windows}
caratteretab:=' ';
ListBox1.Font.Name := 'Courier New';
{$endif}
{$ifdef linux}
caratteretab:=#9;
{$endif}
{$ifdef darwin}
caratteretab:=' ';
ListBox1.Font.Name := 'Monaco';
ListBox1.Font.Size:=12;
{$endif}
ListBox1.Items.Add(copy(elementi, 1,2)+'/'+copy(elementi,5,2)+caratteretab+'CET '+copy(elementi, 9,5)+caratteretab+' '+copy(elementi, 16));
end;
end;
nasastringlist.Free;
ListFilterEdit1.FilteredListbox:=ListBox1;
except
on E:EResNotFound do
begin
ListBox1.Items.Add('Eventi non disponibili');
end;
end;
end;
procedure TForm2.FormShow(Sender: TObject);
begin
Form2.SpinEdit1Change(nil);
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
{$ifdef darwin}
ListBox1.Style:=lbOwnerDrawFixed; //su mac non cambia il font senza questo
{$endif darwin}
end;
end.