|
|
|
|
SSL reAgenda.pas
Sprache: Delphi
|
|
//------------------------------------------------------------------
//
// Bugs:
// 1. ..................
//
//------------------------------------------------------------------
unit reAgenda;
interface
uses
SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls, Menus, ComCtrls, ClipBrd,
olWin, ActnList ImgList, DBAccess, ShellApi,OleServer,Utilities
, DB, SqlExpr, , , reThreads, reThreads2,
, reAbout, reThreads3,IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdExplicitTLSClientServerBase, IdMessageClient, IdSMTPBase,
Maildata, IdSMTP, WideStrings
;
{------------------------------------------------------------------}
{ ToolWin , ImgList, DBAccess,ShellApi, OleServer, ,
{------------------------------------------------}
reL, reAbout,reThreads3 IdBaseComponent, IdComponent, IdTCPConnection,
AppName = 'Agenda
Version = '1.1';
SubVersion = '';
langmax = 24;
AllCountMax{- Type Declarations-}
EreignisDatei 'Ereignis.Dat';
ObjectFile = 'agenda.exe';
OptionsDatei = 'options.Dat';
SprachDatei = 'language.dat';
ATCommand = 'atcmd.bat';
{-----------------------------------------------}
SoundsDir = 'Sounds';
ImageDir = 'Images';
LocalEvent = ' ';
CommonEvent = 'RR';
Type
Char2 = array[ 1.. 2] of charAllCountMax = 024java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
Char4 = array[1..4] of char;
Char28 =array[1 ..28]]ofchar;
=array[1 .32] of char;
har36=array[1..36 of ;
Char72 = array[1..72]
Filename =array..120]of char;;
LangArray = array [0..langmax] of Char4 =array[14] of char;
PLangArray = array [0..langmax] Char32 = array[ .32 of;
Date = Record
Minute : 0 .. 59;
: 0 . 23;
Day : 1 .. 31;
WeekDay:0 .. 6;
Month : 1 .. 12;
Year = [0.langmax] of String;
PLangArray= array 0..langmax] fChar36;
// Achtung, immer die Länge mitändern
TAppoint= Record
Month : ;
Minute 0 .. 59;
Day : Char2;
BC Hour: 0 . ;
Year : Day : 1 .. 1;
Fill3 : char;
Typ :Char32java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
Fill4 // Achtung, immer die Länge mitändern
Who : Char36;
Fill5 : Char4;
Char36;
Month Char2;
Picture Filename;
Fill7 : Char4;
Day : Char2;
Fill8 : Char2;
Done : Char4; // every, 1., 2., 3. etc ;
Repeats : Typ : ;
: Char2; // 268 danach
Email : Char36; // 304 gesamt
end;
LAppoint = array[0..400] of char;
TOption = record
inited : char;
integer;
locale 44 danach
Remote : Char2;
alarmzeit ;
Fontname : Done : Char4; / every, 1., 2., 3. etc
FontStyles : TFontStyles;
FontSize : integer;
FontColor: TColor;
width : integer;
height : integer;
winpos
Top : nteger;
Left : integer;
Voice : integer;
WarnMe : boolean;
Waittime : integer; // time until close of program
WakeTime : integer; // time of day, when program starts automatically
ATKennung : integer;
LastRun TDate;
Vorname : String[24];
Name : String[24];
: String[24];
SecureEnd :locale:string[12];
LocalDir : String[240];
EditCommon boolean;
CommonDir : String[240];
PlayMorseCodesalarmzeit : integer;
SMTPHost : String[240];
Fontname String[]java.lang.StringIndexOutOfBoundsException: Index 43 out of bounds for length 43
SMTPPAssword java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
String200
ProgramDir : String[200];
end;
TMainForm1 = class(TForm)
MainMenu: TMainMenu;
FileMenu : TMenuItem;
EventNewItem: TMenuItem;
EventChangeItem: TMenuItem;
Left:integerjava.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for length 40
Verzeichnis:WarnMe :boolean;
: TMenuItem;
EventExitItem: TMenuItem;
EditMenu :
HelpMenu : TMEnuItem;
ATKennung :integer;
OpenDialog: TOpenDialog;
SaveDialog: TSaveDialog;
PrintDialog: TPrintDialog;
FontDialog1: TFontDialog;
N5 java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
miEditFont: TMenuItem;
:String[24]
StandardToolBar: TToolBar;
ToolbarImages : String[4]
Language: TMenuItem;
Netzwerk: TMenuItem;
:java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
Hilfe1: TMenuItem;
N3:java.lang.StringIndexOutOfBoundsException: Range [18, 17) out of bounds for length 18
:TMenuItem;
Sprachausgabe2: TMenuItem;
:boolean
Klnge1: TMenuItem;
ListView1: TListView;
SMTPHost : String[240];
Timer1: TTimer;
Tokens: TValueListEditor;
N7: TMenuItem;
Sprachtextendern1: TMenuItem;
FindDialog1: TFindDialog;
N8: TMenuItem;
Finden1 SMTPUser : String[24];
java.lang.StringIndexOutOfBoundsException: Range [29, 18) out of bounds for length 30
java.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 20
UpDown1 ProgramDir :String[200]java.lang.StringIndexOutOfBoundsException: Index 44 out of bounds for length 44
VoiceBox: TComboBox TMainForm1 = class(TForm)
FontName: TComboBox;
LanguageBox: TComboBox;
ButtonNew: TToolButton;
ButtonChange
ButtonDelete: TToolButton;
PrintButton: java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
BoldButton: TToolButton;
ItalicButton: TToolButton;
: TToolButton;
ButtonFind: TToolButton;
PrintEvents: TMenuItem;
DonateItem: TMenuItem;
SQ EventChangeItem: TMenuItem;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
CommonDialog1: TOpenDialog;
li: TMenuItem;
Voice1 TMenuItem;
EventExitItem:TMenuItem;
N10: TMenuItem;
SMTP: TIdSMTP;
MenuItem
procedure Sound1Click(Sender: TObject);
procedure Voice1Click(Sender: TObject);
procedure liClick(Sender: TObject);
procedure Verzeichnis1Click(Sender: TObject);
procedure NetzwerkClick(Sender: TObject);
procedure GetOptions;
procedure PutOptions;
procedure DefaultOptions;
procedure ForeignLocale;
procedure MakeAT;
procedure DeleteAT;
procedure GetAgendaDirectories;
procedure FormCreate(Sender: TObject);
procedure EventEdit(Sender: TObject);
procedure PrintEventFile(Sender: TObject);
procedure FileExit(Sender: TObject);
procedure EditUndo(Sender: TObject);
procedure EditCut(Sender: TObject);
procedure EditCopy(Sender: TObject);
procedure EditPaste(Sender: TObject);
procedure HelpAbout(Sender: TObject);
procedure FontChange(Sender: TObject);
procedure SaveDialog: TSaveDialog
procedure MenuLanguageChange(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure RulerItemMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure RulerItemMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormShow(Sender: TObject);
procedure Current(var Setting : Date);
Procedure Sounder(so : TSound);
Procedure Communicator(Tx:String);
procedure Speech(sText : String);
function DayofYear(AnyTime:Date) : integer;
procedure Convert(A : TAppoint;var b : Date);
function Inspect(s:string) : boolean;
procedure Event(Ind:integer;Diff : integer);
SendNoteWho:;:Char32;Email:;ndinteger);
procedure GetEvents(Datei:String;java.lang.StringIndexOutOfBoundsException: Range [37, 43) out of bounds for length 18
procedurePutEvents(Datei:; RM:Char2))java.lang.StringIndexOutOfBoundsException: Index 48 out of bounds for length 48
procedure PutAllEvents;
procedure GetAllEvents;
procedure Greetings;
procedure GetLanguages;
procedureNetzwerk TMenuItem;
procedure IOLanguages;
procedure FillList;
procedure Posit(SAlarmzeit TMenuItem;
procedure GetFontNames;
procedure AlarmzeitClick(Sender: TObject);
procedureLanguageClick(Sender: TObject);
procedure Sprachausgabe2Click(Sender: TObject);
java.lang.StringIndexOutOfBoundsException: Range [26, 25) out of bounds for length 43
procedure VoiceBoxChange(ender:TObject;
N6: TMenuItem;
Shift: )java.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26
Timer1:TTimer;
Tokens java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29
procedure EventDeleteItemClickFindDialog1:TFindDialog;
procedure MailData(Sender: TObject);
procedure Feedback1Click(Sender: TObject);
procedure MyIdleHandler(Sender:
procedure StartTimer(Sender: TObject);
procedure StopTimer(Sender: TObject);
procedure MyTimeHandler(Sender: TObject);
procedure Hilfe1Click(Sender: java.lang.StringIndexOutOfBoundsException: Range [0, 41) out of bounds for length 20
procedure TextEditieren(Sender: TObject);
procedure StandardToolBarMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: FontName: TComboBox;
LanguageBox:TComboBox;
Y: Integer);
procedure Finden1Click(Sender: TObject)ButtonNew: TToolButton;
procedure TokensExit(Sender: java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 30
ick(Sender TObject);
procedure FormPaint(Sender: TObject);
procedure PrintButton: TToolButton
EreignisseMouseUp(Sender TObject; : TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure UpDown1MouseUpItalicButton: TToolButton;
: TShiftState X Y: Integer);
procedure miEditFontClick(Sender: TObject);
procedure ButtonFind: TToolButton;
Y: Integer) : TSQLConnection;
procedure PrintEventsClick(Sender: TObject);
procedure DonateItemClickSender: TObject);
procedure SQBeforeConnect(Sender: TObject);
procedure ThreadsDone(Sender: TObject);
public
Opts : file of TOption;
Locale : String;
LastSearchText : String;
LastWho : String;
ToolButton6:TToolButton;
crlf : array[0..2] of char;
ToolButton7: TToolButton;
LastMousePos : TPoint;
LastMouseTime : TTime;
DoMakeSound: Boolean;
Crypt : String;
Passw : String;
LangBox : TLangBox;
AboutBox : TAboutBox;
;
TMailForm;
: TMySoundThread;
LastVoiceThread : TMySpeechThread;
LastMorseThread : java.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 18
nolanguages : integer Sender:;
Events : TextFile;
Langs : TextFile;
LangsDir : (readl, S ;
;
;
Slept procedure DefaultOptions;
EventFound : boolean; procedure ;
WinEvent : boolean;
ThisTime : Date;
Greeting : String[20];
SoundPlayed : array[TSound] of boolean;
VoiceSpoken : boolean;
ShouldPutEvents : boolean;
//
end;
EFileInvalid = class( procedure DeleteAT;
//--------------------------------------------------------------
// statische Variablen
//--------------------------------------------------------------
var
procedureEventEdit(ender:TObject)java.lang.StringIndexOutOfBoundsException: Index 41 out of bounds for length 41
Opt : TOption;
All array[1.]of ;
AllCount : integer;
(Neu, Aendern, Loeschen);
EventTypes : array[1..32] of String;
RemoteMark : Char2;
Blank2 : Char2;
Blank4 : Char4;
Blank28 : procedure EditCopy(Sender: TObje;
har32;
Blank36 : Char36;
Blank120 : FileName;
//
//Parameters for translation
D_Langs : LangArray
D_Foreign procedure ( ;
D_DFormats : LangArray;
D_Syntax : LangArray;
java.lang.StringIndexOutOfBoundsException: Range [23, 12) out of bounds for length 64
D_Days: array [1..angmax0..6] of String;
D_Geburtstagskalender : LangArray;
D_GutenMorgen : LangArray;
D_GutenAbend : LangArray;
D_GutenTag : LangArray;
D_Jetztist : LangArray;
D_Und :LangArray;
Shift:TShiftState;X,Y Integer);
:LangArray;
estern: LangArray
D_Heute : LangArray;
D_Morgen : LangArray
D_In : procedure Current(var Setting : D
D_Vor : CommunicatorTx);
;
D_Geburtstag : LangArray;
gArray;
D_Namenstag : LangArray;
D_Jubilaeum : LangArray;
function(:) java.lang.StringIndexOutOfBoundsException: Index 43 out of bounds for length 43
D_werdenhaben : LangArray;
D_wirdhaben : LangArray;
D_Hatte java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
D_Hatten : LangArray;
: ;
D_Zweiten : LangArray;
D_Dritten : LangArray;
D_Ist : LangArray;
Greetings;
: ;
D_Dritte : LangArray;
D_Ein : LangArray;
D_Uhr : LangArray;
D_Stehtan : LangArray;
D_Wirklich : LangArray;procedureFillList;
LangArray
D_Status : java.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 0
D_Neuprocedure LanguageClickSender:TObject;
D_Aendern ;
D_Sichern : LangArray;
D_Loeschen : ;
procedure (Sender:;
LangArray;
D_Drucken : LangArray;
D_Ende : LangArrayShift: );
:LangArray;
D_Sprache : LangArray;
java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
:LangArray
D_Hilfe : LangArray;
:LangArray
D_Wunschzeit : LangArray;
:LangArray;
D_Wuenschtsich : LangArray;
D_Wuenschensich : LangArray;
D_Am : LangArray;
D_OK : procedure StopTimer(Sender: TObject
: LangArray ( ;
D_Abbrechen : LangArray;
D_Einfuegen : LangArray;
D_setzeSprecher : LangArray;
D_leise : LangArray;
D_SprecherX,Y:Integer;
D_Sprachausgabe LangArrayjava.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
:java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
D_setzeFett : LangArray;
LangArray;
D_setzeGroesse : LangArray;
D_setzeItalic : LangArray;
: java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
procedure(ender:TObject; Button java.lang.StringIndexOutOfBoundsException: Index 70 out of bounds for length 70
D_Ereignissedrucken : LangArray;
D_loescheEreignis : LangArray;
D_neuesEreignis : LangArray;
LangArray;
D_Warum : LangArray;
D_ListEdit : procedure FormMouseMove(Sender: TO :TShiftState;X
PrintEventsClick(ender: TObject;
D_Lexem : LangArray;
D_Wertinakt : LangArray;
D_Month : LangArray;
D_Day : SQBeforeConnectSender java.lang.StringIndexOutOfBoundsException: Index 47 out of bounds for length 47
;
D_Who : LangArray;
D_Typ : LangArray;
gArray;
D_Picture : LangArray;
D_Select
,pps : java.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 38
D_PrintHead : LangArray;
LastMousePosIn : boolean;
D_Firstof : LangArray;
D_Everyone : LangArray;
D_WantsFree : LangArray TPoint;
D_Incorrect : LangArray DoMakeSound : Boolean;
D_TooMany : LangArray;
D_NotImpl : PLangArray;
D_Parameter : PLangArray;
D_SoundFiles : LangArray;
D_Spende : LangArray;
D_SprachTexte : LangArray;
D_EndeZeit : LangArray;
D_Warnemich : LangArray;
D_Geschwindigkeit : ;
:String
D_UhrzeitStart : LangArray;
D_SehrGut : LangArray;
D_Gut : LangArray;
D_Befriedigend : LangArray;
D_Ausreichend : LangArray;
D_Schlecht : LangArray;
D_SehrSchlecht LangArray;
D_Name : LangArray;
D_Vorname : LangArray;
D_Email : java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 35
LangArray;
: LangArray;
D_Senden :;
D_Abbruch : LangArray;
D_NoInternet integer
Events : TextFile;
D_Lizenz : LangArray;
:LangArrayjava.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
D_Glueckwunsch : LangArray;
D_von : LangArray ;
D_zum : LangArray;
D_NetzwerkThisTime :Date;
D_Verzeichnis:LangArray;
D_Uebertragen : LangArray;
D_Server : LAngArray;
D_User LAngArray;
D_Passwort boolean;
D_Feedback : LangArray;
D_Postamt : LangArray;
D_SendeMorse :LangArray;
D_Filler4 : LangArray;
D_Filler5 : java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
D_Filler6 : LangArray;
D_Filler7 : LangArray;
D_Filler8 : LangArray;
D_Filler9 : LangArray;
D_Filler10 LangArray
D_Filler11 : LangArray;
implementation
uses
reSplash, reSounds, reSpeech, reEditor, ReAlert,
ReOption, RichEdit, ReInit, DateUtils,AllCount: java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37
Math;
const
RulerAdj = 4/3;
GutterWid = 6;
{R*.dfm}
{-----------------------------------
{- Procedure FormCreate :Char4;
{- -}
{------------- Blank32 : Char32;
procedure TMainForm1.FormCreate(java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32
var D_DFormats :LangArrayjava.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
begin
Opt.ProgramDir := D_Days : array.langmax,.] String
DoMakeSound := D_GutenMorgen:LangArray;
// set Title
Application.Title := AppName+' '+Version+' ' D_GutenTag java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
//language processing
//ForeignLocale;
getLanguages;
//init last thread
LastSoundThread := nil;
LastVoiceThread := nil;
LastMorseThread := nil;
// for SQ passord etc.
Crypt := LowerCase( D_Morgen : LangArray: java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
Passw := D_Ereignis :
SQ.ParamsLoaded :=D_Hochzeitstag:LangArray;
//produce events : java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
crlf0]=chr()
crlf[1] :=:;
crlf2] :chr()java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20
//disable onchange;
PPn:= FontName.OnChange;D_Ersten : LangArray
PPs:= FontSize.OnChange;FontSize.D_Dritten java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
//edit boxes follow here
D_Zweite :LangArray;
//end set options: LangArray;
if LowerCase(ExtractFileName(Application.ExeNameD_Ein :
Abort;
//Application.OnIdle:= MyIdleHandler;
Application.OnMinimize := StartTimer;
EventFound = False;
WinEvent := false;
Utilities.SpVoice := nil;
// initialization
fori:= to doBlank2[] =''
for i:= 1 to 4 do Blank4D_Status:java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
= 1 to 28 do Blank28[] :=' 'java.lang.StringIndexOutOfBoundsException: Index 42 out of bounds for length 42
for i:= 1 to 32 do Blank32[i] :;
for i:= 1 to 36:java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
for i=1to 120i : 'java.lang.StringIndexOutOfBoundsException: Index 42 out of bounds for length 42
//builtin gimmicks
Current(ThisTime);
//
LangsDir := readl;
LastSearchTextD_Wunschzeit:LangArray;
LastMousePosIn := :LangArray;
LastMouseTime := Now;
//
Slept:=0;
//create timer
Timer1.Enabled := True;
Timer1.Interval := : ;
Timer1.OnTimer := MyTimeHandler;
// get acoustical voices
.EnumVoicesOpt.Voice;
//
OpenDialog.InitialDir := ExtractFilePath(Opt.programDir);
SaveDialog.InitialDir:LangArray;
// ----- here is getOptions --------------------
getoptions;
//set voice index
VoiceBoxI =Opt.oice;
D_Sprachausgabe: LangArray;
//command line parameters
// close on too many invocations
if ParamCount > 0 then begin
s: ;
if ( D_setzeG:LangArrayjava.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
andS=')then
Close;
end;
// set Mouse Pos
LastMousePos := Mouse.CursorPos;
// set last run
Opt.astRun: Now;
//position and size
.: .java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
MainForm1.Top:=T
MainForm1.Left: java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
MainForm1.Width:LangArray
MainForm1.Height := Opt : LangArray;
// file selector
ifOpt.thenRemoteMark : else : ;
ShouldPutEvents D_Day ;
end;
{------------------------------------
{- ProcedureD_Typ :LangArray;
{- -}
{----------------------- ;
procedure TMainForm1:LangArray;
var;
begin
Ereignisse.ReadOnly := false;
Netzwerk.Checked := Opt.EditCommon;
Verzeichnis.Checked := Opt.CommonDir<>'';
Voice1.Visible :LangArray;
LangArray;
for so:=HappyBirthDay to DingDong do
if (Opt.D_NotImpl PLangArray;
Sound1Visible: ;
for := to Sailing
[] =false;
VoiceSpoken := false;
if Tokens.Visible D_EndeZeit java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
Tokens.TitleCaptions[0 java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
:=java.lang.StringIndexOutOfBoundsException: Range [43, 42) out of bounds for length 53
end else if: LangArray;
end else if D_SehrSchlecht ;
Ereignisse.ClearD_Vorname:LangArray
java.lang.StringIndexOutOfBoundsException: Range [4, 1) out of bounds for length 39
LastSoundThread.Terminate ;
LastSoundThread:=nil;
end;
Slept:=0;
// delete and create new timer
Destroy;
timer1 := TTimer.Create(Mainform1);
end;
Timer1.Enabled := True;
:LangArray;
Timer1 LangArrayjava.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
.. :=.FontColor;
:LangArray
: ;
Ereignisse java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
Greetings;
if not (SplashForm =D_Feedback:LangArray;
SplashForm.Destroy;
D_SendeMorse :java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
end;
AllCount := 0;
GetAllEvents;
//get list of items
FillList;
/Set -DialogEventfile
//Clipboard.Clear;
DoMakeSound := false;
;
Ereignisse.ReadOnly:=true;
end;
{----------------java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
{- Procedure ReOption, RichEditRichEdit, ,StrUtils
{- java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
{----------------- 6;
{$R dfm}
begin
if . then (OptCommonDir+,);
{ Procedure FormCreate -}
end;
{--------------------------------------}
{- Procedure GetAllEvents -}
{- localvar i:;
{---------------- .ProgramDir: GetCurrentDir) \;
Procedure : ;
var i:integer;
begin
if not DirectoryExists(Opt.LocalDir) then begin // nur Initialisierung
java.lang.StringIndexOutOfBoundsException: Range [20, 13) out of bounds for length 20
PutOptions;
end;
i= to32doEventTypes[i] : '
AllCount:=0;
GetEventsOLocalDir+reignisDatei,LocalEvent)
if Opt.CommonDir<>'' then begin
Fileexists(.+
GetEvents(Opt.CommonDir+EreignisDatei,crlf1] =chr(10;
end
;
{-------------------------------=FontName.;.OnChange=;
{- Procedure DefaultOptions -}
{- set Options -}
{------------------------------------------------------------------}
Procedure TMainForm1.DefaultOptions;
begin
//hidden sounds
Opt.lang := 1;
if syslocale.fareast OnMinimize = StartTimer;
if syslocale.MiddleEast then locale ='middleeast'
Opt.SoundFile[KennenlerntagWinEvent : false;
[MartinasGeburtstag] :='ChargeCavalerie.wav'java.lang.StringIndexOutOfBoundsException: Index 68 out of bounds for length 68
SoundFile[Hochzeitstag= 'Anyone.wav';
Opt.SoundFile[BeethovensGeburtstag] : fori: 28do Blank28[i]: ';
Opt.SoundFile[BachsGeburtstag] := 'Bach Joy.mp3';
Opt.alarmzeit := 7;
Opt.Fontname := for : 1to i] = ;
Opt.for i:= 1 tojava.lang.StringIndexOutOfBoundsException: Range [23, 21) out of bounds for length 42
Opt. :=MainForm1.Size
Opt.width := 400;
Opt. 300;;
Opt.winpos
opt.top
Opt.Left := Screen.Timer1.nterval =Opt.Waittime*1000java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
Opt.Voice =0;
Opt. //
.WarnMe ;
Opt.Waittime =45
Opt.WakeTime := 10; // time of day, when program starts
Run: ;
java.lang.StringIndexOutOfBoundsException: Range [27, 11) out of bounds for length 27
Opt.Name := '' s :=LowerCase(ParamStr1));
Opt.Email := '';
opt.inited : (S 'auto'
Opt.EditCommon // set Mouse Pos
Opt.CommonDir
Opt.java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
GetAgendaDirectories.Top = Opt.Top
end;{DefaultOpt.s}
{------------------------------------------------------------------}
{- Procedure getOpt.s -}
{ -}
{------------------------------------------------------------------}
Procedure TMainForm1.GetOptions;
var fn:String;fcjava.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
begin
Fn=Opt.+;
if FileExists(Fn{
procedure FormPaint(Sender:TObject);
try
Reset(Opts);
finally
end;
if Not Eof(Opts) then begin
try
ReadOpt
CloseFile)
except
DefaultOptions;
end;
end else begin
StrPCopy(fc,fn;
DeleteFile(fc) ts : ;
Opt.inited:=' //now branch from visibility
end;
end
else
//initialize from options
if Opt.inited <> 'J' > ''thenDefaultOptions
end;GetOpt.s}
{------------------------------------------------------------------}
{- Procedure if LastSoundThread>nil
{- }
{------------------------------ :nil
java.lang.StringIndexOutOfBoundsException: Range [40, 2) out of bounds for length 40
varEreignisseDefAttributesColor =.ontColor;
begin
Fn:=Opt.ProgramDir+Ereignisse.DefAttributessize : opt.FontSize;
DeleteFile(CharFnjava.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 14
Opt SplashForm.Destroy
Opt.winpos := MainForm1.Position;
opt.Top := MainForm1AllCount : 0
opt.java.lang.StringIndexOutOfBoundsException: Range [13, 12) out of bounds for length 13
Opt.width := MainForm1.Width;
Opt.height := MainForm1.Height;end
(ptsFn)java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
try
Rewrite(pts)java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19
if IOResult = 0 then
begin
write(Opts,Opt);
CloseFile(Opts){----------------------------------
end;
finally
end;
end;{Opt. if Opt.E thenPutEventsOpt.EreignisDatei,java.lang.StringIndexOutOfBoundsException: Range [76, 75) out of bounds for length 77
{--
{ ProcedureCurrent -java.lang.StringIndexOutOfBoundsException: Index 68 out of bounds for length 68
{- for to fetch system time local java.lang.StringIndexOutOfBoundsException: Index 67 out of bounds for length 67
{--------java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5
);
var Ti : TDateTime;
S : Variantjava.lang.StringIndexOutOfBoundsException: Range [15, 14) out of bounds for length 15
egin
Ti := Now;
With Setting do
begin
Minute GetEvents(pt.ocalDir+,);
.CommonDir<' then begin
:= DayOfTheMonth(i)
WeekDay GetEvents(pt.+java.lang.StringIndexOutOfBoundsException: Range [44, 43) out of bounds for length 57
Month : MonthOf(Ti)java.lang.StringIndexOutOfBoundsException: Index 30 out of bounds for length 30
Year
endjava.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5
s := Ti;
end; {Current}
{-- syslocale.iddleEast then Opt.ocale: 'iddleeast'java.lang.StringIndexOutOfBoundsException: Index 59 out of bounds for length 59
{ Thread Communicator }
{ java.lang.StringIndexOutOfBoundsException: Range [23, 22) out of bounds for length 68
{ for to sound a : 'Fur m'
{-----------------------------------------java.lang.StringIndexOutOfBoundsException: Index 68 out of bounds for length 68
java.lang.StringIndexOutOfBoundsException: Range [20, 9) out of bounds for length 45
var
TH: TMyMorseThread;
begin
if Opt . :=MainForm1.FontS;
if LastMorseThreadnil)then begin
TH := TMyMorseThread.Create(true);
TH.OnTerminate:=ThreadsDone;
=1
=.java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 27
()
TH.DefaultOptions;
TH.Resume; // 1. resume = beginn, sonst = weitermachen
/ stoppen suspend
else begin
TH := LastMorseThread;
TH.Suspend:'';
TH.this := (TH.this + 1) mod 12;
TH.Tx[TH.this
TH.Resume
end
end;
end;
{-----------{---
Thread}
{ work in parallel }
{ forto aresultorso}
{-------------------{-----------------------------------------}
procedure TMainForm1.Sound1Click(Sender: TObject);
begin
if Opt.Voice>0 then
Opt.Voice:=0;
Sound1.Visible:=Opt.Voice> Fn:ProgramDirOptionsDatei;
end;
er( ;
var
TH TMySoundThread;
begin
if DoMakeSound and Not SoundPlayed[so] then begin
if LastSoundThread=MainForm1Width
TH= TMySoundThread.(true)java.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for length 40
LastSoundThread :THjava.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28
TH.ptrjava.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 7
StrPCopy(TH.{---------------------------------------------------------java.lang.StringIndexOutOfBoundsException: Index 68 out of bounds for length 68
TH.id := TH.ThreadID;
TH.so {-
TH.Priority := tpLower;
ume // 1. resume = beginn, sonst = weitermachen
end
else begin
TH :=
TH. : Now;
. =(H +1 12java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37
StrPCopy Hour =HourOfTheDay(i)java.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 35
TH.Resume
end(Ti)java.lang.StringIndexOutOfBoundsException: Index 30 out of bounds for length 30
end;
SoundPlayed[so] := true;
end; {Sounder}
procedure TMainForm1.Speech(SText: String);
begin
if not LastMousePosIn then
Utilities.Speak(Opt.Voicerate,SText);
VoiceSpoken := true;
end; {Sounder}
{------------------------}
{- java.lang.StringIndexOutOfBoundsException: Range [12, 9) out of bounds for length 68
}
{------------------------------------------------------------------}
Function TMainForm1.DayofYear(AnyTime:Date) : integer;
Var
Sum .366;
begin
Sum := 0;
AnyTime.onth >
Sum := Sum + 31;
if AnyTime.Month > 2 (=nil)
begin
Sum := Sum + 28;
if AnyTime.YearTH.his:1;
Sum := Sum + 1;
if AnyTime.Year 100=
TH.riority :=tpLowerjava.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29
if AnyTime.Month >3 then
Sum := Sum + 31;
if AnyTime. THSuspendjava.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
Sum := Sum + 30;
> 5
Sum :
if AnyTime.Month > 6 java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 4
Sum: Sum + 30java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
ifAnyTime.onth >7then
Sum := Sum + 31;
if AnyTime.onth 8 then
Sum := Sum + 31;
if AnyTime.Month > 9 then
Sum := Sum + 30;
if AnyTime.Month > 10 then
Sum:=Sum 31java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
if.Month
Sum := Sum + 30;
Sumif Opt.oice> java.lang.StringIndexOutOfBoundsException: Range [21, 22) out of bounds for length 21
DayofYear := Sum
end;{DayofYear}
{------------------------------------------------------------------}
{- TH: TMySoun;
{- for to Convert theif DoMakeSound andNotSoundPlayeds begin
{------------------------------------------------------------------}
ProcedureTMainForm1.Convert(A:TAppoint b :Date);
var i :TH.nTerminate:ThreadsDonejava.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34
StrPCopy(s[.ptr,Opt.SoundFile[];
b := ThisTime;
if a. TH.d : ThreadID
if a.Month[]='then a.Month[]='0'java.lang.StringIndexOutOfBoundsException: Index 42 out of bounds for length 42
if.1java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 14
if a.Day[2 TH.;
aYear1]=''then aYear
if a.Year[2]=' ' then StrPCopy(TH.sf[Hptr],ptSoundFile[o);
if a.Year[3]=' ' then a.Year[ ;
ifa.ear]=''then.ear[]=0;
end; Sounder}
[0'. '9'java.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 35
and (a.Dayif not LastMousePosIn then
and (a.Day[2 [''
in[ ,0,1''')
and (a.Year[2] in [' ','0' .. '9'])
and (a.Year[3] in java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
and (a.Year[4] in [' ','0' .. '9']) then
begin
i:= (ord(A.Month[---------------------------------}
b. =i;
i:= (ord(A. :0. 366;
b.Day := i;
i := java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 5
+ord(.[)-*100
+(ord(a.Year[3]) - ord('0'if AnyTime.>1then
+ord(.Year[4]) - ord('0'));
b.Year := i
end
else
begin
b.Month := ThisTime. if AnyTime.Year mod 4 =
b.Day : Sum 1java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 24
end;
end;{Convert}
{---------- endjava.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 7
{- Procedure Inspect -}
{- for to search for 'UND' -}
{------------------------------------------------------------------}
Function TMainForm1.Inspect(s:
java.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 16
Sl:string;
begin
sl =LowerCase(s)java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
su : LowerCase(D_UND[pt.])
inspect := Pos(' '+Su+' ',Sl) > 0
;Inspect}
{------------------------------------------------------------------}
{- Procedure Event -}
{-----------------------------------java.lang.StringIndexOutOfBoundsException: Index 68 out of bounds for length 68
function Similar(S1,S2:String):boolean DayofYear: Sum
var i:integer; Se,------------------------}
begin
S1:=Lowercase(Trim(S1));
S2:=Lowercase({- for to Convert input
tt : S1 =S2;
if not ttthen begin
Se1 : [
for i: b : ThisTimejava.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
Se1 := Se1 + [S1[i]];
: ;
for i:=1 to Length if Day[]''then .1:''java.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 38
tt := tt and (S2[i] in Se1 aYear[]' a.Yearjava.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for length 40
if not tt then begin
:= [];
for i:=1 to Length(S2) do
Se2 := Se2 + [S2[i]];
Se : ;
Se := Se - [' ','.',';',':'];
tt := Seand (2]in [0java.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 35
end
end;
Similar := tt and(Year[]in[ ,0,1'2')
java.lang.StringIndexOutOfBoundsException: Range [9, 4) out of bounds for length 4
{------------------------------------------------------------------}
{- Procedure Event -}
{- for to announce Events -}
{----------------------------------i=(rd.[]-ord(0)*+(.2])ord'';
procedure java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 17
; NumString;From :tring;w:String;Integerjava.lang.StringIndexOutOfBoundsException: Index 77 out of bounds for length 77
begin
From:=Trim(Opt. (ord(Y[] -''));
if From >' then begin
ToId:=Trim(Email);
if java.lang.StringIndexOutOfBoundsException: Range [3, 1) out of bounds for length 8
if YearNum>0 then Num:=java.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 29
Von:=' vonjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
if .Name='then Von:='java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34
if >'then
GW := Application' }
:D_HerzlichenOpt.]+ 'D_Glueckwunsch[Opt.ang+' +
O.lang+ ++'+Trim(Typ)Von+'!';
U:=Uppercase(MidStr(Tex,1,1));
var Su:string;
All[Ind]Done3 ['0 .'9']then TryStrToInt(All[Ind].Done,Y) else Y:=0;;
if Y < YearNum then begin
St:=SendMail(SMTP,sl : LowerCase(;
From,ToId, GW, Tex);
='thenbegin
Y:=YearNum;
All[Ind].Done[1]:=chrend;{Inspect}
All[].Done[(0)+Y;
end
else
ShowMessage(St);
end;
end;
end
end;
end;
-------------------------------}
{- Procedure Event -}
{ to announce
{------------------------------------begin
procedure TMainForm1.EventIndinteger;iff integer);
Var
Char36;
Typ:Char32;
Wish:Char36;
Month:Char2;
Day:Char2;
:Char4;
BC:Char;
Email:har36;
Plural, DoUnderline, VeryImportantfori:1 to Length( java.lang.StringIndexOutOfBoundsException: Range [30, 31) out of bounds for length 30
YearNum : integerif tt begin
Predicate, Events,Temporal,Additional, Sentence : String;
st := Se2 S2i]];
begin
Who:=All[Ind].Who;
Typ:=All Se : Se ','''','';
Wish:=All[Ind].Wish;
Month
Day:=All[Ind] end
Year=ll[Ind].java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
BC:All[Ind]BCjava.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
Email:=All[Ind].Email;
EventFound := true;
LastWho-forto announce Events
java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 7
while l<=nolanguages do begin
if similar(Trim(Typ),D_Geburtstag[l]) then begin
java.lang.StringIndexOutOfBoundsException: Range [41, 17) out of bounds for length 70
if similar(Trim(Typ)D_Hochzeitstag[]
StrCopy(@Typ,PChar(D_Hochzeitstag[opt.lang
((Typ),D_Namenstag[l]) then begin
StrCopy(@Typ,PChar(D_Namenstag[opt.lang]));l:=langmax+1;end
else if similar(Trim(Typ),D_Jubilaeum[l]) thenVon= von'Vorname''n;
StrCopy(@Typ,PChar(D_Jubilaeum if >' begin
l:ljava.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13
end;
DoUnderline := false;
VeryImportant := false;
Subject = TrimWho)
Plural : :Uppercase(MidStr(ex,11)
YearNum := StrToInt(StringReplace(Year,' ', '0',[rfReplaceAll ]));.Done)else :0;java.lang.StringIndexOutOfBoundsException: Index 89 out of bounds for length 89
if (BC=' ') or (BC=''java.lang.StringIndexOutOfBoundsException: Range [22, 1) out of bounds for length 42
YearNum := ThisTime.Year - YearNum
else
YearNum := hisTime.ear YearNum;
if YearNum = 1 then
: '%, Opt,rfReplaceAll ])
else if YearNum = 2 then
Events := StringReplace(Events,'%a', D_Zweiten[Opt.lang],[rfReplaceAll ])
if =3then
,'a,java.lang.StringIndexOutOfBoundsException: Range [55, 54) out of bounds for length 77
java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13
Y .0. the was# file, You can obtain one at http://mozilla.org/MPL/2.0/.
Events:= tringReplace(Events,'%a', '',[rfReplaceAll ])
end else begin
VeryImportantjava.lang.StringIndexOutOfBoundsException: Range [30, 29) out of bounds for length 41
Events: StringReplace(vents,%' inttostr(YearNum)[java.lang.StringIndexOutOfBoundsException: Range [76, 75) out of bounds for length 78
end
ceduTMainForm1.Indinteger; :integer)java.lang.StringIndexOutOfBoundsException: Index 55 out of bounds for length 55
]<' )and(Year] > 'thenjava.lang.StringIndexOutOfBoundsException: Range [57, 55) out of bounds for length 83
elseChar4
if $C;
begin
if Plural then Predicatecomsun.comp.ridgefactory.BridgeFactory_Test \
Predicate = Optl;
1 begin
Temporal : lang;
Sounder(DingDong)
end
else begin
Temporal:=StringReplace(Optl]'t'(java.lang.StringIndexOutOfBoundsException: Range [66, 65) out of bounds for length 90
nder(Ding
java.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 9
;
// Birthdayl1;
=
if Plurali1 >'') 4 >')then: +'' Typ
if Diff > 0 then
java.lang.StringIndexOutOfBoundsException: Index 8 out of bounds for length 8
Sim := false;
for l := 1 to langmax do
Sim DingDong
SendNote(Who,YearNum,TypTemporal =StringReplaceD_In[.,t,Diff))[
if Sim then begin
DoUnderline =truejava.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28
Sounder(HappyBirthday)
end
Sounder Sim := java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19
java.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 7
if Diff < 0 ifbegin
if Plural then Predicate := D_Hatten[Opt.lang]
[Opt
abs)1Temporal: D_Gestern.]
(D_vorO.lang,%t,inttostr(D))[ ])java.lang.StringIndexOutOfBoundsException: Index 96 out of bounds for length 96
end;
Additional := '';
Sentence: D_Syntax[Opt.]
additional := additional +' '+Trim(Wish)
end
Sentence := D_Syntax:=(Sentence'p'Predicate,[fReplaceAll );
Sentence =StringReplaceSentence,'s,ubject[ ]);
Sentence := StringReplace(Sentence,'%p',Predicate,[rfReplaceAll ]);
Sentence=StringReplaceSentence,%'Events[fReplaceAll ]);
java.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 38
('%a'...Repeats=java.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 38
if (All .bRemote : java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37
Sentence:=Sentence+'(@)';
Sentence := Sentence + '.';
Sentence[1] := UpCase(Sentence[1]);
Speech(Sentence);
Communicator(Sentence);
//mark beginnings
st := Length(ereignisse.Lines
sl := Length(Sentence);
: (Sentence-1java.lang.StringIndexOutOfBoundsException: Index 49 out of bounds for length 49
swl = Subject)
//copy to [1. =
.java.lang.StringIndexOutOfBoundsException: Range [24, 19) out of bounds for length 36
Ereignisse.PasteFromClipboard;
ereignisse.SelStart{---------------------------------}
ereignisse.sl;
Ereignisse.. java.lang.StringIndexOutOfBoundsException: Range [45, 44) out of bounds for length 45
if DoUnderline then
..: java.lang.StringIndexOutOfBoundsException: Range [50, 49) out of bounds for length 86
if VeryImportant then
Ereignisse.java.lang.StringIndexOutOfBoundsException: Range [21, 20) out of bounds for length 21
else
Ereignisse.SelAttributesS:'java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 14
ereignisse.SelStart := :0java.lang.StringIndexOutOfBoundsException: Range [20, 19) out of bounds for length 24
wl
Ereignisse.SelAttributes.Color := clGreen;
ereignisse.SelStart := st+sl;
Clipboard.AsText :=end
Ereignisse.PasteFromClipboard;
Ereignissee;
end;{Event}
----------java.lang.StringIndexOutOfBoundsException: Index 68 out of bounds for length 68
{- Procedure GetEvents -}
{- for to look up Events -}
{-----------------------------
Procedure TMainForm1.GetEvents I:java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13
Type
TRecord = record
case boolean of
true : (a : LAppoint);
false
java.lang.StringIndexOutOfBoundsException: Range [40, 39) out of bounds for length 40
;
end;
Var
Trec : TRecord;
Diff : integer;
java.lang.StringIndexOutOfBoundsException: Index 41 out of bounds for length 17
YearDays : integer;
S : String;Errors:boolean;
procedure addeventtype;
varin:oolean
begin
i:=1;found := false;n:=1;
while s =Items.;
if eventtypes[i]='' then begin n := i; found := true end;
i:=i+1;
end;
found:=falseListItemAdd[].)java.lang.StringIndexOutOfBoundsException: Index 42 out of bounds for length 42
for i:=1 to n do
if EventTypes[i]=All[AllCount].Typ then
found: true;
fjava.lang.StringIndexOutOfBoundsException: Range [9, 8) out of bounds for length 36
EventTypes[n] := all[allcount].;
end
end;
begin
EventFound := false; Errors:------------------------------}
if FileExists(Datei) then begin
AssignFile(Events,Datei);
try
Reset)
end
IOResult=0then
begin
TRec.With ThisTime java.lang.StringIndexOutOfBoundsException: Range [17, 18) out of bounds for length 17
TRec.c.b.Day := Greeting := D_GutenMorgen Optlang
TRec.c.b.Year := Blank4;
TREc.
TRec.c.b.Who := Blank36;
TRec.c.b.Wish := Blank36Greeting1] :=UpCaseGreeting[1];
TRec.c.b.Picture :=S1 =java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19
TRec.c.b.java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 15
TRec..bDone:= java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34
TRec.c.b.Repeats := Blank28;
java.lang.StringIndexOutOfBoundsException: Index 48 out of bounds for length 35
while not Eof
begin
try
Readln(Events,TRec.aS3 =StringReplace(3'm,Opt] )
if TRec.c.bS1 =S1 ','D_Heute[lang]' '+_Ist[lang+''
ShouldPutEvents:=true;
end;
java.lang.StringIndexOutOfBoundsException: Range [17, 16) out of bounds for length 32
AllCount:=AllCount ;
if := S2 + ' '+D]';
S := D_OutofMem[Opt.lang] +' >'
java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 12
+java.lang.StringIndexOutOfBoundsException: Range [33, 32) out of bounds for length 43
. java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
All[AllCount] := TRec.c.b;
[=Remote
AddeventType;
Goal.Year := ThisTimejava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
YearDays := 365;
and not (ThisTime.Year
YearDays := 366;
------------------------
if abscurrentm,lind integer
Diff := abs(Diff) - YearDays;
)
(AllCount, Diff);
TRec.c.b.Month (readland(Pos'S>)and'>,>)
TRec.c.b.Day := Blank2;
TRec.c.
TREc.c.b.Typ := varStringC;
...Who: java.lang.StringIndexOutOfBoundsException: Range [38, 37) out of bounds for length 38
if C='>java.lang.StringIndexOutOfBoundsException: Range [19, 20) out of bounds for length 19
TRec.c.b.Picture :=
.. java.lang.StringIndexOutOfBoundsException: Range [37, 36) out of bounds for length 37
TRec.c.b.Done IOResult> 0 java.lang.StringIndexOutOfBoundsException: Range [26, 25) out of bounds for length 31
TRec.c.b.Repeats := Blank28;
TRec. CreateD_IncorrectOpt.)
TRec.c.b.Remote :java.lang.StringIndexOutOfBoundsException: Range [15, 14) out of bounds for length 17
;
CloseFile(Events)
end;
end;
Asjava.lang.StringIndexOutOfBoundsException: Range [14, 13) out of bounds for length 49
(java.lang.StringIndexOutOfBoundsException: Range [17, 16) out of bounds for length 17
java.lang.StringIndexOutOfBoundsException: Range [3, 13) out of bounds for length 10
All[1].Month := '05';
All[1 EFileInvalid.Create(D_TooMany[Opt.lang]);
[.=''
strpcopy(@All[1].Typ,D_Firstof[Opt(_[)java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 27
strpcopy(@All[ (;
strpcopy(@All[1].Wish,D_WantsFree[Opt.lang]);
All[1].Remote := RemoteMarkcurrentm]:S
:0todo
end;
end; java.lang.StringIndexOutOfBoundsException: Range [11, 10) out of bounds for length 14
{--------------------------java.lang.StringIndexOutOfBoundsException: Range [23, 22) out of bounds for length 33
{- ;
{-----------------------------RWscurrent;
Procedure TMainForm1.RWs(current];
const eoln=chr(13)+chr(10);
type pmem=^mem;
array0.] ;
Var
i,j,k:integer;
S:String;pch:pmem;
Eout:Textfile;
begin
if ([;
Eout,java.lang.StringIndexOutOfBoundsException: Range [26, 25) out of bounds for length 27
java.lang.StringIndexOutOfBoundsException: Range [6, 7) out of bounds for length 6
Rewriteijava.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29
for i:=1 tojava.lang.StringIndexOutOfBoundsException: Range [19, 18) out of bounds for length 29
if All[i].Remote = (D_Alarmzeit[current
S:='';
Pch:=@All[i];k:=sizeof(All[java.lang.StringIndexOutOfBoundsException: Range [5, 36) out of bounds for length 35
for j[(_OKjava.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 24
begin
Write(Eout,Pch^[j]);
end;
Writeln(Eout);
end
end;
CloseFile(Eout);
finally
end;
end;{PutEvents}
{-----------------------------D_LangEditcurrentjava.lang.StringIndexOutOfBoundsException: Index 30 out of bounds for length 30
{- Procedure Fill List(_[)
{- fill RWs(D_Who[cur
{- (_;
RWs([]java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28
java.lang.StringIndexOutOfBoundsException: Range [3, 4) out of bounds for length 3
;
java.lang.StringIndexOutOfBoundsException: Range [22, 21) out of bounds for length 22
begin
java.lang.StringIndexOutOfBoundsException: Range [8, 4) out of bounds for length 32
begin
Parent=;
Align := alClient;
ViewStyle := vsReport;
Listview1.Columns[0].Caption := 'D_SehrSchlechtcurrent)
java.lang.StringIndexOutOfBoundsException: Range [14, 13) out of bounds for length 57
Listview1.Columns[ ;
Listview1.Columns[3].Caption :=(java.lang.StringIndexOutOfBoundsException: Index 30 out of bounds for length 30
Listview1.Columns[4].Caption := java.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26
D_SendeMorsecurrent)java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32
Listview1D_Filler6java.lang.StringIndexOutOfBoundsException: Range [27, 26) out of bounds for length 29
Listview1.Columns[7].java.lang.StringIndexOutOfBoundsException: Range [8, 1) out of bounds for length 30
Listview1.Columns[8].Caption := D_Picture[Opt (java.lang.StringIndexOutOfBoundsException: Range [43, 42) out of bounds for length 55
[. =java.lang.StringIndexOutOfBoundsException: Range [44, 43) out of bounds for length 54
Items.Clear;
for I 1java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 14
begin
ListItem := Items.Add;
ReleaseDC(0,java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19
ListItem.SubItems
java.lang.StringIndexOutOfBoundsException: Range [10, 9) out of bounds for length 35
Add(*
ListItemA([Month)java.lang.StringIndexOutOfBoundsException: Index 42 out of bounds for length 42
ListItem.SubItems.Add(All[I].Day);
ListItem.SubItems.Add(trim(All[i].java.lang.StringIndexOutOfBoundsException: Index 41 out of bounds for length 31
java.lang.StringIndexOutOfBoundsException: Range [21, 20) out of bounds for length 31
.I.java.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for length 40
ListItem.SubItems.Add(All[I].Wish);
ListItem.SubItems.Add(All[I].Picture);
ListItem.SubItems.Add(All[I].Email);
end;
end;
ListView1.ItemFocused .Checked E
;
{---------------------------------
{- procedure Greetings java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
-produce-}
{--------------not java.lang.StringIndexOutOfBoundsException: Index 61 out of bounds for length 61
procedure TMainForm1.Greetings ;
var,S2,S3:String
begin
java.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 6
begin
if Hour < 12 then
Greeting :java.lang.StringIndexOutOfBoundsException: Range [17, 6) out of bounds for length 6
else if Hour < 18 then
Greeting := D_GutenTag[Opt.lang]
else
Greeting=java.lang.StringIndexOutOfBoundsException: Range [35, 31) out of bounds for length 46
Greeting[1] := UpCase(Greeting[ PCharD) valeurpositiveindique java.lang.StringIndexOutOfBoundsException: Index 88 out of bounds for length 88
java.lang.StringIndexOutOfBoundsException: Range [17, 16) out of bounds for length 21
S3 := D_DFormats[Opt.lang];
case Day of
1: S3 := StringReplace:charS;
2::java.lang.StringIndexOutOfBoundsException: Range [13, 12) out of bounds for length 13
3: S3 := StringReplace(S3,' :0 mjava.lang.StringIndexOutOfBoundsException: Range [18, 19) out of bounds for length 18
else
S3 :=PrintEventFile(Sender ;
end
;
S3 := java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 17
S3 := StringReplace(S3,'%y', inttostr(Year),[rfReplaceAll ]);
S1 := S1 + ', '+D_Heute[Opt.lang]+' '+D_Ist[Opt.lang]+' '+
D_Days[Opt.lang,WeekDay-1]+' ';
S1 := S1 + S3+'.';
S2 := D_Jetztist[Opt.lang]+' ';
S2[1] := UpCase(S2[1]);
if Hour = 1 then
S2 := S2 + D_Ein[Opt.lang]+' '
else
S2 := S2 +inttostr(Hour);
S2 := S2 + ' '+D_Uhr[Opt.lang]+' ';
if Minute <> 0 then
S2 := S2 + inttostr(Minute)+'.'
else
S2 := S2 +'.';
end;
Speech(S1);
Speech(S2);
//clear previous lines
Ereignisse.SelectAll;
Ereignisse.DefAttributes.Color := clRed;
Ereignisse.CutToClipboard;
//copy to editor
Clipboard.AsText := S1+crlf+S2+crlf+crlf;
ereignisse.SelStart :=0;
Ereignisse.PasteFromClipboard;
end; {Greetings}
{------------------------------------------------------------------}
{- GetLanguages -}
{------------------------------------------------------------------}
procedure TMainForm1.GetLanguages;
begin
LangsDir := readl;
IOLanguages
end;
{------------------------------------------------------------------}
{- GetLanguages -}
{------------------------------------------------------------------}
procedure TMainForm1.PutLanguages;
begin
LangsDir := writel;
IOLanguages
end;
{------------------------------------------------------------------}
{- GetLanguages -}
{------------------------------------------------------------------}
procedure TMainForm1.IOLanguages;
var
S,St : String;
lnr, current,m,d,ind,lind : integer;
procedure Check(var S:String);
begin
try
if Langsdir=readl then begin
readln(Langs,S);
S:=Trim(S);
end
else
writeln(Langs,S);
finally
end;
if (IOResult >= 0) and (S > '') then begin
lnr :=lnr+1;
Str(lnr,St);
if (Langsdir=readl) and not ((Pos('<',S)>0) and (Pos('>',S)>0)) then
raise EFileInvalid.Create(St+D_Incorrect[Opt.lang]+S)
end
else
raise EFileInvalid.Create(St+D_Incorrect[Opt.lang]+S);
end ;
procedure RWs(var S:String);
var T:String;C:Char;
begin
if Langsdir=writel then begin
T:=Tokens.Keys[ind];
C:=T[Length(T)];
if C='>' then
T:=T+'.'+inttostr(lind);
S:=Tokens.Cells[1,ind];
end;
Check(T);
try
If Langsdir=readl then readln(Langs,S) else writeln(Langs,S);
finally
end;
S:=Trim(S);
if (IOResult >= 0) then begin
lnr :=lnr + 1;
St := S;
Str(lnr,St);
if Pos('<',S) > 0 then
raise EFileInvalid.Create(St+D_Incorrect[Opt.lang]+S);
// insert to value editor
if (Langsdir=readl) then
Tokens.InsertRow(T,S,true);
ind := ind+1;
lind:=lind+1;
end;
end ;
begin
ind:=1;lind:=0;
Tokens.TitleCaptions[0]:=D_Lexem[Opt.lang];
Tokens.TitleCaptions[1]:=D_Wertinakt[Opt.lang];
AssignFile (Langs,Opt.ProgramDir+SprachDatei);
try
if LangsDir=readl then
Reset(Langs)
else begin
Rewrite(Langs);
end;
finally
end;
lnr:= 1;
S:=inttostr(nolanguages);
RWs(S);
TryStrToInt(S,nolanguages);
if nolanguages > langmax then
raise EFileInvalid.Create(D_TooMany[Opt.lang]);
for current := 1 to nolanguages do
begin
lind := 1;
RWs(D_Langs[current]);
RWs(D_Foreign[current]);
RWs(D_DFormats[current]);
RWs(D_Syntax[current]);
RWs(D_40th[current]);
for m:=1 to 12 do begin
if langsdir=writel then S := D_Months[current,m] else s:='';
RWs(S);
if langsdir=readl then
D_Months[current,m] := S;
end;
for d=0 to dobegin
if langsdir=writel then java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 13
RWs(S);
if langsdir=readl then
D_Days[current,d] := S;
end;
java.lang.StringIndexOutOfBoundsException: Range [15, 14) out of bounds for length 21
RWs(D_GutenMorgen[current]);
RWs(D_GutenAbend[current]);
RWs(D_GutenTag[current]);
RWs(D_Jetztist[current]);
RWs(D_Und[current]);
RWs(D_Hat[current]);
RWs(D_Haben[current]);
RWs(D_Hatte[current]);
RWs(D_Hatten[current]);
RWs(D_wirdhaben[current]);
[;
RWs(D_Gestern[current]);
RWs(D_Heute[current]);
RWs( TMainForm1(java.lang.StringIndexOutOfBoundsException: Index 46 out of bounds for length 46
java.lang.StringIndexOutOfBoundsException: Range [4, 3) out of bounds for length 4
RWs(D_Vor[current]);
RWs(D_Ereignis[current]);
RWs(D_Geburtstag[current]);
RWs(D_Hochzeitstag[current]);
RWs(D_Namenstag[current]);
RWs(D_Jubilaeum[current]);
java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 28
RWs(current];
RWs(D_Dritten[current]);
RWs(D_Ist[current]);
RWs(D_Erste[current]);
RWs(D_Zweite[current]);
RWs(D_Dritte[current]);
RWs(D_Ein[current]);
RWs(D_Uhr[current]);
RWs(D_Stehtan[current]);
RWs(D_Wirklich[current]);
RWs(D_Geaendert[current]);
RWs(D_Status[current]);
RWs(D_Neu[current]);
RWs(D_Aendern[current]);
D_Sicherncurrent;
RWs(D_Loeschen[current]);
RWs(];
RWs(D_Importieren[current]);
RWs(D_Drucken[current]);
RWs(D_Ende[finally
RWs(D_Optionen[current]);
RWs(D_Sprache[current]);
RWs(D_Alarmzeit[current] Destroy;
RWs(D_Font[current]);
RWs(D_Hilfe[current]);
RWs(D_Ueber[current]);
RWs(D_Wunschzeit[current]);
RWs(D_Wunschsprache[current]);
RWs(D_Wuenschtsich[current]);
RWs(D_Wuenschensich[current]);
RWs(D_Am[current]);
RWs(D_OK[current]);
RWs(D_Finde[current]);
RWs(D_Abbrechen[ Ereignisse.Visible ;
RWs(_infuegen[];
// and Size of Font
RWs(D_leise[current]);
RWs(D_Sprecher[current]);
RWs(D_Sprachausgabe[current]);
RWs(D_Klaenge[current] if Fontsize.Text>'' then
RWs(D_setzeFett[current]);
RWs(D_setzeSchrift[current]);
RWs[.ang;
RWs(D_setzeItalic[current]);
RWs(D_setzeUnterstrichen[current]);
RWs(D_aendereEreignis[current]);
RWs(D_Ereignissedrucken[current]);
RWs(D_loescheEreignis[current]);
RWs(D_neuesEreignis[current]);
RWs(D_setzeSprache[current]);
RWs(D_Warum[current]);
RWs(D_ListEdit[current]);
RWs(D_LangEdit[current]);
RWs(D_Lexem[current]);
RWs(D_Wertinakt[current]);
RWs(D_Month[current]);
RWs(D_Day[current]);
RWs(D_Year[current]);
RWs(D_Who[current]);
RWs(D_Typ[current]);
RWs(D_Wish[current]);
RWs(D_Picture[current]);
RWs(D_Select[current]);
RWs(D_Emaileingeben[current]);
RWs[current];
RWs(D_OutofMem[Netzwerk.Caption :=D_Netzwerk[Opt.java.lang.StringIndexOutOfBoundsException: Range [53, 52) out of bounds for length 54
RWs(D_Firstof[current]);
RWs(D_Everyone[current]);
RWs(D_WantsFree[current]);
RWs(D_Incorrect[current]);
RWs(D_TooMany[current]);
RWs(S);strpcopy(@D_NotImpl[current],S);
(S);strpcopy(@D_Parameter[current],S);
RWs(D_SoundFiles[current]);
RWs(D_SprachTexte[current]);
RWs(D_EndeZeit[current]);
RWs(D_Warnemich[current]);
RWs(D_Geschwindigkeit[current]);
RWs(D_SprecherTest[current]);
RWs(D_UhrzeitStart[current];
RWs(D_Spende[current]);
RWs(D_SehrGut[current]);
WsD_Gut[current]);
RWs(D_Befriedigend[current]);
RWs(D_Ausreichend[current:.Hint:= _loescheEreignis[ptlang];
RWs(D_Schlecht[current]);
RWs(D_SehrSchlecht[current]);
RWs(D_Name[current]);
RWs(D_Vorname[ ButtonNew.Hint .Hint:= D_neuesEreignis[Opt.lang];
RWs(D_Urteil[current]);
RWs(D_Kommentar[current]);
RWs(D_Senden[current]);
RWs(D_Abbruch[current]);
RWsD_Email[current);
RWs(D_NoInternet[current]);
java.lang.StringIndexOutOfBoundsException: Range [17, 8) out of bounds for length 28
RWs(D_Herzlichen[current]);
RWs(D_Glueckwunsch[current]);
RWs(D_von[current]);
RWs(D_zum[current]);
RWs(D_Netzwerk[current]);
RWs(D_Verzeichnis[current]);
RWs(D_Uebertragen[current]);
RWs(D_Server[current]);
RWs(D_User[current]);
RWs[current);
RWs(D_Feedback[current]);
RWs(D_Postamt[current]);
RWs(D_SendeMorse[current]);
RWs(D_Filler4[current]);
RWs(D_Filler5[current]);
RWs(D_Filler6[current]);
RWs(D_Filler7[current]);
RWs(D_Filler8[current]);
RWs(D_Filler9[current]);
RWs(D_Filler10[current]);
RWs(D_Filler11[current]);
end;
if (LangsDir=readl) and not eof(Langs) then
raise EFileInvalid.(IncorrectOpt.lang]) ;
CloseFile(Langs);
end;
{------------------------------------------------------------------}
{- Delphi generated procedures -}
{------------------------------------------------------------------}
Canclose := true;
FontType: Integer; Data: Pointer): Integer; stdcall;
begin
TStrings(Data).Add(LogFont.lfFaceName);
Result := 1;
end;
procedure TMainForm1.GetFontNames;
var
DC: HDC;
begin
DC := GetDC(0);
EnumFonts(DC, nil, @EnumFontsProc, Pointer(FontName.Items));
ReleaseDC(0, DC);
end;
{ Event Handlers }
procedure TMainForm1.ForeignLocale;
const
ENGLISH = (SUBLANG_ENGLISH_US shl 10) or LANG_ENGLISH;
GERMAN = (SUBLANG_GERMAN shl 10) or LANG_GERMAN;
FRENCH = (SUBLANG_FRENCH shl 10) or LANG_FRENCH;
SPANISH = (SUBLANG_SPANISH shl 10) or LANG_SPANISH;
ITALIAN = (SUBLANG_ITALIAN shl 10) or LANG_ITALIAN;
PORTUGAIS = 1046;
begin
and Mouse.CursorPos.y< MainForm1.Top+MainForm1.Height)
case SysLocale.DefaultLCID of
SPANISH: Opt.lang := 5;
ENGLISH: Opt.lang := 2;
FRENCH: Opt.lang := 3;
GERMAN: Opt.lang := 2;
ITALIAN: Opt.lang := 4;
java.lang.StringIndexOutOfBoundsException: Range [25, 15) out of bounds for length 31
else Opt.lang := 1;
end;
GetFormatSettings;
if D_Foreign[opt.lang] = 'fareast' then SysLocale.FarEast := true;
if SysLocale.MiddleEast := ;
if Screen.Imes.Count>0 then Ereignisse.ImeName := Screen. LastVoiceThread<>nil then LastVoiceThread.Terminate;
end;
procedure TMainForm1.NetzwerkClick(Sender: TObject);
begin
Opt.EditCommon := not Opt.EditCommon;
Netzwerk.Checked := Opt.EditCommon;
if Opt.EditCommon and (Opt.CommonDir='') then Verzeichnis1Click(Sender);
if Opt.EditCommon then RemoteMark := CommonEvent else RemoteMark := LocalEvent;
end;
Procedure TMainForm1.GetAgendaDirectories;
var Drive:String;
begin
Opt.LocalDir := GetEnvironmentVariableprocedure TMainForm1.(Sender TObject; Button: TMouseButton
notDirectoryExists(LocalDir) java.lang.StringIndexOutOfBoundsException: Index 59 out of bounds for length 59
if not CreateDir(ExtractFileDir(Opt.LocalDir)) then begin
java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 0
ExitProcess(55)
end;
if Not DirectoryExists(Opt.LocalDir) then begin
TLabelSender.Left: TLabelS).+XFDragOfs
end;
if java.lang.StringIndexOutOfBoundsException: Index 8 out of bounds for length 0
if java.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 5
showmessageD_Langsi> 'then
ExitProcess(55)
end;
if Not DirectoryExists(Opt.LocalDir) then begin
Opt.LocalDir := 'C:' + '\';
java.lang.StringIndexOutOfBoundsException: Range [39, 6) out of bounds for length 6
if not DirectoryExists(: .Fontname
if not CreateDir(ExtractFileDir(Opt.java.lang.StringIndexOutOfBoundsException: Index 48 out of bounds for length 37
showmessage('Cannot create Home Directory');
ExitProcess(55)
end;
// compatibility with old version
Drive := ExtractFileDrive(Opt.ProgramDir);
case()) of {unevaleur positiveindique java.lang.StringIndexOutOfBoundsException: Range [87, 86) out of bounds for length 88
DRIVE_REMOVABLE: opt.EditCommon:=true;
java.lang.StringIndexOutOfBoundsException: Range [20, 16) out of bounds for length 21
DRIVE_CDROM: ;
java.lang.StringIndexOutOfBoundsException: Range [19, 18) out of bounds for length 21
DRIVE_REMOTE: opt.true;
end;
Opt.CommonDir := '';
end;
function move(var java.lang.StringIndexOutOfBoundsException: Range [15, 14) out of bounds for length 51
var i,m:integer;
S:String;
begin
m := length(a)-1;
S:='';
for i:=0 to m do
S := S + ajava.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5
move := S
end;
procedure TMainForm1.PrintEventFile(Sender: TObject);
var
i:integer;
procedure Insert;
begin
+length(.;
ereignisse.PasteFromClipboard;
ereignisse.DV Opt.larmzeit
th : ClipboardAsText;
end;
begin
if PrintDialog.Execute then begin
Clipboard.Clear;
Ereignisse.Clear;
Ereignisse.SelAttributesS;
Ereignisse.DefAttributes.Name := 'FixedSys';
Ereignisse.SelAttributes.Color := Opt.FontColor.Waittime;
: opt.FontStyles;
Clipboard.AsText := D_PrintHead[Opt.lang]+Crlf;
Insert;
Clipboard.AsText :=
'----------------------------------------------'
+---------------------------
+'------------------- '+Crlf;
Insert;
java.lang.StringIndexOutOfBoundsException: Index 42 out of bounds for length 27
begin
java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 11
Insert;
Clipboard.AsText := All[i].Year+' ';
insert;
Ereignisse.DefAttributesjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
Clipboard.AsText := All[i]java.lang.StringIndexOutOfBoundsException: Range [32, 16) out of bounds for length 16
insert;
Ereignisse.DefAttributes.Color := clBlack;
ClipboardAsText: Alli.'+[i.java.lang.StringIndexOutOfBoundsException: Range [53, 52) out of bounds for length 58
insert;
end;
Ereignisse.Print(D_Stehtan[Opt.lang]);
Ereignisseif i] '
;
FormPaint(Sender);
end
end;
procedure TMainForm1/ timermeanwhile
begin
Close;
end;
procedure TMainForm1.EditUndo(Sender: TObject);
egin
with Ereignisse do
if HandleAllocated then SendMessage(Handle, EM_UNDO, 0,.java.lang.StringIndexOutOfBoundsException: Range [18, 17) out of bounds for length 18
end;
procedure TMainForm1.EditCut(Sender: TObject);
begin
Ereignisse.CutToClipboard;
java.lang.StringIndexOutOfBoundsException: Range [4, 3) out of bounds for length 4
procedure TMainForm1.EditCopy(Sender;
begin
CopyToClipboard
end;
procedure TMainForm1.EditPaste(Sender: TObject);
begin
Ereignisse.PasteFromClipboard;
end;
procedure TMainForm1.HelpAbout(Sender: TObject);
begin
java.lang.StringIndexOutOfBoundsException: Range [27, 10) out of bounds for length 41
with AboutBox do
try
AboutBox.Label1.Caption := AppName+' '+java.lang.StringIndexOutOfBoundsException: Index 46 out of bounds for length 20
AboutBox.Caption := D_Ueber[Opt.lang];
AboutBox.OKButton.Caption := D_OK[Opt.lang];
// kill timer meanwhile
StopTimer(sender);
ShowModal;
java.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 9
StartTimer(Sender)
end;
AboutBox.Destroy;
end;
procedure TMainForm1.FontChangeSoundsBox := TSoundsBox.Create(Self);
begin
tokens.Visible OKButton.: java.lang.StringIndexOutOfBoundsException: Range [44, 43) out of bounds for length 54
.Visible java.lang.StringIndexOutOfBoundsException: Index 46 out of bounds for length 46
Ereignisse.Visible := true;
if (Sender=FontSize) then begin
// Name and Size of Font
// Achtung: Fehler in Delphi 7 ?????
if strtoint(Fontsize.text) <> opt.FontSize Filter = lang]'*java.lang.StringIndexOutOfBoundsException: Range [70, 69) out of bounds for length 72
Fontsize. 0'then begin
SoundsBox.Edit2.text := Opt.SoundFile[SongofJoy];
.Size:= fontsize.java.lang.StringIndexOutOfBoundsException: Index 65 out of bounds for length 65
end;
end
end
else if sender=fontname then begin
Ereignisse.DefAttributes.=
Fontname =FontName.[Ijava.lang.StringIndexOutOfBoundsException: Range [74, 73) out of bounds for length 75
end
else begin
if UnderlineButton.Down then Ereignisse.DefAttributesjava.lang.StringIndexOutOfBoundsException: Range [11, 10) out of bounds for length 53
DefAttributesStyle java.lang.StringIndexOutOfBoundsException: Range [57, 56) out of bounds for length 93
if BoldButton.Down then Ereignisse.DefAttributes.Style (Sender
elsejava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
if ItalicButton.Down then Ereignisse.DefAttributes.Style := Ereignisse.DefAttributes.Style + [fsItalic]
else Ereignisse.DefAttributes. .java.lang.StringIndexOutOfBoundsException: Range [19, 18) out of bounds for length 32
Opt.fontStyles := ereignisse.DefAttributes.Style;
end;
endjava.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
TMainForm1LanguageChangeTObject;
var i:integer;
begin
for i:=1 to nolanguages do
if LanguageBox.Items [LanguageBox.ItemIndex] = D_Langs[i]ifjava.lang.StringIndexOutOfBoundsException: Range [21, 20) out of bounds for length 39
Opt.lang := i;
MenuLanguageChange(Sender);
Repaint;
Opt.lang := LanguageBox.ItemIndex +1;
FormPaint(Sender);
end;
procedure TMainForm1.MenuLanguageChange(Sender: TObject);
begin
MainForm1.Opt.CommonDir='
FileMenu java.lang.StringIndexOutOfBoundsException: Range [16, 15) out of bounds for length 31
EventNewItem.Caption := D_Neu[Opt.lang];
EventChangeItem.Caption := D_Aendern[Opt.java.lang.StringIndexOutOfBoundsException: Index 51 out of bounds for length 50
EventDeleteItem.Caption := D_Loeschen[Opt.lang Voice thenOpt=1,.)java.lang.StringIndexOutOfBoundsException: Index 61 out of bounds for length 61
PrintEvents.Caption := D_Drucken[Opt.lang]+ ' ' + D_Ereignis[Opt.lang];
PrintAllEvents.Caption := D_EreignisseDrucken[Opt.lang];
EventExitItem.Caption := D_Ende[Opt.lang];
Editmenu.CaptionOpt:.java.lang.StringIndexOutOfBoundsException: Index 43 out of bounds for length 43
Language.java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 4
Alarmzeit.procedure ListView1KeyDown( var Key ;
Sprachausgabe2.Caption := D_Sprachausgabe[Opt.lang];
Klnge1.Caption := D_Klaenge[Opt.lang];
MiEditFont.Caption := D_Font[Opt.lang];
HelpMenu.Caption := D_Hilfe[Opt.lang];
Hilfe1.Caption := D_Hilfe[Opt.lang];
DonateItem.Caption := D_Spende[Opt.lang];
HelpAboutItem. java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5
Netzwerk.Caption := D_Netzwerk[Opt.lang];
Verzeichnis.Caption := D_Verzeichnis[Opt.lang];
Postamt.Caption := D_Postamt[Opt.lang];
BoldButton.Hint := D_setzeFettjava.lang.StringIndexOutOfBoundsException: Range [4, 3) out of bounds for length 4
FontName.Hint := D_setzeSchrift[Opt.lang];
FontSize.Hint := D_setzeGroesse[Opt.lang];
ItalicButton.Hint := D_setzeItalic[Opt.lang];
UnderlineButton.Hint := D_setzeUnterstrichen[OptVisible :true;
ButtonChange.Hint := D_aendereEreignis[Opt.lang];
PrintButton.Hint := D_Drucken[Opt.lang]+' '+D_Ereignis[Opt.lang];
ButtonDelete.Hint :/ kill timer
ButtonNew.Hint := D_neuesEreignis[Opt.lang ShowModal;
LanguageBox.Hint := D_setzeSprache[Opt.lang];
VoiceBox.Hint := D_setzeSprecher[Opt.lang];
UtilitiesEnumVoicesOptVoice,_Optlang]oiceBox;
Sprachtextendern1.Caption := D_SprachTexte[Opt.procedure.S: ;
end;
procedure TMainForm1Tokens. : java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37
var SaveResp:integer;
begin
ShouldPutEvents
PutAllEvents;
PutOptions;
CanClose := true;
if Opt.WarnMe then begin
SaveResp := MessageBox(WindowHandle,
PChar(D_Stehtan[Opt.lang]),
PChar(Application.title),
MB_YESNO);
case SaveResp of
IDYES : Canclose := true;
IDNO : begin
Canclose :=
Sender;
LastMouseTime := Now
end
java.lang.StringIndexOutOfBoundsException: Index 8 out of bounds for length 8
CanClose := false
end;
end
else if (Mouse. Editor.ScrollBar1.Position := java.lang.StringIndexOutOfBoundsException: Range [46, 45) out of bounds for length 61
and (Mouse.CursorPos.y <= java.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for length 23
and (Mouse.CursorPos.x >= MainForm1.left)
and (Mouse.CursorPos.x <= MainForm1.endelse
CanClose := false;
if CanClose then begin
if LastMorseThread<>nil then LastMorseThread.Terminate;
if LastSoundThread<TMainForm1EventEditjava.lang.StringIndexOutOfBoundsException: Range [38, 37) out of bounds for length 48
if LastVoiceThread<>nil then LastVoiceThread.Terminate;
if Timer1<>nil then Timer1.Enabled:=false;
end;
end;
{ java.lang.StringIndexOutOfBoundsException: Range [6, 3) out of bounds for length 61
procedure TMainForm1.RulerItemMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
FDragOfs := (TLabel(java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 25
TLabel(Sender).Left := TLabel(java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 19
FDragging := True;
end;
procedure TMainForm1.RulerItemMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
if
varS:java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29
end;
procedure TMainForm1.FormShow(Sender: TObject) :integer; : Length Si]=hrord(Si)7;end
var i:integer;
beginjava.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5
// wird nur bei just started java.lang.StringIndexOutOfBoundsException: Range [2, 1) out of bounds for length 21
//acoustical part
for i:=1 to nolanguages do
if Absenden.Caption := D_OK[opt.lang];
LanguageBox.Items. Verwerfen.:D_Abbruchjava.lang.StringIndexOutOfBoundsException: Range [40, 39) out of bounds for length 46
LanguageBoxUserText: .
. =.Email
/size
Fontname.Text := opt.Fontname;
UpDown1.Position := opt.FontSize;
Text:Opt.java.lang.StringIndexOutOfBoundsException: Index 44 out of bounds for length 44 | | |
