java.lang.StringIndexOutOfBoundsException: Index 8 out of bounds for length 0
To,ShellApi, ,
DBXpress,Feedback, Grids,ValEdit reThreads
reLang java.lang.StringIndexOutOfBoundsException: Range [47, 46) out of bounds for length 77
,ActnList, Utilities
DBXpress, DB-----------------------------
angreAbout ,java.lang.StringIndexOutOfBoundsException: Range [48, 46) out of bounds for length 77
IdTCPClient, IdExplicitTLSClientServerBase, IdMessageClient, IdSMTPBase,
Maildata, IdSMTP, WideStrings
java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 2
{- java.lang.StringIndexOutOfBoundsException: Range [18, 12) out of bounds for length 23
-Type = Ereignis;
{-------------------------------} Const=';
AppNamejava.lang.StringIndexOutOfBoundsException: Range [18, 10) out of bounds for length 29
Version RR;
SubVersion
java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
=;
EreignisDatei = 'Ereignis.Dat';
ObjectFile = 'agenda.exe';
OptionsDatei = 'options.Dat';
SprachDatei = 'language.dat';
ATCommand = 'atcmd.bat';
KennungsDatei = 'kennung.dat';
SoundsDir = 'Sounds';
ImageDir 128
Char32 1. of;
CommonEvent =.36] char
Type
[0.] java.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 38
= ..] ofjava.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37
Char28 = array[ 1.] char
Char36 = array[1..36] ofchar;
Char72 = array[Hour ..23;
..java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
array[.langmax String
=[..o java.lang.StringIndexOutOfBoundsException: Index 45 out of bounds for length 45
Date = Char2
: . 59java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
Hour 0..23
: 1.;
WeekDay: 0 .. 6;
MonthTyp ;
Year : -2200 .. 2200; end;
java.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for length 40
Wish:Char36
:Char2;
Fill1 :Picture: // 244 danach
java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
BC:char;
Year : Char4;
Fill3 : char;
Typ :Char32;
Fill4 : charFill9 :
java.lang.StringIndexOutOfBoundsException: Range [0, 9) out of bounds for length 8
java.lang.StringIndexOutOfBoundsException: Index 10 out of bounds for length 0
Wishlang:integer
Fill6 : Char4; 44
Fill7 : Char4;
Remote: Char2
Fill8 :integer;
: /
Repeats : Char28; // every, 1., 2., 3. etc
Fill9 : Char2; // 268 danach
java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
:java.lang.StringIndexOutOfBoundsException: Range [40, 39) out of bounds for length 40
TOptionjava.lang.StringIndexOutOfBoundsException: Range [30, 21) out of bounds for length 40
:java.lang.StringIndexOutOfBoundsException: Range [38, 37) out of bounds for length 38
lang : EmailString 12java.lang.StringIndexOutOfBoundsException: Index 43 out of bounds for length 43
SoundFile : array[ :boolean
java.lang.StringIndexOutOfBoundsException: Range [30, 24) out of bounds for length 40
:String32;
FontStyles : TFontStyles;
FontSize : integer;
:TColor;
width : integer;
height : integer;Buffer:String[200];
winpos : TPosition;
Top : integerjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
: ;
Voice : integer;
VoiceRate : integer;
WarnMe ;
WaittimePrintAllEventsTMenuItem
WakeTime : TMEnuItem;
java.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for length 40
LastRun N5:TMenuItem;
Vorname String;
ame String[4]java.lang.StringIndexOutOfBoundsException: Index 43 out of bounds for length 43
Alarmzeit:TMenuItem;
SecureEnd : String[12];
LocalDir :TMenuItem;
EditCommon : boolean;
CommonDir : String Sprachausgabe1 ;
PlayMorseCodes boolean;
java.lang.StringIndexOutOfBoundsException: Range [31, 23) out of bounds for length 44
SMTPUser : String[24];
UpdateVersion1: TMenuItem;
Buffer : String 200; end;
java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 27
MainMenu
FileMenu : TMenuItem;
UnderlineButtonjava.lang.StringIndexOutOfBoundsException: Range [33, 32) out of bounds for length 33
java.lang.StringIndexOutOfBoundsException: Range [20, 19) out of bounds for length 31
java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29
Verzeichnisjava.lang.StringIndexOutOfBoundsException: Range [16, 15) out of bounds for length 29
PrintAllEvents:TMenuItem
java.lang.StringIndexOutOfBoundsException: Range [29, 28) out of bounds for length 29
EditMenu :;
HelpMenu : TMEnuItem; procedure ;:;
SenderTObject;
;
java.lang.StringIndexOutOfBoundsException: Range [14, 13) out of bounds for length 50 procedure( Char36YearNum:integer;TypChar32EmailChar36I:nteger
N5: TMenuItem;
miEditFont: TMenuItem;
Ereignisse: TRichEdit;
StandardToolBar StringRM:;
ToolbarImagesjava.lang.StringIndexOutOfBoundsException: Range [14, 13) out of bounds for length 27
Language: TMenuItem;
:java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 24
:java.lang.StringIndexOutOfBoundsException: Range [25, 24) out of bounds for length 25
Hilfe1: java.lang.StringIndexOutOfBoundsException: Range [28, 27) out of bounds for length 45
N3: TMenuItem;procedure Klnge1Click(Sender: TObject);
Sprachausgabe1: TMenuItem;
VoiceBoxChange(ender )
TShiftState);
Klnge1: TMenuItem;
ListView1: TListView;
Feedback1: TMenuItem;
TTimer
: TValueListEditor;
N7: TMenuItem;
Sprachtextendern1: TMenuItem;
java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29
N8: TMenuItem;
java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 23
java.lang.StringIndexOutOfBoundsException: Range [14, 13) out of bounds for length 41
Fontsize: TEdit;
UpDown1: procedure TextEdijava.lang.StringIndexOutOfBoundsException: Range [34, 27) out of bounds for length 45
VoiceBox: TComboBox;
:TComboBox
java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 27
java.lang.StringIndexOutOfBoundsException: Range [14, 13) out of bounds for length 27
ButtonChange: TToolButton;
ButtonDelete: procedure UpdateVersion1Cl:TObject)java.lang.StringIndexOutOfBoundsException: Index 51 out of bounds for length 51
;
BoldButtonprocedureEreignisseMouseUp:TObject;Buttonjava.lang.StringIndexOutOfBoundsException: Index 70 out of bounds for length 70
ItalicButton
Shift;,Yjava.lang.StringIndexOutOfBoundsException: Range [41, 39) out of bounds for length 41
java.lang.StringIndexOutOfBoundsException: Range [27, 14) out of bounds for length 28
PrintEvents: TMenuItem;
DonateItem: TMenuItem;
SQjava.lang.StringIndexOutOfBoundsException: Range [23, 22) out of bounds for length 23
ToolButton1: DonateItemClick(java.lang.StringIndexOutOfBoundsException: Range [37, 36) out of bounds for length 47
java.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 8
ToolButton3: TToolButton;java.lang.StringIndexOutOfBoundsException: Range [25, 18) out of bounds for length 32
java.lang.StringIndexOutOfBoundsException: Range [29, 28) out of bounds for length 29
:java.lang.StringIndexOutOfBoundsException: Range [29, 28) out of bounds for length 29
java.lang.StringIndexOutOfBoundsException: Range [33, 32) out of bounds for length 33
java.lang.StringIndexOutOfBoundsException: Range [23, 11) out of bounds for length 34
li: TMenuItem;
Feedb:TFeedform;
MailDa:
N10: LastSoundThreadjava.lang.StringIndexOutOfBoundsException: Range [44, 43) out of bounds for length 44
SMTP: TIdSMTP;
Postamt: TMenuItem; procedure Sound1Click(Sender: TObject);
rocedure Voice1Click(Sender:TObject)java.lang.StringIndexOutOfBoundsException: Index 43 out of bounds for length 43 procedure liClick(Sender: TObject); procedure Verzeichnis1Click(Sender: TObject); procedure NetzwerkClick(ender:TObject))
{----------------------------- OptEditCommonthenPutEvents(Opt.EreignisDateiCommonEvent;
-java.lang.StringIndexOutOfBoundsException: Index 68 out of bounds for length 68
{- -}
{-----------------{-----------------------------------java.lang.StringIndexOutOfBoundsException: Index 68 out of bounds for length 68 procedure TMainForm1.FormCreate(Sender: TObject);
S:String;:nteger begin
Opt.ProgramDir =SysUtils.(+''
ound =true; // set Title
Application.Title := AppName+' '+java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5 //language processing //ForeignLocale;
getLanguages; //init last thread
LastSoundThread := nil;
LastVoiceThread := nil;
LastMorseThread := nil; // for SQ passord etc.
Crypt := LowerCase(AppNamefor:=todo EventTypes: ';
Passw := MidStr(LowerCase(AppName),2,3);
SQ.ParamsLoaded := false; //produce eventsGetEvents(pt.+reignisDatei,LocalEvent)java.lang.StringIndexOutOfBoundsException: Index 51 out of bounds for length 51
crlf[0] := chrif(ptCommonDir+EreignisDatei)then
crlf[1: (10)java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
crlfend; //disable onchange;
PPn: .nChange;FontName.OnChange:niljava.lang.StringIndexOutOfBoundsException: Index 49 out of bounds for length 49
PPs:= FontSize.OnChange;FontSize.OnChange:=nil; //edit boxes follow here
GetFontNames //end set options if LowerCase(ExtractFileName(Application.ExeName))<> ObjectFile then
Abort; //Application.OnIdle:= MyIdleHandler;
Application.: StartTimer
EventFound := if syslocale.MiddleEast then O. thenOpt.: middleeast'
=false
Opt.SoundFileMartinasGeburtstag = ChargeCavaleriewav' // initialization for i:= 1to2do Blank2[i] := ' '; for iOpt.Hochzeitstag] : 'Anyone.wav';
:1to28 Blank28[i] = 'java.lang.StringIndexOutOfBoundsException: Index 42 out of bounds for length 42 fori=132do Blank32[i]:=' '; for i:= 1to36do Blank36[i] := ' ';
120 do Blank120[i] := ' '; //builtin gimmicks
Current(ThisTime); //
LangsDir := OptFontSize = .Font.;
LastSearchText := '';
LastMousePosIn height:=300;
LastMouseTime := Now; //
Slept:=0; //create timer
Timer1.Enabled := True;
I : Waittime*1000;
Timer1.OnTimer := MyTimeHandler; // get acoustical voices
Utilities.EnumVoices(Opt.Voice,D_Leise OptVoice:=0;
OpenDialogOpt.WarnMe:=true;
SaveDialog.InitialDir := OpenDialog.InitialDir;Opt.Waittime: 45;// time until close of program // ----- here is getOptions --------------------
getoptions; //set voice index
VoiceBox.ItemIndex := Opt.Voice;
Opt.Last = Yesterday //command line parameters // close on too many invocations if ParamCount > 0thenbegin
s : ((1))java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34 if (Opt.LastRun = Now) and ( = ')then
Close; end; // set Mouse Pos
LastMousePos := Mouse.CursorPos; // set last run
Opt.LastRun := Now; //position and size
MainForm1.Position := Opt.winpos;
MainForm1:.;
MainForm1.Left := opt.Left;
MainForm1.Width := java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 18
MainForm1.Height := Opt.height; // file selector if Opt.EditCommon then RemoteMark := - set Opt.s
ShouldPutEvents := false; end;
{-------------------------------------begin
{- Procedure:=ProgramDirOptionsDatei;
{--}
{------------------------------------------------------------------}
TMainForm1.Sender: var ts, so:TSound; begin
Ereignisse.ReadOnly := false;
Netzwerk.Checkedendjava.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 9
Verzeichnis.Checked := Opt.CommonDir<>'';
Voice1.Visible : (Opts,);
CloseFile(Opts for so:=HappyBirthDay to DingDong except ifend
Sound1.Visible:= true; for (,)
SoundPlayed[ts] :=false;
VoiceSpoken := false; //now branch from visibility if Tokens.java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 9
Tokens.TitleCaptions[ DefaultOptions;
Tokens.TitleCaptions[1] := D_Wertinakt[Opt.lang]; endelseif <J ; endelseif ereignisse.Visible;GetOptjava.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 14
Ereignisse.Clear;
<> thenbegin
LastSoundThread.- store Opt.s -java.lang.StringIndexOutOfBoundsException: Index 68 out of bounds for length 68
LastSoundThread=nil; end;
Slept:=Mrocedure TMainForm1.PutOptions; // delete and create new timer if Timer1 <> nilthenbegin
timer1.Destroy;
timer1 := TTimer.Create(Mainform1); end;
Timer1.Enabled := True;
Timer1.Interval := Opt.Waittime*1000;
Timer1.OnTimer := MyTimeHandler;
Ereignisse.DefAttributes. := opt.;
Ereignisse.java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 5
DefAttributes. :=optFontSize;
Ereignisse.DefAttributes.Style : DeleteFile(Char());
Greetings; ifnot (SplashForm = nil) thenbegin
SplashForm.;
SplashForm := nil endjava.lang.StringIndexOutOfBoundsException: Index 8 out of bounds for length 8
= 0;
GetAllEvents; //get list of items
FillList; // Set Edit-Dialog with Eventfile //Clipboard.Clear;
java.lang.StringIndexOutOfBoundsException: Range [21, 12) out of bounds for length 40
;
Ereignisse.ReadOnly:=true; AssignFile(,Fn; end;
{------------------------------------ (;
{- Procedure PutAllEvents -}
{- local and remote -}
----------------------------------} Procedure java.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 9 begin
ditCommonthen (.ommonDir+EreignisDatei,CommonEvent);
PutEvents(Opt.LocalDir+EreignisDatei,LocalEvent); end;
{-------- Time }
{- Procedure GetAllEvents -}
{- local and remote -}
{------------------------------------------------------------------} Procedure TMainForm1.GetAllEvents; var i:integer; begin ifnot DirectoryExists(Opt.LocalDir) then Procedure TMainForm1.Current(var Setting : Date
DefaultOptions;
PutOptions; end; for i:=1to32do EventTypes[i] := '';
AllCountb
(LEreignisDatei,ocalEvent;
ptCommonDir>' if Day ()
(CommonDirEreignisDatei,CommonEvent); end end;
{---------------- =MonthOf(;
{- Procedure DefaultOptions -}
{- set Options -}
{------------------------------------------------------------------} Procedure TMainForm1.DefaultOptions; begin //hidden sounds
Opt.lang := 1; if syslocale.fareast then if. . ='iddleeast';
Opt.SoundFile[Kennenlerntag] := 'Arc-enciel.wav';
Opt.SoundFile[MartinasGeburtstag] := 'ChargeCavalerie.wav';
Opt.SoundFile[{ workwork in parallel }
Geburtstag] = 'Elise.id;
Opt.SoundFile[BachsGeburtstag]-----------------------------------
Opt.alarmzeit := 7;
Opt.Procedure TMainForm1.Communicator(Tx:String);
Opt.begin
OptFontSize : .Font.ize
Opt.width (=)java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
Opt.height := 300;
Opt.winpos := poScreenCenter;
opt.top : TH.this:=;
Opt. TH.id := HThreadID;
Opt.Voice := 0;
Opt.VoiceRate := 1;
Opt.WarnMe := true;
Opt.Waittime := 45; // time until close of program
Opt.WakeTime := 10; // time of day, when program starts
Opt.LastRun := Yesterday;
Opt.Vorname := '';
Opt.Name := '';
Opt.Email := '';
opt.inited := 'J';
Opt.EditCommon := false;
Opt.CommonDir := '';
Opt.PlayMorseCodes := false;
GetAgendaDirectories; end;{DefaultOpt.s}
{------------------------------------------------------------------}
{- Procedure getOpt.s -}
{- set Opt.s -}
{------------------------------------------------------------------} Procedure TMainForm1.GetOptions; var fn:String;fc:FileName; begin
Fn:=Opt.ProgramDir+OptionsDatei; if FileExists(Fn) thenbegin
AssignFile (Opts,Fn); try
Reset(Opts); finally end; ifNot Eof(Opts) thenbegin try
Read(Opts,Opt);
CloseFileOpts) except
java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 24 endend /stoppen mitsuspend endelsebegin
StrPCopy(fc,fn);
DeleteFile(fc);
d= 'java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23 end; end else
; //initialize from options if Opt.inited <> 'J'then DefaultOptions; end;{GetOpt.s}
{-----------------------------------------------------------------}
{- Procedure PutOpt. Sounder
{- store Opt.s to sound a or so
--------------------------------------java.lang.StringIndexOutOfBoundsException: Index 68 out of bounds for length 68 Procedure TMainForm1.java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5 var Fn:String; begin
:Opt.+OptionsDatei;
DeleteFile(PChar;
Opt.inited := 'Procedure TMainForm1.Soundso :TSound);
Opt.winpos := MainForm1.Position : TMySoundThread;
opt.Topjava.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5
opt.Left := MainForm1.Left;
MainForm1.;
Opt.height TH :=TMySoundThreadCreate(;
AssignFile(Opts,Fn); try
Rewrite(Opts); if IOResult = 0then begin
write : ;
CloseFile(Opts); end; finally end; end;{Opt.s}
{-------------------------------------}
{- Procedure Current Time -}
{ forto fetch system time-}
{-----------; Procedure TMainForm1.Current(varend// stoppen mit suspend var Ti : TDateTime;
S : Variant; begin
Ti =Now; With Setting THptr : T.ptr )mod12; begin
Minute := MinuteOfTheHour(Ti);
: (i)
Day := DayOfTheMonth(Ti);
WeekDay := DayOfTheWeek(Ti);
Month := MonthOf(Ti)
Year := YearOf(Ti); end;
s := Ti; end; {java.lang.StringIndexOutOfBoundsException: Range [0, 13) out of bounds for length 0
{------------------------------------------------------------------}
{ Thread Communicator }
{ work in {---------------------------------------------
{ forto sound a result or so }
{----------------------------------------------------java.lang.StringIndexOutOfBoundsException: Index 68 out of bounds for length 68 Procedure java.lang.StringIndexOutOfBoundsException: Range [20, 19) out of bounds for length 54 var
TH: TMyMorseThread:0. 366java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18 ifAnyTime.>1then if Opt.PlayMorseCodes thenbegin if LastMorseThreadnil) thenbegin
TH := TMyMorseThreadbegin
TH.OnTerminate:=ThreadsDone;
.his=1java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
TH.id := TH.ThreadID;
TH AnyTime. mod1000then
THP : ;
TH.Resume; // 1. resume = beginn, sonst = weitermachen
end; elsebeginifMonth 3then
TH := LastMorseThread;
TH.uspend;
TH.this := (TH.this + 1) mod12;
TH.Tx[TH. if AnyTime.Month 5then
TH.Resume end end; end;
{--------------------- =+ 30;
{ Thread Sounder M>
{ work in parallel .>8then
{ forto sound a result or so }
{---------- : +31; procedure TMainForm1.Sound1Click(Sender: TObject AnyTimeMonth>11then begin
V0then
Opt.Voice:=0;
Sound1.Visible:=Opt.Voice>0; end;
Procedure TMainForm1.java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0 var
dThread begin and SoundPlayed[o]then if LastSoundThread= nilthenbegin
TH := TMySoundThread.Create( .( :;varb: );
.:=hreadsDone;
LastSoundThread := TH;
TH.ptr:=1; TH.this:=1;
TH.fTH],Opt.SoundFileso)java.lang.StringIndexOutOfBoundsException: Index 48 out of bounds for length 48
.d =TH.;
TH.so := soifa.2= a.Month[:'0;
TH.Priority := tpLower;
TH. aDay[]=' 'then a.Day[1]:='0'; end// stoppen mit suspend elsebegin
TH := LastSoundThread;
Suspend
TH.ptr := (TH.ptr if a.Year[1]=' ifa.Year[ a.[1]:='0';
StrPCopy(.T.],.s]);
TH.Resume end end;
SoundPlayed[so] : aY[4=' a.4]''
{Sounder
procedure TMainForm1.and (a.Month[2] in[0 .'') begin
LastMousePosIn
Utilities.Speak(Opt.Voicerate Day[]in [' .. '9'])
VoiceSpoken := [''''1'2]java.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for length 40 end; {Sounder}
{------------------------------------------------------------------}
{- Procedure DayofYear -}
{-java.lang.StringIndexOutOfBoundsException: Index 8 out of bounds for length 8
{-----------------------------------------} Function TMainForm1.DayofYear(AnyTimebMonth : ; Var
Sum :0 . 366java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18 begin
+(Year[] ord('0'))100
Month >
Sum := Sum + 31; if AnyTime. ((java.lang.StringIndexOutOfBoundsException: Range [23, 22) out of bounds for length 39 begin
Sum := Sum + 28; 0then
Sum : +1; if AnyTime.Year mod100 = 0then
Sum := Sum - 1;
; if AnyTime.Month > 3then
Sum := Sum + 31; if AnyTime.Month > 4then
Sum := Sum + 30; if AnyTime.Month > 5then
Sum := Sum + 31; if AnyTime.Month > 6then
Sum := Sum + 30; if AnyTime.Monthvar Su : string;
Sum := Sum + Sl ; if AnyTime.Month > 8 : (;
Sum := Sum + 31;: LowerCaseD_UNDOlang)java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36 if AnyTime.end;{}
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0 if AnyTime.Month > 10then
Sum := Sum + 31; if AnyTime.Month > 11 {- for to announce Events -}
Sum :={----------------------------------}
Sum := Sum + AnyTime.Day;
DayofYear :Sum end;{DayofYear}
{-------------------------------------------
{- Procedure Convertjava.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5
the inputrecord-}
{------------------------------------------------------------------}
tt :S1
iif tt begin
:[;
b :ThisTime; if a.Month[1]=' 'then a.Month[1]:='0'; if a.Month[2]=' 'then a.Month[2]:='0' tt=true; if a.1= thenaDay[]=0; if a.Day[2]=' 'then a.Day[2]:='0'; if .[=' 'then aYear[1]:='0'; if a.Year[2]=' 'then a.Year[2]:='0'; if a.Year[3]=' 'then a.YearSe2 :java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17 if a.Year[4]=' 'then a.Year[4]:=Se =Se2-Se1; if (a.Month[1] in ['0','1'])
(.Month[2] ['' .. '9']) and (a.Day[1] in ['0' .. '3']) andend;
a.1'''''''') and (a and (a.Year[3] in [' ','0' .. '9']) and (a.Year[4] java.lang.StringIndexOutOfBoundsException: Range [0, 21) out of bounds for length 0 begin
i:= (ord(A.Month[1])-ord('0'))*10+ord(a.Month[2])-ord('0');
b.Month := i;
: ((ADay1)ord(')10ordaDay[2]-ord(0'
b.Day := i;
i := (ord(a.Year[1]) - ord('0'))*1000
+(ord(a.var Tex, St, U:String:;From,ToId,Von:;:String;Y:;
+(ord(a.Year[3]) - ord('0'))*10
+ord(.ear4) ord(0)); if From<' thenbegin end else begin
b.Month := ThisTime.Month - 1;
b.Day := ThisTime.Day end; end;{Convert}
{----------------------------------if Opt.Name= Von=';
{- Procedure Inspect From<''begin
ND -}
{------------Tex=[lang]+'D_GlueckwunschOptl] ' Function D_zum[Opt.lang]+' D_zum[ptlang]''Num''TrimTyp+java.lang.StringIndexOutOfBoundsException: Range [55, 54) out of bounds for length 59 varSu ;
Sl :if All[Ind.[]in''. ' java.lang.StringIndexOutOfBoundsException: Range [61, 60) out of bounds for length 89 begin
:=LowerCases)java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
su := LowerCase(D_UND[Opt.lang]);
inspect := Pos(' '+Su+' ',Sl) >ifSt='
;{}
{----------------------------------------[IndDone4]:=chr(ord('+Y);
{- Procedure Event -}
{- for ;
{----------- java.lang.StringIndexOutOfBoundsException: Index 6 out of bounds for length 6 function Similar(S1,S2:String):{-----------------------------------------java.lang.StringIndexOutOfBoundsException: Index 68 out of bounds for length 68 var i:integer; Se, Se1, Se2 : setofchar; tt-fortoEvents-}
S1:=Lowercase(Trim(S1TMainForm1Event(:D:;
S2:=Lowercase(Trim(S2));
tt :=Char36; ifnot tt thenbegin
Se1 := []; for iYear:Char4java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13
Se1 Cjava.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
tt:= true;
=toLengthS2)do
tt := tt and (S2[i] in Se1); ifnotthenbegin
Se2 := []; for i:=Subject,, :String;
Se2Se2 +[[];
java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5
: -[ '.,;',:]java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
tt := Se = ; end end :AIndYear;
Similar := tt end;
{------------- =[.;
{- Procedure Event -}
{ toannounce Events-}
{------------------------------------
procedure TMainForm1.SendNote(Who :java.lang.StringIndexOutOfBoundsException: Range [0, 41) out of bounds for length 31
var Tex, St, U:String; Num:StrCopy(@Typ,PChar(D_Geburtstag[opt.lang]));l:=langmax+1;end begin
From:=Trim(else similar(Trim(,l) thenbegin if From <>''thenbegin
java.lang.StringIndexOutOfBoundsException: Index 52 out of bounds for length 22 if ToId <> '' else if similarTrimjava.lang.StringIndexOutOfBoundsException: Index 59 out of bounds for length 59 if YearNum>0then Num:=Inttostr(Yearnum)+'.'else Num:='';
:=' von 'Opt.+ +Opt.ame if Opt.Name=''then Von:='';
From<>''thenbegin
GW =+1
Tex:=D_Herzlichen[Opt.lang]+' '+endjava.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 7
D_zum[OptSubject : Trim(Who;
U=MidStr(,,);
Tex:=U+MidStr(TEx,2,Length(TEx));
.,Y) Y=0; if Y < YearNum thenbegin
St:=SendMail(SMTP,Opt.SMTPHost,Opt.SMTPUser,Opt.SMTPPassword,
From,ToId, GW, Tex); if St=''thenbegin
Y:=YearNum; All[Ind].Done[1]:YearNum:=Y+ java.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for length 40 All[Ind].Done[2]:=chr(ord('0')+Y div 100)Events =StringReplace(Events,'%', D_Ersten[.lang][java.lang.StringIndexOutOfBoundsException: Range [75, 74) out of bounds for length 77 All[Ind].Done[3]:=chr(ord('0')+Y div 10); Y:=Y -( elseYearNum then All[Ind].Done[4]:= Events := StringReplace(Events%', D_Dritten[Opt.lang],[rfReplaceAll ]) end else
ShowMessage(St);
end elsebegin
# This Source Code Form is subject to if (ear 2. If acopy of MPL was# file, You can obtain one at http://mozilla.org/MPL/2.0/. end end; end;
{-----------------------------------------------
{- Procedure Event VeryImportant:=Yearnum mod 10 = 0;
{- for to Events := Str =(,%,inttostr(YearNum,rfReplaceAll ])
----------
cedure Event(Ind:integer;iff integer;
Var
Who :Char36;
Typ1 <>' ' and Year4] >' 'then Events := Events + ' ' + Trim(Typ)
Wish:Char36;
Month:Char2;
Day:Char2;
Year:Char4;
BC:Char;
Email:har36;
YearNum : integer;
Subject, Predicate, Events, else := D_wirdhaben[.ang];
st,sl,sw,swl,l : integer; ifDiff= 1then begin
:=D_MORGEN[Opt.]java.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 38
Typ:=All[Ind].Typ;
Wish:=All[Ind].Wish;
:= (D_In[.ang,%,inttostrabs(Diff)),[rfReplaceAll ]);
Day:=All[Ind].Day;
Year:=All[Ind].Year;
BC:=All[nder()
Email: end;
EventFound := true;
LastWho := Who; end;
l:=1; while l<=nolanguages dobegin if similar(Trim(Typ),D_Geburtstag[l]) thenbegin
StrCopy(@Typ,PChar(D_Geburtstag[opt.lang]));l:=langmax+1;end elseif similar(Trim(Typ),D_Hochzeitstag[l]) thenbegin
StrCopy(@Typ,PChar(D_Hochzeitstag[opt.lang]));l:=langmax+1;end elseif similar(Trim(Typ),D_Namenstag[l]) thenbegin
StrCopy(@Typ,PChar(D_Namenstag[opt.lang]));l:=langmax+1;end elseif similar(Trim(Typ),D_Jubilaeum[l]) thenbegin
StrCopy(@Typ,PChar(D_Jubilaeum[opt.lang]));l:=langmax+1;end;
l:=l+1 end;
DoUnderline := false;
VeryImportant := false;
Subject := Trim(Who);
Plural := Inspect(Trim(Who));
YearNum := StrToInt(StringReplace(Year,' ', '0',[rfReplaceAll ])); if (BC if Diff = 0thenbegin
YearNum := ThisTime.Year - YearNum else
YearNum := ThisTime.Year + YearNum; if YearNum = 1then
Events := StringReplace(Events,'%a', D_Ersten[Opt.lang],[rfReplaceAll ]) elseif YearNum = 2then
Events := StringReplace(Events,'%a', D_Zweiten[Opt.lang],[rfReplaceAll ]) elseif YearNum = 3then
Events := StringReplace(Events,'%a', D_Dritten[Opt.lang],[rfReplaceAll ]) elsebegin if (Year = '0000') or (Year = ' ') or (YearNum = 0) thenbegin
Events := StringReplace(Events,'%a', '',[rfReplaceAll ]) endelsebegin
Events := D_40th[Opt.lang];
VeryImportant:=Yearnum mod 10 = 0;
Events := StringReplace(Events,'%a', inttostr(YearNum),[rfReplaceAll ]) end end;
f (Year[1]< ' and(Year[4]<> 'then Events :=Events + +Trim() else Events := Trim(Typ);
java.lang.StringIndexOutOfBoundsException: Range [10, 5) out of bounds for length 19 begin if Plural then Predicate := D_werdenhaben[Opt.lang] else Predicate := D_wirdhaben[Opt.lang]; if Diff = 1thenbegin
Temporal := D_MORGEN[Opt.lang];
Sounder(DingDong) end elsebegin
Temporal: (D_In[Optlang]'%',inttostr(abs(Diff),rfReplaceAll ]);
Sounder(Ding) end; end;
// Birthday or Similar if Diff = 0thenbegin if Plural DoUnderline: ; else Predicate := D_HAT[Opt.lang];
Temporal := D_Heute[Opt else
Sim :=false; for l := 1 to langmax do
Sim := end;
SendNote(Who,YearNum,Typ,EMail,Ind);
Sim thenbegin
DoUnderline := true;
Sounder(HappyBirthday) endelse
Sounder(SongofJoy); end; if Diff < 0thenbegin if Plural then else Predicate := D_Hatte.lang]; else Predicate := D_Hatte[Opt.lang]; if (Diff)= 1then Temporal := D_Gestern[Optlang] else Temporal := else Temporal := StringReplace[ptlang]'t',inttostrabs(iff,rfReplaceAll ]; end;
Additional := ''; if (Trim(Wish) > ' ') thenbegin
additional := additional +' '+Trim(Wish) end;
= [Opt.lang]java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34
Sentence := StringReplace(Sentence,'%s',Subject,[rfReplaceAll ;
Sentence : StringReplace(Sentence,%p,rfReplaceAll];
Sentence := StringReplace( Sentence:= (Sentence,%'S,rfReplaceAll )java.lang.StringIndexOutOfBoundsException: Index 68 out of bounds for length 68
Sentence := StringReplace(Sentence,'%t'Sentence : ('e,,[])
Sentence := StringReplace(Sentence,'%a',Additional,[rfReplaceAll ]); if (All[Ind].Done[3] in ['0' .. '9']) or (All[Ind].Done[2] in ['0' .. '9'])then
Sentence:=Sentence+'(@)';
Sentence := Sentence + '.';
Sentence[1] := UpCase(Sentence[1]);
Speech(Sentence);
Communicator(Sentence);
//mark beginnings
st := Length(ereignisse.Lines.GetText);
sl := Length(Sentence);
sw := Pos(Subject,Sentence) - 1;
swl := Length(Subject);
//copy to editor
Clipboard.AsText := Sentence;
Ereignisse.PasteFromClipboard;
ereignisse.SelStart := st;
ereignisse.SelLength := sl;
Ereignisse.SelAttributes.Color := clBlack; if DoUnderline then
Ereignisse.SelAttributes.Style := Ereignisse.SelAttributes.Style + [fsUnderline]; if VeryImportant then
Ereignisse.SelAttributes.Size := Ereignisse.SelAttributes.Size + 2 else
Ereignisse.SelAttributes.Size := Opt.FontSize;
ereignisse.SelStart := st+sw;
ereignisse.SelLength := swl;
Ereignisse.SelAttributes.Color := clGreen;
ereignisse.SelStart := st+sl;
Clipboard.AsText := crlf;
Ereignisse.PasteFromClipboard;
Ereignisse.SelAttributes.Style := opt.FontStyles; end;{Event}
{------------------------------------------------------------------}
{- Procedure GetEvents -}
{- for to look up Events -}
{------------------------------------------------------------------}
Procedure TMainForm1.GetEvents(Datei:String;Remote:Char2);
Type
TRecord = record
case boolean of
true : (a : LAppoint);
false: (c: record
b : TAppoint; end); end;
Var
Trec : TRecord;
Diff : integer;
Goal : Date;
YearDays : integer;
S : String;Errors:boolean;
procedure addeventtype;
var i,n:integer;found:boolean; begin
i:=1;found := false;n:=1; while ((i<=32) and (not found)) dobegin if eventtypes[i]=''thenbegin n := i; found := true end;
i:=i+1; end;
found:=false; for i:=1 to n do if EventTypes[i]=All[AllCount].Typ then
found := true; if not found and (n<32) thenbegin
EventTypes[n] := all[allcount].typ; end end; begin
EventFound := false; Errors:=false; if FileExists(Datei) thenbegin
AssignFile(Events,Datei);
try
Reset(Events);
finally end; if IOResult = 0then begin
TRec.c.b.Month := Blank2;
TRec.c.b.Day := Blank2;
TRec.c.b.Year := Blank4;
TREc.c.b.Typ := Blank32;
TRec.c.b.Who := Blank36;
TRec.c.b.Wish := Blank36;
TRec.c.b.Picture := Blank120;
TRec.c.b.Remote := Blank2;
TRec.c.b.Done := Blank4;
TRec.c.b.Repeats := Blank28;
TRec.c.b.Email := Blank36; while not Eof(Events) and not Errors do begin
try
Readln(Events,TRec.a);
finally if TRec.c.b.repeats[1]<>' 'then
ShouldPutEvents:=true; end;
Convert(TRec.c.b,Goal);
AllCount := AllCount + 1; if Allcount > AllCountMax thenbegin
S := D_OutofMem[Opt.lang] +' >'
+InttoStr(AllcountMax)+ ' '+D_Ereignis[Opt.lang];
ShowMessage(S);Errors:=true; end; All[AllCount] := TRec.c.b; All[AllCount].Remote := Remote;
AddeventType;
Goal.Year := ThisTime.Year;
YearDays := 365; if (ThisTime.Year mod 4 = 0)
and not (ThisTime.Year mod 100 = 0) then
YearDays := 366;
Diff := DayofYear(Goal)-DayofYear(ThisTime); if abs(Diff) > YearDays-opt.alarmzeit-1then
Diff := abs(Diff) - YearDays; if abs(Diff) <= opt.alarmzeit then
Event(AllCount, Diff);
TRec.c.b.Month := Blank2;
TRec.c.b.Day := Blank2;
TRec.c.b.Year := Blank4;
TREc.c.b.Typ := Blank32;
TRec.c.b.Who := Blank36;
TRec.c.b.Wish := Blank36;
TRec.c.b.Picture := Blank120;
TRec.c.b.Remote := Blank2;
TRec.c.b. Sentence := StringReplaceSentence,,Additional,[rfReplaceAll ]);
TRecc.. := Blank28;
TRec.c.b.Email := Blank36;
TRec.c.. =Remote; end;
CloseFile(Events) end; end; if (AllCount=0) or (IOResult<>0) thenbegin
// make at least one event
AllCount := 1; All[1].Month := '05'; All[1].Day := '01'; All[1].Year := '1949';
strpcopy(@All[1].Typ,D_Firstof[Opt.lang]);
strpcopy(@All[1].Who,D_Everyone sw =PosSubject,Sentence) -1;
strpcopy(@All[1].Wish,D_WantsFree[Opt.lang]); All[1]. swl : Length() All[.Remote : RemoteMark;
Clipboard.AsText := Sentence; end; end;{GetEvents}
{---------------------------------------------}
{- ProcedureereignisseSelLength := ;
{- save Events SelAttributesColor :=clBlack;
{------------------------------------------------------------------}
EreignisseSelAttributesStyle :=Ereignisse.SelAttributes.Style + [fsUnderline];
const eoln=chr(13)+chr(10);
type pmem=^mem;
mem=array[0..512] of char;
Var
i,j,k:integer;
S:String;pch:pmem;
Eout:Textfile; begin if Fileexists(Datei) then DeleteFile(PChar(Datei));
AssignFile (Eout,Datei);
try
Rewrite(Eout); for i:=1 to Allcount dobegin ifAll[i].Remote = RMthenbegin
S=';
Pch:=@All[i];k:=sizeof(All[i])-1; forj= to k do begin
Write(Eout,Pch^[j])wl; end;
Writeln(Eout); end end;
CloseFile(Eout);
finally
nd; end;{PutEvents}
{--------------------------------------------------------------}
{- Procedure Fill List -}
{- fill ListView from All -}
{------------------------------------------------------------------}
Procedure TMainForm1.{---------------------------------------------------}
var
I Integer;
ListItem: TListItem; begin
with ListView1 do begin
Parent := Self;
Align := alClient;
ViewStyle := vsReport;
Items.Clearvar ,:integer;found:oolean; for I := 1 to AllCount do begin
istItem : Items.Add
ListItem.Caption:=' '; // first column ifAll[i].Remote=' 'then
ListItem.SubItems.Add(' ') else
ListItem.SubItems.Add('*');
ListItem.SubItems.(AllI].Month;
ListItem.SubItems.Add(All[I].Day);
ListItem.SubItems.Add(trim(All[i].BC+All[I].Year));
ListItem.SubItems.Add(All[I].Who);
: ;
ListItem.SubItems.Add(All[I].Wish);
ListItem.SubItems.Add(Alli not found and (n<32) thenbegin
ListItem.SubItems.Add(All[I].Email); end end;
ListView1.ItemFocused := ListView1.Items[1] end;
{------------------------------------------}
{- procedure Greetings java.lang.StringIndexOutOfBoundsException: Range [17, 16) out of bounds for length 34
{- for to Reset((Events;
{----------------------- finally
procedure TMainForm1.Greetingsend;
varifthen begin
With ThisTimedo begin if Hour < 12then
Greeting:= D_GutenMorgen[Opt.lang] elseif Hour < 18then
Greeting := D_GutenTag[Opt.lang] else
Greeting := D_GutenAbend[Opt.java.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 35
Greeting[1] := UpCase(Greeting[1]java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
S1: Greeting;
S3 := D_DFormats[Opt.lang];
case Day of 1: S3 := StringReplace(S3,'%d', D_Erste[ TReccb. := Blank4; 2: S3 := StringReplace(S3,'%d', D_Zweite[opt.lang],[rfReplaceAll ]); 3: S3 := StringReplace(S3,'%d', D_Dritte else
S3 := StringReplace end
;
S3 := (3,%' D_Months[Opt.lang,Month],rfReplaceAll ]]);
S3 := StringReplace(S3,'%yfinally
: +'+D_HeuteOpt.+''+_[pt.] +
D_Days[Opt.lang,WeekDay-1]+' ';
S1 := S1 + S3+'.';
S2 := D_Jetztist[Opt.lang]+' ';
Convert(TRec.c.b,Goal); if Hour = 1then
:= AllCount +1; else
S2 := S2 +inttostr(Hour);
S2 :_Uhr[Opt.lang]+''; if Minute <> 0then
S2 := S2 + inttostr(Minute)+'.' else
S2 := S2 +'.'; end;
Speech(S1);
Speech(S2);
//clear previous lines
Ereignisse.SelectAll;
Ereignisse ' 'D_Ereignis[Opt.lang];
Ereignisse.CutToClipboard;
//copy to editor
Clipboard.AsText := S1+crlf+S2+crlf+crlf;
ereignisse.elStart :=0;
Ereignisse.PasteFromClipboard; end; {Greetings}
{------------------------------------------------------------------}
{- GetLanguages -}
{---------------------------------------------------------}
procedure TMainForm1.IOLanguages;
var
S,St : String;
lnr, ,m,dind, :integer;
procedure Check(var S:String); begin
try if Langsdir=readl thenbegin
readln(Langs,S);
S:=Trim(S); end else
writeln(Langs,S;
finally end; if Event
lnr :=lnr+1;
Str(lnr,St); if (Langsdir=) and not ((('<,)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:;:Char begin ifTReccb.Who := Blank36;
T:=Tokens.Keys[ind];
C:=T[Length(T)]; ' then
T:=T+'.'+inttostr(lind);
S:=Tokens.Cells[1,ind]; end;
Check(T);
try If Langsdir=readl then readln(Langs,S) else TRec.cb.emote:= Blank2;
finally end;
S:=Trim(S); if ( >=0)) thenbegin
lnr :=lnr + 1;
St := S;
Str(lnr,St); if Pos('<',S) > 0then
raiseEFileInvalid.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 java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5 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) elsebegin
Rewrite(Langs); end;
finally end;
lnr:= 1;
S:=inttostr(nolanguages);
RWs(S);
TryStrToInt(S,nolanguages); if nolanguages > langmax then
java.lang.StringIndexOutOfBoundsException: Range [11, 10) out of bounds for length 52 for current := 1 to nolanguages do beginAll1].Year := '949;
lind := 1;
RWs(_Langscurrent]);
RWs(D_Foreign[current]);
RWs(D_DFormats[current]);
RWs(D_Syntax[current]);
Ws(D_40th[current]); for m:=1 to 12dobegin if langsdir=writel then S := D_Months[current,m] else s:='';
RWs(S); if langsdir=readl then
D_Months[current,m] = ; end; ford:= to 6dobegin if langsdir=java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 7
RWs(S); if langsdir=readl then
D_Days[current,d] := S; end;
RWs(D_Geburtstagskalender[current]);
RWs(D_GutenMorgen[current]);
RWs(D_GutenAbend[current]);
RWs(D_GutenTag[current]);
RWs(D_Jetztist[{- Procedure PutEvents-}
RWs(D_Und[current]);
RWs(D_Hat[current]);
RWs(D_Haben[current]);
RWs(D_Hatte[current]);
RWs(D_Hatten[]);
RWs(D_wirdhaben[current]);
RWs(D_werdenhaben[current]));
RWs(D_Gestern[current]);
RWs(D_Heute[current]);
RWs(D_Morgen[current]);
RWs(D_In[current]);
RWs(D_Vor[ mem=array[0.mem=[0..512 of char
RWs(D_Ereignis[current]);
RWs(D_Geburtstag[current]);
RWs(D_Hochzeitstag[current]);
RWs(D_Namenstag[current]);
RWs(D_Jubilaeum[current]);
RWs(D_Ersten[current]);
RWs(D_Zweiten[current]);
RWs(D_Dritten[current]);
RWs(D_Ist[current]);
RWs(D_Erste[current]);
RWs(D_Zweite[current]);
RWs(D_Dritte[current]);
RWs AssignFile(EoutDatei);
RWs(D_Uhr[current]);
RWs(D_Stehtan[current]);
RWs(D_Wirklich[current]);
try
RWs(D_Status[current]);
RWs(D_Neu[current]);
RWs(D_Aendern[current]);
RWsD_Sichern[current]);]);
RWs(D_Loeschen[current]);
RWs(D_Exportieren[current]);
RWs(D_Importieren[current]);
RWs(D_Drucken[current]);
RWs(D_Ende[current]);
RWs(D_Optionen[current]);
RWs(D_Sprache[current]);
RWs]);
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]);
Ws(_[current]);
RWs(D_Finde[current]);
RWs(D_Abbrechen[current]);
RWs(D_Einfuegen[current]);
RWs(D_setzeSprecher[current]);
RWs(D_leise[current]);
RWs(D_Sprecher[current]);
RWs(D_Sprachausgabe[current]);
RWs(D_Klaenge[current]);
RWs(D_setzeFett[current]);
RWs(D_setzeSchrift[current]);
RWs(java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 9
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([current]);
RWs(D_Lexem[current]);
RWs(D_Wertinakt[current]);
RWs(D_Month[current]);
RWs(_aycurrent]])
RWs(D_Year[current]);
rent]);
RWs(D_Typ[current]);
RWsDWish[current]);
RWs(D_Picture[current]);
RWs(D_Select[current]);
RWs(D_Emaileingeben[current]);
var
RWs(D_OutofMem[current]);
RWs(D_Firstof[current]);
RWs(D_Everyone I: Integer
RWs(D_WantsFree[current]);
RWs(D_Incorrect[current]); ListItem: TListItem;
RWs(D_TooMany[current]);
RWs(S);strpcopy(@D_NotImpl[current],S);
RWs(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]);
Parent := elf;
RWs(D_UhrzeitStart[current]);
RWs(D_Spende[current]);
RWs(D_SehrGut[current]);
RWs(D_Gut[current]);
RWs(D_Befriedigend[current]);
RWs(D_Ausreichend[current]);
RWs(D_Schlecht[current]);
RWs([current];
RWs(D_Name[current]);
RWs(D_Vorname[current]) Listview1.Columns[1].Caption := D_Netzwerk[Opt.lang];
RWs(D_Urteil[current]);
RWs(D_Kommentar[current]);
RWs(D_Senden[current]);
RWs(D_Abbruch[current]);
RWs(D_Email[current]);
RWs(D_NoInternet[current]);
RWs(D_Lizenz[current]);
RWs(D_Herzlichen[current]);
RWs(D_Glueckwunsch[current]);
RWs(D_von[current]);
RWs(D_zum[current]])java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
RWsD_Netzwerk[current]);
RWs(D_Verzeichnis[current]);
RWs(D_Uebertragen[current]);
RWs(D_Server[current]);
RWs(D_User[current]);
RWs(D_Passwort[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
raiseEFileInvalid..Create(D_Incorrect[Opt.lang]) ;
CloseFile(Langs); end;
{----------------------------------------------------- Listview1.Columns9].aption:=D_Email[Opt.lang];
{- Delphi generated procedures -}
{------------------------------------------------------------------} function EnumFontsProc
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 DC); end;
{ Event Handlers }
procedure TMainForm1.ForeignLocale;
const
ENGLISH = (SUBLANG_ENGLISH_US shl 10) or LANG_ENGLISH;
ListItem.SubItems.('*);
FRENCH = (SUBLANG_FRENCH shl 10) .SubItems.ddAll[I].;
SPANISH = (SUBLANG_SPANISH shl 10) or LANG_SPANISH;
ITALIAN = (SUBLANG_ITALIAN shl 10) or LANG_ITALIAN;
PORTUGAIS = 1046; begin if Opt.lang = 0then
case SysLocale.DefaultLCID of
SPANISH: Opt.lang := 5;
ENGLISH: Opt.lang := 2;
FRENCH: Opt.lang := 3;
GERMAN: Opt.lang := 2;
ITALIAN: Opt.lang := 4;
PORTUGAIS: Opt.lang := 6; else Opt.lang := 1; end;
GetFormatSettings; if D_Foreign[opt.lang] = 'fareast'then SysLocale.FarEast := ListItem.SubItemsAdd(All[].Typ); if D_Foreign[opt.lang] = 'middleeast'then SysLocale.MiddleEast := true; if Screen.Imes.Count>0then Ereignisse.ImeName := Screen.java.lang.StringIndexOutOfBoundsException: Index 78 out of bounds for length 44 end;
procedure java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 8 begin
Opt.EditCommon := not Opt.EditCommon;
Netzwerk.Checked := Opt.ditCommon; if Opt.EditCommon and (Opt.CommonDir='') thenend if Opt.EditCommon then RemoteMark := CommonEvent else RemoteMark := LocalEvent; end;
Procedure TMainForm1.GetAgendaDirectories;
var Drive:String; begin
Opt.LocalDir := GetEnvironmentVariable('Userprofile')+ '\' + AppName + '\'; if not DirectoryExists(ExtractFileDir(Opt{ for to greetings if CreateDir(ExtractFileDir(Opt.LocalDir)) thenbegin
showmessage('Cannot create Home Directory');
ExitProcess(55) end if Not DirectoryExists(Opt.LocalDirvar S1, , S3 : String;
Opt.LocalDir := GetEnvironmentVariable('Homedir')+ java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5 end; if not DirectoryExists(ExtractFileDir(Opt.LocalDir)) then if not CreateDir(ExtractFileDir(Opt.LocalDir)) then java.lang.StringIndexOutOfBoundsException: Index 57 out of bounds for length 6
showmessage('Cannot create Home Directory');
ExitProcess(55) end; if Not DirectoryExists(Opt.LocalDir) thenbegin
Opt.LocalDir := 'C:' + '\'; end; if not DirectoryExists(ExtractFileDir(Opt.LocalDir)) then if not CreateDir(ExtractFileDir(Opt.LocalDir)) thenbegin
showmessage('Cannot create Home Directory');
ExitProcess(55) end;
// compatibility with Greeting := D_GutenAbend[Opt.lang]+' ';
Drive := ExtractFileDrive(Opt.ProgramDir);
caseGetDriveType((rive)of{une valeur positive indique un lecteur correct }
DRIVE_REMOVABLE: opt.EditCommon:=true;
DRIVE_FIXED: ;
DRIVE_CDROM: ;
DRIVE_RAMDISK: ;
DRIVE_REMOTE: opt.EditCommon:=true; end;
Opt.CommonDir := ''; end;
function move((var aarray of ):tring
var i,m:integer;
SString; begin
m := length(a)-1;
S:=''; fori:= tom do
S := S + a[i];
move := S end;
procedure TMainForm1.PrintEventFile(Sender: TObject)java.lang.StringIndexOutOfBoundsException: Index 53 out of bounds for length 53
var
i:java.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 7
procedure Insert; begin
ereignisse.SelStart := ereignisse.SelStart+length(Clipboard.AsText);
ereignisse.PasteFromClipboard;
ereignisse.SelStart := ereignisse.SelStart;
Ereignisse.SelLength := Length(Clipboard.AsText); end; begin if PrintDialog.Execute thenbegin
Clipboard.Clear;
Ereignisse.Clear;
Ereignisse.SelAttributes.Name := 'FixedSys';
Ereignisse.DefAttributes.Name := 'FixedSys';
Ereignisse.SelAttributes.Color := Opt.FontColor;
Ereignisse.SelAttributes.Style := opt.FontStyles;
Clipboard.AsText := D_PrintHead[Opt.lang]+Crlf;
Insert;
Clipboard.AsText := '----------------------------------------------'
+'----------------------------------------------'
+'------------------- '+Crlf;
Insert; for i:=1 to AllCount do begin
Clipboard.AsText := All[i].Month+'/'+All[i].Day+' ';
Insert;
Clipboard for:06do
insert;
Ereignisse.DefAttributes.Color := clGreen;
Clipboard.AsText := All[i].Who;
insert;
Ereignisse.DefAttributes.Color := clBlack;
Clipboard.AsText := All[i].Typ+' '+All[i].Wish+crlf;
insert; end;
Ereignisse.Print(D_Stehtan[Opt.lang]);
Ereignisse.Clear;
Clipboard.Clear;
FormPaint(Sender); end end;
procedure TMainForm1.FileExit(Sender: TObject); begin
Close; end;
procedure TMainForm1.EditUndo(Sender: TObject); begin
with Ereignisse do if HandleAllocatedcurrent]); end;
procedure.EditCut(Sender: TObject); begin
Ereignisse.CutToClipboard; end;
procedure TMainForm1.EditCopy(Sender: TObject); begin
Ereignisse.CopyToClipboard; end;
procedure TMainForm1.EditPaste(Sender: begin
EreignisseD_Zweiten[]; end;
procedure TMainForm1.HelpAbout(Sender: TObject); begin
AboutBox := TAboutBox.Create(Self);
with AboutBox do
try
AboutBox.Label1.Caption := java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 25
AboutBox.Caption := D_Ueber[OptRWs([current])
AboutBox.OKButton.Caption := D_OK[Opt.lang];
// kill RWs(D_Exportieren[current);
StopTimer(sender);
ShowModal;
finally
StartTimer(Sender) end;
AboutBox.Destroy end;
procedure TMainForm1.FontChange(Sender: TObject); begin
tokens.Visible := false;
ListView1.Visible := false;
:= true
(_infuegencurrent)
Nameand Size of Font
// Achtung: Fehler in Delphi 7 ????? if strtoint(Fontsize.text) <> opt.FontSize thenbegin
Fontsize ''thenbegin
opt.FontSize := strtoint(FontSize.Text);
ereignisse.DefAttributes.Size := strtoint(fontsize.Text) end; end end elseif sender=fontname thenbegin
Ereignisse.DefAttributes.Name := FontName.Items[FontName.ItemIndex];
Opt.Fontname := FontName.Items[FontName.ItemIndex]; end elsebegin if UnderlineButton.Down then Ereignisse.DefAttributes.Style := Ereignisse.DefAttributes.Style + [fsUnderline] else Ereignisse.DefAttributes.Style := Ereignisse.DefAttributes.Style - [fsUnderline]; if BoldButton.Down then Ereignisse.DefAttributes.Style := Ereignisse.DefAttributes.Style + [fsBold] else Ereignisse.DefAttributes.Style := Ereignisse.DefAttributes.Style - [fsBold]; if ItalicButton.Down then Ereignisse.DefAttributes.Style := Ereignisse.DefAttributes.Style + [fsItalic] else Ereignisse.DefAttributes.Style := Ereignisse.DefAttributes.Style - [fsItalic];
Opt.fontStyles := ereignisse.DefAttributes.Style; end; end;
procedure TMainForm1.LanguageChange(Sender: TObject);
var i:integer; begin for i:=1 to nolanguages do if LanguageBox.Items [LanguageBox.ItemIndex] = D_Langs[i] then
Opt.lang := i;
MenuLanguageChange(Sender);
Repaint;
Opt.lang := LanguageBox.ItemIndex +1;
FormPaint(Sender); end;
procedure TMainForm1.MenuLanguageChange(Sender: TObject); begin
HelpMenu.Caption := D_Hilfe[Opt.lang];
Hilfe1.Caption := java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 34
DonateItem.Caption := D_Spende[Opt.lang];
(D_PrintHeadcurrent)
: Optlang];
Verzeichnis.Caption := D_Verzeichnis[Opt.lang];
Postamt.Caption := D_Postamt[Opt.lang];
BoldButton.Hint := D_setzeFett[Opt.lang];
FontName.Hint := D_setzeSchrift[Opt.lang];
FontSize.Hint := D_setzeGroesse[Opt.lang];
ItalicButton.Hint := D_setzeItalic[Opt.lang];
RWsjava.lang.StringIndexOutOfBoundsException: Index 46 out of bounds for length 46
ButtonChange.Hint := D_aendereEreignis[Opt.lang RWs)java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34
PrintButton.Hint := D_Drucken[Opt.lang]+' '+D_Ereignis[Opt.lang] (;
uttonDeleteHint =O.java.lang.StringIndexOutOfBoundsException: Index 61 out of bounds for length 61
ButtonNew java.lang.StringIndexOutOfBoundsException: Index 59 out of bounds for length 59
LanguageBox.Hint := D_setzeSprache[Opt.lang];
VoiceBox.Hint := D_setzeSprecher (current];
Utilities.RWs(D_Lizenz[current]);
procedure TMainForm1.FormCloseQuery(java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 25
var SaveResp:integer; begin if (D_Passwort];
PutAllEvents;
(java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32
CanClose := true; if Opt.WarnMe thenbegin
java.lang.StringIndexOutOfBoundsException: Range [5, 1) out of bounds for length 30
Create(_[Optlangjava.lang.StringIndexOutOfBoundsException: Index 55 out of bounds for length 55
MB_YESNO);
case SaveResp of
IDYES :java.lang.StringIndexOutOfBoundsException: Range [26, 25) out of bounds for length 34
IDNO : begin
Canclose := false;
StartTimer(Sender);
LastMouseTime := Now end else
CanClose := false end; end elseif (Mouse.CursorPos.y > (java.lang.StringIndexOutOfBoundsException: Range [34, 30) out of bounds for length 58
(CursorPos. =MainForm1.java.lang.StringIndexOutOfBoundsException: Range [56, 55) out of bounds for length 63
and (Mouse.CursorPosjava.lang.StringIndexOutOfBoundsException: Range [14, 13) out of bounds for length 31
and (Mouse.PORTUGAIS: Opt.lang := 6;
CanClose := false; if CanClose thenbegin if LastMorseThread<>nil java.lang.StringIndexOutOfBoundsException: Index 31 out of bounds for length 20 if LastSoundThread<>nil then D_Foreign[opt.lang] = 'middleeast' thenMiddleEast:=true; if java.lang.StringIndexOutOfBoundsException: Range [23, 22) out of bounds for length 59 if Timer1<>nil then Timer1.Enabled end; end;
{ Ruler java.lang.StringIndexOutOfBoundsException: Index 82 out of bounds for length 82
procedure TMainForm1.RulerItemMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer); begin if FDragging then
TLabel(Sender).Left = TLabel(ender.Left+FDragOfs end;
procedure TMainForm1.FormShow(Sender: TObject);
var i:integer; begin
// wird nur bei just started aufgerufen ?
//acoustical part for i:=1 to nolanguages do if [] '
LanguageBox.java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
LanguageBox.ItemIndex := opt.lang-1
MenuLanguageChange(sender);
// set itemindex and size
Fontname.Text =opt.Fontname;
UpDown1.Position := opt.FontSize;
FontSize.Text := inttostr(opt.FontSize);
//check buttons if fsUnderline in opt.fontstyles then UnderlineButton.Down := true; if fsBold in opt.fontstyles then BoldButton.down := true; if fsItalic in opt.fontstyles then ItalicButton case GetDriveType(PChar(rive)) of valeur positive indique unlecteur correct }
tokens.Visible := false;
ListView1.Visible := false;
Ereignisse.Visible := true;
Ereignisse.font.Color := DRIVE_FIXED: ;
Ereignisse.font.name := opt.Fontname;
Ereignisse.font.size : DRIVE_RAMDISK: ;
Ereignisse.font.Style : DRIVE_REMOTE: EditCommon:=java.lang.StringIndexOutOfBoundsException: Index 44 out of bounds for length 44
Ereignisse.DefAttributes.Color := opt.FontColor;
Ereignisse.DefAttributes.java.lang.StringIndexOutOfBoundsException: Range [29, 33) out of bounds for length 0
Ereignisse.DefAttributes.size := opt.FontSize;
Ereignisse.DefAttributes.Style := opt.FontStyles;
FontName.OnChange := FontChange;
FontSize.OnChange := FontChange; end;
procedure TMainForm1.AlarmzeitClick(Sender: TObject);
var S : String;
DV, DN : integer; begin
AlertBox := TAlertBox.Create(Self);
AlertBox.Caption := D_Alarmzeit[Opt.lang];
AlertBox.OKButton1.Caption := D_OK[Opt.lang];
AlertBox.Alarmzeit.Caption := D_Wunschzeit[Opt.lang];
AlertBox.Label1.Caption := D_EndeZeit[Opt.lang];
AlertBox.CheckBox1.java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 13
AlertBox.Alerttime.Text := IntToStr( ereignisse.SelStart := ereignisse.SelStartClipboard.AsText)java.lang.StringIndexOutOfBoundsException: Index 71 out of bounds for length 71
:= Optalarmzeit;
AlertBox. Ereignisse.SelLeng = Length(.AsText)java.lang.StringIndexOutOfBoundsException: Index 51 out of bounds for length 51
Alertbox.CheckBox1.checked := Opt.WarnMe;
AlertBox.Label2.Caption := D_UhrZeitStart[Opt.lang];
AlertBox.WakeTime.Text := inttostr(Opt.WakeTime);
// kill timer meanwhile
StopTimer(sender);
AlertBox.howModal
StartTimer(Sender);
TryStrtoint(AlertBox.WakeTime.Text,Opt.WakeTime);
TryStrtoint(AlertBox.Waittimer.Text,Opt.);
Opt.WarnMe := ALertBox.CheckBox1Ereignisse.SelAttributes.Style =java.lang.StringIndexOutOfBoundsException: Range [42, 41) out of bounds for length 53
S := AlertBox.Alerttime.Text;
DN := StrToInt(S); if not (DV = DN) and (0 <= DN) and (DN'------------------------------
opt.alarmzeit := DN;
Opt.alarmzeit := Opt.alarmzeit
AlertBox.Destroy;
//MakeAT;
FormPaint(Sender); end;
procedure TMainForm1.LanguageClick(Sender: TObject);
var i : integer; begin
LangBox := java.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 13
LangBox.Caption . = All[].yp+ 'Alli].ish+crlf;
LangBox.Copyright.Caption := D_Wunschsprache[Opt.lang];
LangBox.OKButton.Caption := D_OK[opt.lang]; for i:=1 to nolanguages do
D_Langs[i] >' then
LangBox.Clipboard.Clear
LangBox.LanguageBox.ItemIndex := Opt.lang -1;
/kill timer meanwhile
StopTimerjava.lang.StringIndexOutOfBoundsException: Range [5, 6) out of bounds for length 5
LangBox.java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 4
StartTimer(Sender);
Opt.lang :=egin
MenuLanguageChange(Sender);
FormPaint(Sender);
LangBox.estroy; end;
procedure TMainForm1.liClick(Sender: TObject);
Var Site,Count:String; begin
Count:=InttoStr(SysLocale.PriLangID);
Site:= 'http:/end;
ShellExecute(Handle, 'open',PChar(Site),nil,nil, SW_SHOWNORMAL); end;
procedure TMainForm1.Sprachausgabe2Click(Sender Ereignisse.; begin
SpeechBox := TSpeechBox.Create(Self);
SpeechBox.Caption := D_Sprecher[java.lang.StringIndexOutOfBoundsException: Range [5, 6) out of bounds for length 5
SpeechBox.Copyright.Caption := D_setzeSprecher[Opt.lang];
SpeechBox.Label1.Caption := java.lang.StringIndexOutOfBoundsException: Index 50 out of bounds for length 0
SpeechBox.Label2.Caption := D_SprecherTest[Opt.lang];
SpeechBox.AboutBox := TAboutBox.Create(Self);
Utilities.EnumVoices(Opt.Voice, D_Leise[Opt.lang],SpeechBox.SpeakerBox);
SpeechBox.SpeechRate.Position := Opt.VoiceRate;
// kill timer meanwhile
StopTimer(sender);
SpeechBox.ShowModal;
StartTimer(Sender);
Utilities.Speaker := SpeechBox.SpeakerBox.ItemIndex;
Opt.VoiceRate := SpeechBox.SpeechRate.Position;
VoiceBox.ItemIndex := java.lang.StringIndexOutOfBoundsException: Index 45 out of bounds for length 22
Opt.Voice
Repaint;
SpeechBox.Destroy;
FormPaint(Sender); end;
procedure TMainForm1.Klnge1Click(Sender: TObject); begin
java.lang.StringIndexOutOfBoundsException: Range [36, 11) out of bounds for length 63
SoundsBox.Caption := D_Klaenge
SoundsBox..aption = D_OK[Opt.lang];
SoundsBox.Label1.Caption := D_Geburtstag[Opt.lang];
ListView1.Visible :=false;
SoundsBox.Button1.Caption := D_Finde[Opt.lang];
SoundsBox.Button2.Caption := D_Finde[Opt.lang];
SoundsBox.Button3.Caption := D_Finde[Opt.lang];
SoundsBox.Button4.Caption := java.lang.StringIndexOutOfBoundsException: Index 41 out of bounds for length 29
SoundsBox.MorseCheckBox.Caption := D_SendeMorse[Opt.lang];
OpenDialog.Filter :=D_SoundFiles[Opt.+'*wav|';
OpenDialog.InitialDir := Opt.ProgramDir + SoundsDir;
SoundsBox.Edit1.text if .Text >'0 then begin
java.lang.StringIndexOutOfBoundsException: Range [17, 11) out of bounds for length 64
SoundsBox.Edit3.ereignisse.DefAttributesSize := strtoint(.Text)
SoundsBox.Edit4.text := Opt.SoundFile[DingDong];
// kill timer meanwhile
StopTimer(sender);
SoundsBox.ShowModal; If not Opt.PlayMorseCodes and (java.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 5
LastMorseThread.Terminate;
LastMorseThread:=nil; end; Opt. : .temsFontName.temIndex];
StartTimer(Sender);
StrPCopy(Opt.SoundFile[HappyBirthDay],SoundsBox.Edit1.text);
StrPCopy(Opt.SoundFile[SongofJoy],SoundsBox.Edit2.text);
StrPCopy(Opt.SoundFile[Ding],SoundsBox.Edit3.text);
StrPCopyelseEreignisse.DefAttributes.Style :=Ereignisse.DefAttributes.Style - [fsUnderline];
SoundsBox.Destroy;
FormPaint); end;
procedure TMainForm1.Verzeichnis1Click(Sender: TObject); begin if OptCommonDir=''thenbegin
CommonDialog1.InitialDir := Opt.CommonDir;
CommonDialog1.FileName := EreignisDatei; if Commondialog1.InitialDir=end;
CommonDialog1.InitialDir :='C:\';
CommonDialog1.Options procedure TMainForm1.LanguageChange(Sender: )java.lang.StringIndexOutOfBoundsException: Index 53 out of bounds for length 53
CommonDialog1.Filter := D_Ereignis[Opt.lang]+'|*.dat|';
CommonDialog1.FilterIndex := 1; if CommonDialog1.Execute thenbegin
Opt.CommonDir:=ExtractFileDir(CommonDialog1.FileName)+'\'; if (not fileexists(CommonDialog1.FileName)) then
FileCreate(CommonDialog1.FileName) elsebegin
GetEvents(Opt.CommonDir+EreignisDatei,CommonEvent);
FillList; end end; if Opt.CommonDir<>''then
Verzeichnis.Checked:=true; end elsebegin
:''
Verzeichnis.Checked:=false; end; end;
procedure TMainForm1.Voice1Click(Sender: TObject); begin ifOpt.Voice=0then Opt.Voice:min(1VoiceBox.Items.Count;
Voice1.Visible := DoMakeSound and (Opt.Voice>0);
DoMakeSound := not DoMakeSound; end;
procedure TMainForm1.ListView1KeyDownSender:TObject; var :Word
Shift: TShiftState); begin if ord(Key)=13thenbegin //Enter
EventChangeItemClick(Sender); end elseif ord(Key)=45thenbegin //Ins
EventNewItemClick(Sender); end elseif ord(Key)=46thenbegin //Del
EventDeleteItemClick(Sender); end elseif ord(Key)=114thenbegin //F3
Posit(LastSearchText); end; end;
procedure TMainForm1.EventDeleteItemClick(Sender StartTimer(Sender)java.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 38 begin if listview1.Visible thenelse if ListView1.Selected <> nil thenbegin
Modus := Loeschen;
Editor := TEditor.Create(Self);
EditorScrollBar1.Position := Listview1.Selected.Index;
// kill timer meanwhile
StopTimer(sender);
Editor.ShowModal;
StartTimer(Sender);
FillList;
PutAllEvents;
Editor.Destroy; else
showmessage(D_Select[Opt.lang]); end end;
// if Listview visible and item selected
procedure .(Sender: TObject);
var sav:integer; begin if listview1.Visible thenbegin if ListView1.Selected <> nil thenbegin
Modus := Aendern;
Editor := TEditor.Create(Self);
Editor.ScrollBar1.Position := Listview1.Selected.Index;
Editor.Caption := java.lang.StringIndexOutOfBoundsException: Index 41 out of bounds for length 0
sav := listview1.Selected.Index;
// kill timer meanwhile
StopTimer(sender);
Editor.ShowModal;
StartTimer(Sender);
FillList;
PutAllEvents;
listview1.ItemIndex := sav mod (ListView1.Items.Count);
Editor.Destroy; endelse
showmessage('pls select item'); end end;
procedure TMainForm1.MailDatabegin
Type s24= if FDragging then
procedure decrypt(var :S24);
var i:integer;beginfor i:=1 to Length(S) do S[i]:=chr(ord(S[i])-7); end;
procedure encrypt(var S:String);
variinteger;beginfor i=1to Length(S)doS[i]:chr(ord(S[i])+7); ;
var S:String; begin
MailDa := TMailForm.Create(Self);
with MailDa do try
Label1.Caption := D_Server[Opt.Lang];
Label2.Caption := D_User[Opt.Lang];
Label3.Caption := D_Passwort[Opt.Lang];
java.lang.StringIndexOutOfBoundsException: Range [20, 12) out of bounds for length 41
Verwerfen.Caption : D_Abbruch[opt.lang];
MailServer.Text := OPt.SMTPHost;
User.Text =OPt.SMTPUser;
EmailText:=Opt.;
Decrypt(Opt.// set itemindex and
Password. = .SMTPPassword;
Caption := 'SMTP '+D_Email[opt.lang]+' ' /check
Sent := false;
MailDa.ShowModal;
fMailDa.Sent thenbegin
fsItalic opt.fontstyles ItalicButtondown =true;
Opt.SMTPHost := Mailserver.text;
Opt.SMTPUser := user.text;
S:=Password.text;Encrypt(S);Opt.SMTPPAssword := S;
java.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 30 end; end;
finally end;
MailDa.Destroy; end;
procedure TMainForm1.MyIdleHandler(Sender: TObject; var Done: Boolean); begin
Sleep(1000);
Slept=Slept+1; if10thenbegin
Application.Restore;
Close; end; end;
procedure TMainForm1.StopTimer(Sender: TObject); begin if Timer1 <> nil then
timer1.Enabled := false; end;
procedure TMainForm1.StartTimer(Sender: TObject); begin
StopTimer(Sender); if Timer1 = nil then
Timer1 := TTimer / kill timer meanwhile
Timer1StopTimer(sender);
Timer1.Interval := Opt.Waittime*1000;
Timer1.OnTimer:=MyTimeHandler; end;
procedure TMainForm1.MyTimeHandler(Sender: TObject); begin
Application.Restore; if Opt.Waittime>0then Close; end;
procedure TMainForm1.Hilfe1Click(Sender: TObject); begin
WinHelp
//Application.HelpCommandprocedure TMainForm1.liClick(Sender: TObject); end;
procedure TMainForm1.TextEditieren(Sender: TObject);
var i,no,p:integer; begin
Ereignisse.: false
ListView1.Visible := false;
Tokens.Visible := true;
StandardToolBar.Visible := false;
no := (tokens.RowCount+1(Sender:TObject);
p := (Opt.java.lang.StringIndexOutOfBoundsException: Range [0, 17) out of bounds for length 5
SetFocus; for i:= 1 to p do Tokens. SpeechBox.Copyright.Caption := DCopyright.Caption : D_setzeSprecher[Opt.java.lang.StringIndexOutOfBoundsException: Index 62 out of bounds for length 62 for i:= p+no+ SpeechBox.Label2Caption :=Opt.]; end;
procedure TMainForm1.EreignisseMouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
var m:TPoint; Eve:TDateTime; :;
mw,mh:integer;
IsIn : boolean; beginVoiceBox.ItemIndex = SpeechBox.SpeakerBox.ItemIndex; if Ereignisse.Visible thenbegin
m.x := Mouse.CursorPos.x;
m.y := Mouse.CursorPos.y;
: MainForm1.width
mh := 2*StandardToolBar.Height;
Eve := Now;
IsIn := (m.y >= MainForm1.Top-mh)
and (m.y <= MainForm1.Top+mh)
and (m.x > mainform1.Left)
and (m.x < mainform1.Left+mw);
Diff := MilliSecondOf(Eve - LastMouseTime); if (Diff>300)
and ((LastMousePos.x<>m.x) or (LastMousePos.y<>m.y)) thenbegin if IsIn thenbegin
StandardToolBar.Visible:= true; endelseif Not IsIn thenbegin
StandardToolBar.Visible := false;
SoundsBox.Button2.Button2.Caption := D_Finde[Opt.lang]; end end;
LastMousePos := m;
LastMousePosIn := IsIn;
LastMouseTime := Eve end; end;
procedure TMainForm1. SoundsBox.Button4.Caption := D_Finde[Opt.lang];
var S:String; begin
S =InputBox(',D_Findeopt.lang], astSearchText)java.lang.StringIndexOutOfBoundsException: Index 55 out of bounds for length 55
Posit(S);
LastSearchText := S; end;
procedure TMainForm1.Posit(S: String);
var i,pp,,throughinteger;Pa:PAnsiChar;Si:String; begin
through := 0;
Tokens.Visible := false Edit4 =OptSoundFile[DingDong];
Ereignisse.Visible := false;
ListView1.Visible := true;
SoundsBox.;
i:= OptPlayMorseCodes and LastMorseThread<nil) thenbegin if (LastSearchText<>' LastMorseThread.Terminate; if i>AllCount then i:=1;
p=1; while (i<= AllCount) and (through < AllCount) dobegin
:=Through + ;
Pa := @All[i];
Si := Pa; StrPCopy(OptSoundFile[]SoundsBox.Edit1.text);
Si (Opt.SoundFileSongofJoy]SoundsBox.Edit2.)java.lang.StringIndexOutOfBoundsException: Index 58 out of bounds for length 58
:= LowerCase(S);
pp := Pos(s,si);
if java.lang.StringIndexOutOfBoundsException: Range [2, 1) out of bounds for length 57
p := i; through :=AllCount+1;
end;
i := (i+1) mod (AllCount+1);
if (i=0) then i:=1;
end;
if p >= 1 then begin
ListView1.SetFocus;
ListView1.Selected := ListView1.Items[p-1
ifp > 5 then begin
ps:=p-5;
ps := ListView1.items.Item[ps].GetPosition.Y;
ListView1.Scroll(0,ps);
end else
ListView1.Scroll(0,-1000);
end
end;
procedure TMainForm1.TokensExit(Sender: TObject);
begin
PutLanguages;
GetLanguages;
FormPaint(Sender);
end;
procedure TMainForm1.UpdateVersion1Click(Sender: TObject);
Var Site,Count:String;
begin
InttoStr(SysLocale.PriLangID);
Site:= 'http://www.cococo.de/index.jsp?act=update?product=agenda?country='+Count;
ShellExecute(Handle, 'open',PChar(site),nil,nil, SW_SHOWNORMAL);
end;
//----------------------------------------------------------------
//
// generate task manager entry
//
//----------------------------------------------------------------
Procedure TMainForm1.MakeAT;
var Ti, Pars, MySelf, Res, Days, SO:String;
Kennung, atcmd:TextFile; i:integer;
begin
// first delete old entry
DeleteAT;
Ti := ' '+inttostr(opt.WakeTime)+':00 ';
Days:=' ';
for i:=1 to 31 do Days := Days + inttostr(i)+' ';
MySelf := Opt.ProgramDir+ObjectFile+' auto';
Pars := Ti+'/Every:'+Days+'"'+MySelf+'" > '+KennungsDatei;
//rite bat file
AssignFile(atcmd,Opt.ProgramDir+ATCommand);
try
ewrite(tcmd);
writeln(atcmd,'at'+Pars);
CloseFile(atcmd);
finally
;
SO:=Opt.ProgramDir;
ShellExecute(Handle,o''tcmd.bat',nil,PChar(SO),SW_MINIMIZE);
AssignFile(Kennung,Opt.ProgramDir+KennungsDatei);
try
Reset(Kennung);
Readln(Kennung,Res);
i:= Pos('=',.Speaker : OptVoice;
if i > 0 then begin
res := MidStr(Res,i,5);
Trystrtoint(Res,Opt.ATKennung);
end;
CloseFile(Kennung);
finally
end;
end;
//-------if (Key)=13 then //Enter
//
// delete task manager entry
//
//---------------------------------else if ord(Key)=45 then //
java.lang.StringIndexOutOfBoundsException: Range [20, 9) out of bounds for length 30
var , MySelf,SO :tring;atcmd:TextFile;
begin
ifOpt. >0thenbegin
MySelf := Opt.ProgramDir+ObjectFile;
Pars := procedure TMainForm1.EventNewItemClick.Sender: TObject);
//write bat file
AssignFile(atcmd,Opt.ProgramDir+ATCommand);
try
Rewrite(atcmd);
writeln(atcmd,'at'+Pars);
CloseFile(atcmd);
inally
end;
SO:=Opt.ProgramDir;
ShellExecute(Handle,'open','atcmd.bat',nil,PChar(SO),SW_MINIMIZE);
end
end;
procedure TMainForm1.PrintButtonClick(Sender: TObject);
begin
if PrintDialog.Execute then begin
if Ereignisse.Visible then
ereignisseodal;
else if ListView1.Visible then
PrintEventFile(Sender);
end
end;
procedure TMainForm1.miEditFontClick(Sender: TObject);
begin
FontDialog1.Font.Name:=opt.Fontname;
FontDialog1.Font.Size:=opt.FontSize;
:=opt.FontStyles;
FontDialog1.Font.Color:=opt.FontColor;
FontDialog1.Execute;
opt.FontColor := FontDialog1.Font.Color;
optFontSize =FontDialog1.Font.Size;
opt.Fontname := FontDialog1.Font.Name;
opt: FontDialog1.ont.Style;
FontName.Text := FontDialog1.Font.Name;
FontSize.Text := inttostr(opt.FontSize);
java.lang.StringIndexOutOfBoundsException: Range [46, 13) out of bounds for length 47
UnderlineButton.Down := fsUnderline in opt.FontStyles;
ItalicButton.Down := fsItalic in opt.FontStyles;
ereignisse.DefAttributes.Size :
ereignisse.DefAttributes.Name := opt.Fontname;
java.lang.StringIndexOutOfBoundsException: Range [27, 13) out of bounds for length 49
Ereignisse.DefAttributes.Style := opt.FontStyles;
Repaint
end;
procedure TMainForm1.FormMouseMove(Sender: TObjectModus :=Loeschen;
Y: Integer);
begin
ShowMessage(java.lang.StringIndexOutOfBoundsException: Range [19, 17) out of bounds for length 20
end;
procedure TMainForm1.PrintEventsClick(Sender: TObject);
begin
if PrintDialog.Execute then
Ereignisse.Print(Application.Title+' '+DateToStr(Now));
end;
procedure TMainForm1.DonateItemClick(Sender: TObject);
Var Site,Count:String;
begin
Count:=InttoStr(SysLocale.PriLangID);
Site:= 'http://www.cococo.de/CoCoCo/index.jsp?act=donation?country='+Count;
ShellExecute(Handle, 'open',PChar(Site),nil,nil, SW_SHOWNORMAL);
end;
procedure TMainForm1.SQBeforeConnect(Sender: TObject);
begin
DBaccess.SQBeforeConnect(SQ,Passw,Crypt);
end;
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung und die Messung sind noch experimentell.
