TxtEdit v1.3.1:

[-] Previous version was crashing on Windows XP [-] Copy-Paste didn't warrant close warning [-] Undo bugs [-] Ctrl+A was buggy
GrayFace · May 27, 2018 · 058c100 · 058c100
1 parent 09b35d7
commit 058c100
Show file tree

Hide file tree

Showing 9 changed files with 7,551 additions and 0 deletions.
diff --git a/TxtEdit/Language/English.txt b/TxtEdit/Language/English.txt
@@ -0,0 +1,6 @@
+	[Help]
+Memo1.Lines.Strings	Version %VERSION%
+Author: Sergey Rozhenko
+http://sites.google.com/site/sergroj/
+sergroj@mail.ru
+
diff --git a/TxtEdit/Language/Russian.txt b/TxtEdit/Language/Russian.txt
@@ -0,0 +1,64 @@
+	[Help]
+GlobalCharset	RUSSIAN_CHARSET
+EditsCharset	RUSSIAN_CHARSET
+Caption	�������
+Button1.Caption	OK
+Memo1.Lines.Strings	������ %VERSION%
+�����: ������� ������
+http://sites.google.com/site/sergroj/
+sergroj@mail.ru
+
+
+	[Main Form]
+GlobalCharset	RUSSIAN_CHARSET
+SSaveQuestion	��������� ��������� � "%s"?
+SSaveQuestionUntitled	��������� ��������� � ���������� ��������?
+SReopenQuestion	�� �������, ��� ������ ������ ������� "%s", ����������� �� ���������?
+SSearchNotFound	�� ������� ����� "%s"
+SSearchOtherEnd	���������� ����� � ������� ����� �����?
+STxtAssociationCaption	������� ��� ������� TxtEdit
+Caption	�������� ������ TxtEdit
+EditX.Hint	������������� ������
+EditY.Hint	������������� �������
+SaveDialog1.Filter	Txt �������|*.txt|��� �����|*.*
+OpenDialog1.Filter	Txt �������|*.txt|��� �����|*.*
+File1.Caption	����
+New1.Caption	�����
+Open1.Caption	�������
+Save1.Caption	���������
+SaveAs1.Caption	��������� ���...
+Recent1.Caption	�������� ���������
+Exit1.Caption	�����
+Edit1.Caption	�������������
+Undo1.Caption	&��������
+Redo1.Caption	���&������
+Cut1.Caption	&��������
+Copy1.Caption	&����������
+Paste1.Caption	���&�����
+SelectAll1.Caption	�&������� ���
+Find1.Caption	�����...
+FindNext1.Caption	����� �����
+Replace1.Caption	��������...
+WordWrap1.Caption	������� ����
+InsertRow1.Caption	�������� ������
+DeleteRow1.Caption	������� ������
+AddRow1.Caption	�������� ������
+InsertColumn1.Caption	�������� �������
+DeleteColumn1.Caption	������� �������
+AddColumn1.Caption	�������� �������
+SelectRow1.Caption	�������� ������
+SelectColumn1.Caption	�������� �������
+Options1.Caption	�����
+Language1.Caption	����
+Associate1.Caption	&�������� � ����������� ���� ��� ������ *.txt
+Associatewithert1.Caption	������������� � ������� *.ert
+Associatewithers1.Caption	������������� � ������� *.ers
+Help1.Caption	�������
+Undo2.Caption	��������
+Redo2.Caption	���������
+Cut2.Caption	����������
+Copy2.Caption	��������
+Paste2.Caption	��������
+Delete1.Caption	&�������
+SelectAll2.Caption	�������� ��
+
diff --git a/TxtEdit/TxtEdit.bdsproj b/TxtEdit/TxtEdit.bdsproj
@@ -0,0 +1,174 @@
+<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType">VCLApplication</Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{F7810F6E-5174-487A-929A-A6A8433616F6}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">TxtEdit.dpr</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">1</Compiler>
+			<Compiler Name="D">1</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">1</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">1</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">0</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">0</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">1</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">True</Compiler>
+			<Compiler Name="SymbolLibrary">True</Compiler>
+			<Compiler Name="SymbolPlatform">False</Compiler>
+			<Compiler Name="SymbolExperimental">True</Compiler>
+			<Compiler Name="UnitLibrary">True</Compiler>
+			<Compiler Name="UnitPlatform">True</Compiler>
+			<Compiler Name="UnitDeprecated">True</Compiler>
+			<Compiler Name="UnitExperimental">True</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>
+			<Compiler Name="UnitInitSeq">True</Compiler>
+			<Compiler Name="LocalPInvoke">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="CodePage"></Compiler>
+		</Compiler>
+		<Linker>
+			<Linker Name="MapFile">0</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="GenerateHpps">False</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">False</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription"></Linker>
+		</Linker>
+		<Directories>
+			<Directories Name="OutputDir"></Directories>
+			<Directories Name="UnitOutputDir"></Directories>
+			<Directories Name="PackageDLLOutputDir"></Directories>
+			<Directories Name="PackageDCPOutputDir"></Directories>
+			<Directories Name="SearchPath"></Directories>
+			<Directories Name="Packages">vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;user;EverButton;evermenu2;circlehandle;checkcontrol;eventtimer;everliquidindicator;everprogressbar;galoled;LiveIcon;OscilloscopePanel;sciedit;semipanel;esbpcs_rt_d7;esbpcs_db_rt_d7;ZTV70RT;dWinlock7;GSDialogs_D7</Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="Debug Symbols Search Path"></Parameters>
+			<Parameters Name="LoadAllSymbols">True</Parameters>
+			<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+		</Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir">C:\Program Files\borland\Delphi7\Bin\</Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">1</VersionInfo>
+			<VersionInfo Name="MinorVer">3</VersionInfo>
+			<VersionInfo Name="Release">1</VersionInfo>
+			<VersionInfo Name="Build">0</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">1033</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription">Txt Tables Editor</VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">1.3.1.0</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright">Sergey Rozhenko (http://grayface.github.io)</VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename">TxtEdit</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName">TxtEdit</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.3.1.0</VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+</BorlandProject>
diff --git a/TxtEdit/TxtEdit.cfg b/TxtEdit/TxtEdit.cfg
@@ -0,0 +1,39 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-LE"C:\Users\Serg\Documents\Borland Studio Projects\Bpl"
+-LN"C:\Users\Serg\Documents\Borland Studio Projects\Bpl"
+-w-SYMBOL_PLATFORM
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/TxtEdit/TxtEdit.dpr b/TxtEdit/TxtEdit.dpr
@@ -0,0 +1,14 @@
+program TxtEdit;
+
+uses
+  Forms,
+  Unit1 in 'Unit1.pas' {Form1},
+  Utils in 'Utils.pas';
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TForm1, Form1);
+  Application.Run;
+end.
diff --git a/TxtEdit/TxtEdit.res b/TxtEdit/TxtEdit.res