Subversion Repositories stackman

Compare Revisions

No changes between revisions

Regard whitespace Rev 12 → Rev 13

/trunk/Delphi/StackMan.dproj
0,0 → 1,155
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{7D27C417-84DB-4252-8E7A-9DEA11BDDB02}</ProjectGuid>
<MainSource>StackMan.dpr</MainSource>
<Base>True</Base>
<Config Condition="'$(Config)'==''">Debug</Config>
<TargetedPlatforms>1</TargetedPlatforms>
<AppType>Application</AppType>
<FrameworkType>VCL</FrameworkType>
<ProjectVersion>19.5</ProjectVersion>
<Platform Condition="'$(Platform)'==''">Win32</Platform>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
<Base_Win32>true</Base_Win32>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
<Base_Win64>true</Base_Win64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
<Cfg_1>true</Cfg_1>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
<Cfg_1_Win32>true</Cfg_1_Win32>
<CfgParent>Cfg_1</CfgParent>
<Cfg_1>true</Cfg_1>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
<Cfg_2>true</Cfg_2>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
<Cfg_2_Win32>true</Cfg_2_Win32>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Base)'!=''">
<DCC_DebugInformation>1</DCC_DebugInformation>
<DCC_E>false</DCC_E>
<DCC_F>false</DCC_F>
<DCC_K>false</DCC_K>
<DCC_N>true</DCC_N>
<DCC_S>false</DCC_S>
<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
<DCC_ImageBase>00400000</DCC_ImageBase>
<SanitizedProjectName>StackMan</SanitizedProjectName>
<DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;FireDAC.VCLUI;$(DCC_Namespace)</DCC_Namespace>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_MajorVer>5</VerInfo_MajorVer>
<VerInfo_Locale>1031</VerInfo_Locale>
<VerInfo_Keys>CompanyName=ViaThinkSoft;FileDescription=Textfile appender and stroker;FileVersion=5.0.0.0;InternalName=STACKMAN;LegalCopyright=© Copyright 2009 ViaThinkSoft;LegalTrademarks=Keine;OriginalFilename=StackMan.exe;ProductName=ViaThinkSoft Stack Manager;ProductVersion=5.0.0.0;Comments=;Webseite=www.viathinksoft.de;Projektleiter=Daniel Marschall - www.daniel-marschall.de</VerInfo_Keys>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''">
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<BT_BuildType>Debug</BT_BuildType>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<VerInfo_Locale>1033</VerInfo_Locale>
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
<Icon_MainIcon>StackMan_Icon.ico</Icon_MainIcon>
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win64)'!=''">
<Icon_MainIcon>StackMan_Icon.ico</Icon_MainIcon>
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1)'!=''">
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
<DCC_DebugInformation>0</DCC_DebugInformation>
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2)'!=''">
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
<DCC_Optimize>false</DCC_Optimize>
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
<DCC_RangeChecking>true</DCC_RangeChecking>
<DCC_IntegerOverflowCheck>true</DCC_IntegerOverflowCheck>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="main.PAS">
<Form>MainForm</Form>
</DCCReference>
<DCCReference Include="appender.pas">
<Form>MDIAppender</Form>
</DCCReference>
<DCCReference Include="texteditor.pas">
<Form>MDITexteditor</Form>
</DCCReference>
<DCCReference Include="ABOUT.PAS">
<Form>AboutBox</Form>
</DCCReference>
<DCCReference Include="categories.pas">
<Form>MDICategories</Form>
</DCCReference>
<DCCReference Include="NAME.PAS">
<Form>NameDlg</Form>
</DCCReference>
<DCCReference Include="global.pas"/>
<DCCReference Include="JOURNAL.PAS">
<Form>MDIJournalForm</Form>
</DCCReference>
<BuildConfiguration Include="Base">
<Key>Base</Key>
</BuildConfiguration>
<BuildConfiguration Include="Release">
<Key>Cfg_1</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
</ItemGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject>
<Delphi.Personality>
<Source>
<Source Name="MainSource">StackMan.dpr</Source>
</Source>
</Delphi.Personality>
<Platforms>
<Platform value="Win32">True</Platform>
<Platform value="Win64">False</Platform>
</Platforms>
</BorlandProject>
<ProjectFileVersion>12</ProjectFileVersion>
</ProjectExtensions>
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
</Project>
/trunk/Delphi/StackMan.iss
45,8 → 45,8
[Icons]
;Name: "{group}\Webseiten\ViaThinkSoft"; Filename: "https://www.viathinksoft.de/"
Name: "{group}\Stack Manager"; Filename: "{app}\StackMan.exe"
Name: "{group}\Stack Manager deinstallieren"; Filename: "{uninstallexe}"
Name: "{userdesktop}\Stack Manager"; Filename: "{app}\StackMan.exe"; MinVersion: 4,4; Tasks: desktopicon
;Name: "{group}\Stack Manager deinstallieren"; Filename: "{uninstallexe}"
Name: "{autodesktop}\Stack Manager"; Filename: "{app}\StackMan.exe"; MinVersion: 4,4; Tasks: desktopicon
 
[Run]
Filename: "{app}\StackMan.exe"; Description: "Stack Manager starten"; Flags: nowait postinstall skipifsilent
/trunk/Delphi/StackMan.res
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/trunk/Delphi/StackMan_Icon.ico
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property
/trunk/Delphi/appender.dfm
1,13 → 1,12
object MDIAppender: TMDIAppender
Left = 215
Top = 137
Width = 361
Height = 199
ClientHeight = 140
ClientWidth = 345
Color = clBtnFace
ParentFont = True
FormStyle = fsMDIChild
Menu = MainMenu
OldCreateOrder = False
Position = poDefault
Visible = True
OnClose = FormClose
14,24 → 13,27
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
TextHeight = 15
object VSplitter: TSplitter
Left = 0
Top = 94
Width = 353
Top = 81
Width = 345
Height = 2
Cursor = crVSplit
Align = alBottom
ExplicitTop = 94
ExplicitWidth = 353
end
object topPanel: TPanel
Left = 0
Top = 0
Width = 353
Height = 94
Width = 345
Height = 81
Align = alClient
BevelOuter = bvNone
TabOrder = 0
ExplicitWidth = 353
ExplicitHeight = 94
object CheckListBox1: TCheckListBox
Left = 0
Top = 0
48,12 → 50,14
end
object bottomPanel: TPanel
Left = 0
Top = 96
Width = 353
Top = 83
Width = 345
Height = 57
Align = alBottom
BevelOuter = bvNone
TabOrder = 1
ExplicitTop = 96
ExplicitWidth = 353
object newLineEdt: TMemo
Left = 0
Top = 0
/trunk/Delphi/appender.pas
4,7 → 4,7
 
uses
SysUtils, Windows, Classes, Graphics, Forms, Controls, StdCtrls, ExtCtrls,
Dialogs, Menus, ImgList, ShellAPI, CheckLst;
Dialogs, Menus, ImgList, ShellAPI, CheckLst, System.UITypes;
 
type
TMDIAppender = class(TForm)
/trunk/Delphi/global.pas
4,7 → 4,7
 
uses
SysUtils, Classes, Dialogs, Forms, Windows, ShellAPI, Controls,
ComCtrls, WinInet;
ComCtrls, WinInet, System.UITypes;
 
type
TAMode = (emUnknown, emFolder, emText, emAppender, emForeign);
/trunk/Delphi/main.PAS
5,7 → 5,7
uses
Windows, SysUtils, Classes, Graphics, Forms, Controls, Menus,
StdCtrls, Dialogs, Buttons, Messages, ExtCtrls, ComCtrls, StdActns,
ActnList, ToolWin, ImgList, ShellAPI;
ActnList, ToolWin, ImgList, ShellAPI, System.ImageList, System.Actions;
 
type
TMainForm = class(TForm)
174,13 → 174,13
lng_caption_information = 'Information';
lng_update_new_version = 'Eine neue Programmversion (%s) ist vorhanden. Möchten Sie diese jetzt herunterladen?';
const
url_comparison = 'http://www.viathinksoft.de/update/?id=%s&expect_version=%s';
url_version = 'http://www.viathinksoft.de/update/?id=%s';
url_download = 'http://www.viathinksoft.de/update/?id=@%s';
url_comparison = 'https://www.viathinksoft.de/update/?id=%s&expect_version=%s';
url_version = 'https://www.viathinksoft.de/update/?id=%s';
url_download = 'https://www.viathinksoft.de/update/?id=@%s';
res_nothing = 'NO_UPDATES';
res_updates = 'UPDATE_AVAILABLE';
var
temp: string;
temp: RawByteString;
begin
temp := GetHTML(Format(url_comparison, [abbreviation, thisversion]));
 
/trunk/Delphi/main.dfm
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/trunk/Delphi/texteditor.dfm
1,9 → 1,9
object MDITextEditor: TMDITextEditor
Left = 255
Top = 367
Width = 347
Height = 180
Caption = 'Text-Editor'
ClientHeight = 121
ClientWidth = 331
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
12,19 → 12,17
Font.Style = []
FormStyle = fsMDIChild
Menu = MainMenu1
OldCreateOrder = False
Position = poDefault
Visible = True
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Memo1: TMemo
Left = 0
Top = 0
Width = 339
Height = 134
Width = 331
Height = 121
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
35,6 → 33,8
ScrollBars = ssVertical
TabOrder = 0
OnChange = Memo1Change
ExplicitWidth = 339
ExplicitHeight = 134
end
object MainMenu1: TMainMenu
Images = MainForm.ImageList2
/trunk/Delphi/texteditor.pas
4,7 → 4,7
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus, ShellAPI, ExtCtrls;
Dialogs, StdCtrls, Menus, ShellAPI, ExtCtrls, System.UITypes;
 
type
TMDITextEditor = class(TForm)
/trunk/Delphi
Property changes:
Added: svn:global-ignores
+__history
+*.dcu
+*.local
+*.identcache
+*.otares
Added: svn:ignore
+*.exe