| Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Delphi/Agenda 1.1/Sources/ (Columbo Version 0.7©) Datei vom 4.1.2008 mit Größe 90 kB |
|
Quelle 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: 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 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 bound SMTPPAssword java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds fo 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 fo 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 1 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 l :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 leng java.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 20 UpDown1 ProgramDir :String[200]java.lang.StringIndexOutOfBoundsException: Index 44 VoiceBox: TComboBox TMainForm1 = class(TForm) FontName: TComboBox; LanguageBox: TComboBox; ButtonNew: TToolButton; ButtonChange ButtonDelete: TToolButton; PrintButton: java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds fo 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 procedurePutEvents(Datei:; RM:Char2))java.lang.StringIndexOutOfBoundsException: I 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 leng procedure VoiceBoxChange(ender:TObject; N6: TMenuItem; Shift: )java.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for len Timer1:TTimer; Tokens java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for leng 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, 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 o 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 bound 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: Inde 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 leng 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 D_werdenhaben : LangArray; D_wirdhaben : LangArray; D_Hatte java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for len 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 l 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 :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 7 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 o ; D_Who : LangArray; D_Typ : LangArray; gArray; D_Picture : LangArray; D_Select ,pps : java.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for lengt 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 le LangArray; : LangArray; D_Senden :; D_Abbruch : LangArray; D_NoInternet integer Events : TextFile; D_Lizenz : LangArray; :LangArrayjava.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for 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 l 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.StringIndexOutOfBoundsExce Math; const RulerAdj = 4/3; GutterWid = 6; {R*.dfm} {----------------------------------- {- Procedure FormCreate :Char4; {- -} {------------- Blank32 : Char32; procedure TMainForm1.FormCreate(java.lang.StringIndexOutOfBoundsException: Index var D_DFormats :LangArrayjava.lang.StringIndexOutOfBoundsException: Index 39 out o begin Opt.ProgramDir := D_Days : array.langmax,.] String DoMakeSound := D_GutenMorgen:LangArray; // set Title Application.Title := AppName+' '+Version+' ' D_GutenTag java.lang.StringIndexOutOfBoun //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: I Passw := D_Ereignis : SQ.ParamsLoaded :=D_Hochzeitstag:LangArray; //produce events : java.lang.StringIndexOutOfBoundsException: Index 39 out of bound crlf0]=chr() crlf[1] :=:; crlf2] :chr()java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds fo //disable onchange; PPn:= FontName.OnChange;D_Ersten : LangArray PPs:= FontSize.OnChange;FontSize.D_Dritten java.lang.StringIndexOutOfBoundsExcepti //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 o = 1 to 28 do Blank28[] :=' 'java.lang.StringIndexOutOfBoundsException: Index 42 out of for i:= 1 to 32 do Blank32[i] :; for i:= 1 to 36:java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds fo for i=1to 120i : 'java.lang.StringIndexOutOfBoundsException: Index 42 out of bounds //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 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 MainForm1.Top:=T MainForm1.Left: java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds 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 ou Tokens.TitleCaptions[0 java.lang.StringIndexOutOfBoundsException: Index 39 out of :=java.lang.StringIndexOutOfBoundsException: Range [43, 42) out of bounds for le end else if: LangArray; end else if D_SehrSchlecht ; Ereignisse.ClearD_Vorname:LangArray java.lang.StringIndexOutOfBoundsException: Range [4, 1) out of bounds for length 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 .. :=.FontColor; :LangArray : ; Ereignisse java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for Greetings; if not (SplashForm =D_Feedback:LangArray; SplashForm.Destroy; D_SendeMorse :java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds f 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 bound {- 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 leng 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.StringIndexOutOfBoundsExcep 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 bo Opt. :=MainForm1.Size Opt.width := 400; Opt. 300;; Opt.winpos opt.top Opt.Left := Screen.Timer1.nterval =Opt.Waittime*1000java.lang.StringIndexOutOfBound 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 leng 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 GetAgendaDirectories.Top = Opt.Top end;{DefaultOpt.s} {------------------------------------------------------------------} {- Procedure getOpt.s -} { -} {------------------------------------------------------------------} Procedure TMainForm1.GetOptions; var fn:String;fcjava.lang.StringIndexOutOfBoundsException: Index 4 out of bounds 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 lengt varEreignisseDefAttributesColor =.ontColor; begin Fn:=Opt.ProgramDir+Ereignisse.DefAttributessize : opt.FontSize; DeleteFile(CharFnjava.lang.StringIndexOutOfBoundsException: Index 14 out of boun Opt SplashForm.Destroy Opt.winpos := MainForm1.Position; opt.Top := MainForm1AllCount : 0 opt.java.lang.StringIndexOutOfBoundsException: Range [13, 12) out of bounds for Opt.width := MainForm1.Width; Opt.height := MainForm1.Height;end (ptsFn)java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for len try Rewrite(pts)java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds fo if IOResult = 0 then begin write(Opts,Opt); CloseFile(Opts){---------------------------------- end; finally end; end;{Opt. if Opt.E thenPutEventsOpt.EreignisDatei,java.lang.StringIndexOutOfBoundsE {-- { ProcedureCurrent -java.lang.StringIndexOutOfBoundsException: Index 68 out of bou {- for to fetch system time local java.lang.StringIndexOutOfBoundsException: Index 67 o {--------java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for le ); var Ti : TDateTime; S : Variantjava.lang.StringIndexOutOfBoundsException: Range [15, 14) out of bounds 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) o Month : MonthOf(Ti)java.lang.StringIndexOutOfBoundsException: Index 30 out of boun Year endjava.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5 s := Ti; end; {Current} {-- syslocale.iddleEast then Opt.ocale: 'iddleeast'java.lang.StringIndexOutOfBoundsE { Thread Communicator } { java.lang.StringIndexOutOfBoundsException: Range [23, 22) out of bounds for len { for to sound a : 'Fur m' {-----------------------------------------java.lang.StringIndexOutOfBoundsExcept java.lang.StringIndexOutOfBoundsException: Range [20, 9) out of bounds for lengt 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 2 () 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 LastSoundThread :THjava.lang.StringIndexOutOfBoundsException: Index 28 out of bou TH.ptrjava.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for leng StrPCopy(TH.{---------------------------------------------------------java.lang. 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 le StrPCopy Hour =HourOfTheDay(i)java.lang.StringIndexOutOfBoundsException: Index 35 TH.Resume end(Ti)java.lang.StringIndexOutOfBoundsException: Index 30 out of bounds for len 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 len } {------------------------------------------------------------------} 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 bo if AnyTime.Month >3 then Sum := Sum + 31; &nbt of bounds for length 8 {-----------------------------------------} Function TMainForm1.DayofYear(AnyTimebMonth : ; Var Sum :0 . 366java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for l begin +(Year[] ord('0'))100 Month > Sum := Sum + 31; if AnyTime. ((java.lang.StringIndexOutOfBoundsException: Range [23, 22) out of bou begin Sum := Sum + 28; 0 then Sum : +1; if AnyTime.Year mod 100 = 0 then Sum := Sum - 1; ; if AnyTime.Month > 3 then Sum := Sum + 31; if AnyTime.Month > 4 then Sum := Sum + 30; if AnyTime.Month > 5 then Sum := Sum + 31; if AnyTime.Month > 6 then Sum := Sum + 30; if AnyTime.Monthvar Su : string; Sum := Sum + Sl ; if AnyTime.Month > 8 : (; Sum := Sum + 31;: LowerCaseD_UNDOlang)java.lang.StringIndexOutOfBoundsException: Inde if AnyTime.end;{} java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0 if AnyTime.Month > 10 then 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 boun 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 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 bou 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.StringIndexOutOfB varSu ; Sl :if All[Ind.[]in''. ' java.lang.StringIndexOutOfBoundsException: Range [61, 60) o begin :=LowerCases)java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds f 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 function Similar(S1,S2:String):{-----------------------------------------java.lan var i:integer; Se, Se1, Se2 : set of char; tt-for toEvents-} S1:=Lowercase(Trim(S1TMainForm1Event(:D:; S2:=Lowercase(Trim(S2)); tt :=Char36; if not tt then begin Se1 := []; for iYear:Char4java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds Se1 Cjava.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length tt:= true; =toLengthS2)do tt := tt and (S2[i] in Se1); ifnot thenbegin 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 tt := Se = ; end end :AIndYear; Similar := tt end; {------------- =[.; {- Procedure Event -} { toannounce Events-} {------------------------------------ procedure TMainForm1.SendNote(Who :java.lang.StringIndexOutOfBoundsException: Rang var Tex, St, U:String; Num:StrCopy(@Typ,PChar(D_Geburtstag[opt.lang]));l:=langmax+1; begin From:=Trim(else similar(Trim(,l) then begin if From <>'' then begin java.lang.StringIndexOutOfBoundsException: Index 52 out of bounds for length 22 if ToId <> '' else if similarTrimjava.lang.StringIndexOutOfBoundsException: Index 59 out if YearNum>0 then Num:=Inttostr(Yearnum)+'.' else Num:=''; :=' von 'Opt.+ +Opt.ame if Opt.Name='' then Von:=''; From<>''then begin GW =+1 Tex:=D_Herzlichen[Opt.lang]+' '+endjava.lang.StringIndexOutOfBoundsException: Ind D_zum[OptSubject : Trim(Who; U=MidStr(,,); Tex:=U+MidStr(TEx,2,Length(TEx)); .,Y) Y=0; if Y < YearNum then begin St:=SendMail(SMTP,Opt.SMTPHost,Opt.SMTPUser,Opt.SMTPPassword, From,ToId, GW, Tex); if St='' then begin Y:=YearNum; All[Ind].Done[1]:YearNum:=Y+ java.lang.StringIndexOutOfBoundsException: Index 40 All[Ind].Done[2]:=chr(ord('0')+Y div 100)Events =StringReplace(Events,'%', D_Ersten[ 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],[rfReplaceA end else ShowMessage(St); end else begin # This Source Code Form is subject to if (ear 2. If acopy of MPL was# file, You can obtain one at http 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 bound 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 do begin if similar(Trim(Typ),D_Geburtstag[l]) then begin StrCopy(@Typ,PChar(D_Geburtstag[opt.lang]));l:=langmax+1;end else if similar(Trim(Typ),D_Hochzeitstag[l]) then begin StrCopy(@Typ,PChar(D_Hochzeitstag[opt.lang]));l:=langmax+1;end else if similar(Trim(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]) then begin 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 = 0 then begin YearNum := ThisTime.Year - YearNum else YearNum := ThisTime.Year + YearNum; if YearNum = 1 then Events := StringReplace(Events,'%a', D_Ersten[Opt.lang],[rfReplaceAll ]) else if YearNum = 2 then Events := StringReplace(Events,'%a', D_Zweiten[Opt.lang],[rfReplaceAll ]) else if YearNum = 3 then Events := StringReplace(Events,'%a', D_Dritten[Opt.lang],[rfReplaceAll ]) else begin if (Year = '0000') or (Year = ' ') or (YearNum = 0) then begin Events := StringReplace(Events,'%a', '',[rfReplaceAll ]) end else begin 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 lengt begin if Plural then Predicate := D_werdenhaben[Opt.lang] else Predicate := D_wirdhaben[Opt.lang]; if Diff = 1 then begin Temporal := D_MORGEN[Opt.lang]; Sounder(DingDong) end else begin Temporal: (D_In[Optlang]'%',inttostr(abs(Diff),rfReplaceAll ]); Sounder(Ding) end; end; // Birthday or Similar if Diff = 0 then begin 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 then begin DoUnderline := true; Sounder(HappyBirthday) end else Sounder(SongofJoy); end; if Diff < 0 then begin if Plural then else Predicate := D_Hatte.lang]; else Predicate := D_Hatte[Opt.lang]; if (Diff)= 1 then Temporal := D_Gestern[Optlang] else Temporal := else Temporal := StringReplace[ptlang]'t',inttostrabs(iff,rfReplaceAl end; Additional := ''; if (Trim(Wish) > ' ') then begin additional := additional +' '+Trim(Wish) end; = [Opt.lang]java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for Sentence := StringReplace(Sentence,'%s',Subject,[rfReplaceAll ; Sentence : StringReplace(Sentence,%p,rfReplaceAll]; Sentence := StringReplace( Sentence:= (Sentence,%'S,rfReplaceAll )java.lang.StringInd 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)) do begin if eventtypes[i]='' then begin 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) then begin EventTypes[n] := all[allcount].typ; end end; begin EventFound := false; Errors:=false; if FileExists(Datei) then begin AssignFile(Events,Datei); try Reset(Events); finally end; if IOResult = 0 then 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 then begin 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-1 then 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) then begin // 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 do begin if All[i].Remote = RM then begin 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; Listview1.Columns[0]b :TAppoint; Listview1.Columns[1].Caption := D_Netzwerk[Opt.lang]; Listview1.Columns[2 end); Listview1.Columns[3].Caption := D_Day[Opt.lang]; Listview1.Columns[4].Caption := D_Year[Opt.lang]; Listview1.Columns[5].Caption := D_Who[Opt.lang]; Listview1.Columns[6].Caption := D_Typ Listview1.Columns[7].Caption := D_Wish[Opt.lang]; Listview1.Columns[8].Caption := D_Picture[Opt.lang]; Listview1.Columns[9].Caption := D_Email[Opt.lang]; Items.Clearvar ,:integer;found:oolean; for I := 1 to AllCount do begin istItem : Items.Add ListItem.Caption:=' '; // first column if All[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) then begin ListItem.SubItems.Add(All[I].Email); end end; ListView1.ItemFocused := ListView1.Items[1] end; {------------------------------------------} {- procedure Greetings java.lang.StringIndexOutOfBoundsException: Range [17, 16) ou {- for to Reset((Events; {----------------------- finally procedure TMainForm1.Greetingsend; varif then begin With ThisTimedo begin if Hour < 12 then Greeting:= D_GutenMorgen[Opt.lang] else if Hour < 18 then Greeting := D_GutenTag[Opt.lang] else Greeting := D_GutenAbend[Opt.java.lang.StringIndexOutOfBoundsException: Index 38 o Greeting[1] := UpCase(Greeting[1]java.lang.StringIndexOutOfBoundsException: Index 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 = 1 then := AllCount +1; else S2 := S2 +inttostr(Hour); S2 :_Uhr[Opt.lang]+''; if Minute <> 0 then S2 := S2 + inttostr(Minute)+'.' ) 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 RWs(S); if langsdir=readl then D_Days[current,d] := S; end; java.lang.StringIndexOutOfBoundsException: Range [15, 14) out of bounds for leng 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 java.lang.StringIndexOutOfBoundsException: Range [4, 3) out of bounds for length 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.StringIndexOutOfBounds 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 lengt 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 leng 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 LastVoi 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: TM notDirectoryExists(LocalDir) java.lang.StringIndexOutOfBoundsException: Index 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 lengt if not DirectoryExists(: .Fontname if not CreateDir(ExtractFileDir(Opt.java.lang.StringIndexOutOfBoundsException: Ind showmessage('Cannot create Home Directory'); ExitProcess(55) end; // compatibility with old version Drive := ExtractFileDrive(Opt.ProgramDir); case()) of {unevaleur positiveindique java.lang.StringIndexOutOfBoundsException: Ran DRIVE_REMOVABLE: opt.EditCommon:=true; java.lang.StringIndexOutOfBoundsException: Range [20, 16) out of bounds for leng DRIVE_CDROM: ; java.lang.StringIndexOutOfBoundsException: Range [19, 18) out of bounds for leng DRIVE_REMOTE: opt.true; end; Opt.CommonDir := ''; end; function move(var java.lang.StringIndexOutOfBoundsException: Range [15, 14) out of 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 lengt 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 o Clipboard.AsText := All[i]java.lang.StringIndexOutOfBoundsException: Range [32, 16 insert; Ereignisse.DefAttributes.Color := clBlack; ClipboardAsText: Alli.'+[i.java.lang.StringIndexOutOfBoundsException: Range [53, 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.StringIndexOutOfBou end; procedure TMainForm1.EditCut(Sender: TObject); begin Ereignisse.CutToClipboard; java.lang.StringIndexOutOfBoundsException: Range [4, 3) out of bounds for length 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 leng with AboutBox do try AboutBox.Label1.Caption := AppName+' '+java.lang.StringIndexOutOfBoundsException: I 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 .Visible java.lang.StringIndexOutOfBoundsException: Index 46 out of bounds for le 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.StringIndexOutOfBou Fontsize. 0'then begin SoundsBox.Edit2.text := Opt.SoundFile[SongofJoy]; .Size:= fontsize.java.lang.StringIndexOutOfBoundsException: Index 65 out of bound end; end end else if sender=fontname then begin Ereignisse.DefAttributes.= Fontname =FontName.[Ijava.lang.StringIndexOutOfBoundsException: Range [74, 73) ou end else begin if UnderlineButton.Down then Ereignisse.DefAttributesjava.lang.StringIndexOutOfBoun DefAttributesStyle java.lang.StringIndexOutOfBoundsException: Range [57, 56) out if BoldButton.Down then Ereignisse.DefAttributes.Style (Sender elsejava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length if ItalicButton.Down then Ereignisse.DefAttributes.Style := Ereignisse.DefAttributes. else Ereignisse.DefAttributes. .java.lang.StringIndexOutOfBoundsException: Range [ 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.StringIndexOutO 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 EventNewItem.Caption := D_Neu[Opt.lang]; EventChangeItem.Caption := D_Aendern[Opt.java.lang.StringIndexOutOfBoundsException EventDeleteItem.Caption := D_Loeschen[Opt.lang Voice thenOpt=1,.)java.lang.StringInd 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 Language.java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for l 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 f 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, 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 o 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.StringIndexOutOfBoundsExcepti and (Mouse.CursorPos.y <= java.lang.StringIndexOutOfBoundsException: Index 40 out of 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: R 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 lengt procedure TMainForm1.RulerItemMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin FDragOfs := (TLabel(java.lang.StringIndexOutOfBoundsException: Index 27 out of bou TLabel(Sender).Left := TLabel(java.lang.StringIndexOutOfBoundsException: Index 34 FDragging := True; end; procedure TMainForm1.RulerItemMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); if varS:java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for lengt 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 // wird nur bei just started java.lang.StringIndexOutOfBoundsException: Range [2, 1) o //acoustical part for i:=1 to nolanguages do if Absenden.Caption := D_OK[opt.lang]; LanguageBox.Items. Verwerfen.:D_Abbruchjava.lang.StringIndexOutOfBoundsException: LanguageBoxUserText: . /size Fontname.Text := opt.Fontname; UpDown1.Position := opt.FontSize; Text:Opt.java.lang.StringIndexOutOfBoundsException: Index 44 out of bounds for l / buttons if fsUnderline in opt.fontstyles then java.lang.StringIndexOutOfBoundsException: Inde if fsBold in opt.fontstyles then BoldButton.down : Sentbegin ifinopt.then .: java.lang.StringIndexOutOfBoundsException: Index 68 out of bounds tokens.Visible := false; ListView1.Visible := false; Ereignisse.Visible Ereignisse.font.Color ; Ereignisse.font.name := opt.Fontname; Ereignisse.font.size := opt.FontSize; Ereignisse.font.java.lang.StringIndexOutOfBoundsException: Index 23 out of bound DefAttributesColor:= FontColorjava.lang.StringIndexOutOfBoundsException: Index 52 Ereignisse: Fontname Ereignisse.DefAttributes.size := opt.FontSize; Ereignisse.Style =optFjava.lang.StringIndexOutOfBoundsException: Range [53, 52) o 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.langLabel1. = java.lang.StringIndexOutOfBoundsEx Name.Text :=Opt.Name; AlertBox.Alarmzeit.Caption := D_Wunschzeit[Opt.lang]; AlertBox.Label1.Caption := D_EndeZeit[Opt.java.lang.StringIndexOutOfBoundsExceptio AlertBox.CheckBox1.Caption := D_Warnemich[Opt.lang]; AlertBox.Alerttime.Text := IntToStr(opt.alarmzeit); DV := Opt.alarmzeit; AlertBox.Waittimer.Text :=Caption : Feedback+pplicationTitle'' Alertbox.CheckBox1.checked := Opt.WarnMe; AlertBox.; AlertBox.WakeTime.Text := inttostr(Opt.WakeTime); // kill timer meanwhile()java.lang.StringIndexOutOfBoundsException: Index 23 out of (; AlertBox.ShowModal; StartTimer(Sender); TryStrtointAlertBox.Text,.java.lang.StringIndexOutOfBoundsException: Index 51 ou TryStrtointjava.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for Opt.WarnMe := ALertBox.CheckBox1.Checked; S := AlertBox.Alerttime.Text; DN := StrToInt(S); ifjava.lang.StringIndexOutOfBoundsException: Range [19, 18) out of bounds for le alarmzeit =DN; Opt else AlertBox.Destroy; //MakeAT; FormPaint(Sender); end; procedure TMainForm1.java.lang.StringIndexOutOfBoundsException: Index 26 out of b var i : integer; begin LangBox:Slept1 LangBox.Caption : Slept>10 begin LangBox.Copyright.Caption := D_Wunschsprache[Opt LangBox.OKButton.Caption := D_OK[opt.lang]; for i:=1 to nolanguages do java.lang.StringIndexOutOfBoundsException: Index 6 out of bounds for length 5 LangBox.LanguageBox.java.lang.StringIndexOutOfBoundsException: Index 32 out of b LangBox.LanguageBox.ItemIndex := java.lang.StringIndexOutOfBoundsException: Range / java.lang.StringIndexOutOfBoundsException: Range [12, 11) out of bounds for leng LangBox.ShowModal; java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 4 Opt.lang := LangBox.LanguageBox.begin MenuLanguageChange(Sender); FormPaint(Sender); LangBox endjava.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4 java.lang.StringIndexOutOfBoundsException: Range [10, 9) out of bounds for lengt Var Site,Count:String; begin Count:=InttoStr(SysLocale.PriLangIDjava.lang.StringIndexOutOfBoundsException: Ra Site:= 'http://www.cococo.de/index.jsp?Visible :false; ShellExecute(Handle, 'open',PChar(Site),nil,nil, SW_SHOWNORMAL); end; hausgabe2Click( java.lang.StringIndexOutOfBoundsException: Index 58 out of bounds begin SpeechBox := TSpeechBox.Create(Self); SpeechBox.Caption := D_SprecherTokens.; SpeechBox.Caption: Opt.lang]; SpeechBox.Label1.Caption := D_Geschwindigkeit[Opt.lang]; SpeechBox.Label2.: D_SprecherTest[lang]; java.lang.StringIndexOutOfBoundsException: Range [0, 11) out of bounds for lengt esOpt.oice,D_Leise[Opt.ang]SpeechBoxSpeakerBox); SpeechBox.SpeechRate :java.lang.StringIndexOutOfBoundsException: Index 37 out of // kill timer meanwhile StopTimer(sender); SpeechBox.ShowModal; StartTimer(Sender); m: DiffInteger Opt.VoiceRate := SpeechBox.SpeechRate.Position; VoiceBox:SpeechBox.SpeakerBoxItemIndex Opt.Voice := java.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for Repaint; mw :.; FormPaint(Sender); end; procedure TMainForm1.Klnge1Click(Sender: TObject); begin SoundsBox := TSoundsBox.Create(Self); SoundsBox.Caption := D_Klaenge[Opt.lang]; SoundsBox.OKButton.java.lang.StringIndexOutOfBoundsException: Index 21 out of bo SoundsBox.Label1.Caption := D_Geburtstag[Opt.lang]; SoundsBoxStandardToolBarVisible = java.lang.StringIndexOutOfBoundsException: Index SoundsBox.Button1.Caption := D_Finde[Opt.lang]; SoundsBox.java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for SoundsBox.Button3.Caption := D_Finde[Opt.lang]; java.lang.StringIndexOutOfBoundsException: Range [12, 11) out of bounds for leng SoundsBox. OpenDialog.Filter S : ''[L) OpenDialog.InitialDir := Opt.ProgramDir + SoundsDir; SoundsBoxjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for le SoundsBox.Edit2.var ,pppps,through:;Pa:PAnsiCharSi:String SoundsBox.Edit3.text := Opt.SoundFile[Ding]; SoundsBox..text: .DingDong; // kill timer meanwhile StopTimer(sender); ShowModal otOpt.(> java.lang.StringIndexOutOfBoundsException: Range [29, 19) out of bounds for leng LastMorseThreadp:-1 end; Through: +1java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for StrPCopy(.HappyBirthDay,oundsBox.; StrPCopyOpt.SoundFile[,Edit2text; StrPCopy(Opt.SoundFile[DingS : S)java.lang.StringIndexOutOfBoundsException: Index StrPCopy(Opt.SoundFile[DingDong],SoundsBox.Edit4.text); SoundsBox.Destroy; FormPaint(Sender); end; procedure TMainForm1.Verzeichnis1Click(Sender: TObject); begin if Opt java.lang.StringIndexOutOfBoundsException: Range [11, 10) out of bounds for CommonDialog1.InitialDir := Opt.CommonDir; CommonDialog1.FileName := EreignisDatei; if Commondialog1.InitialDir='' then CommonDialog1.InitialDir :='C:\'; CommonDialog1.Options := [ofPathMustExist, ofOverwritePrompt]; CommonDialog1.Filter := D_Ereignis[Opt.lang]+'|*.dat|'; CommonDialog1.FilterIndex := 1; if CommonDialog1.java.lang.StringIndexOutOfBoundsException: Index 25 out of bound Opt.CommonDirjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds fo if (not fileexists(java.lang.StringIndexOutOfBoundsException: Index 32 out of boun (java.lang.StringIndexOutOfBoundsException: Range [39, 37) out of bounds for len else begin GetEvents(Opt.CommonDir+EreignisDatei; FillList; end end; if Opt.CommonDir<>'' then Verzeichnis.Checked:=true; end java.lang.StringIndexOutOfBoundsException: Range [12, 11) out of bounds for leng Opt.CommonDir:=''; Verzeichnis.Checked:=false; end; end; procedure TMainForm1.Voice1Click(Sender: TObject); begin if Opt.Voice=0 then Opt.Voice:=min(1,VoiceBox.Items.Count/java.lang.StringIndexOutO Voice1.Visible := DoMakeSound and (Opt.Voice>atcmdjava.lang.StringIndexOutOfBoundsExc CloseFileatcmd)java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds d; procedure TMainForm1.VoiceBoxChange(Handle,'pen''java.lang.StringIndexOutOfBounds begin Opt.Voice := VoiceBox.ItemIndex; Utilities=Opt.Voice end; procedure TMainForm1.ListView1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin ordKey13 begin/ EventChangeItemClickjava.lang.StringIndexOutOfBoundsException: Index 2 out of bo end if=45begin/Ins Procedure TMainForm1.DeleteAT; end Pars :java.lang.StringIndexOutOfBoundsException: Range [29, 28) out of bounds for EventDeleteItemClick(Sender)iATKennung end else if ord(Key)=114 then begin //F3 Posit(LastSearchText); end; end; procedure TMainForm1.ventNewItemClick(ender ; begin Modus := Neu; Editor := TEditor.Create(Self); Tokens.Visible := java.lang.StringIndexOutOfBoundsException: Range [6, 34) out of Ereignisse.Visible := falsefjava.lang.StringIndexOutOfBoundsException: Index 11 ou Listview1.Visible := true; StandardToolBar.Visible := true; if ListView1.Selected = nil then Editor.ScrollBar1.Position:=1 else Editor.ScrollBar1.Position:=Listview1.Selected.Index; // kill timer meanwhile StopTimer( java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19 StartTimer(Sender); FillList; PutAllEvents; Editor.Destroy; endjava.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4 procedure TMainForm1.EventChangeItemClick(Sender: TObject); begin if tokens.Visible or ListView1.Visible then begin Tokens.Visible := false; ListView1.Visible := false; Ereignisse.Visible := true; StandardToolBar.java.lang.StringIndexOutOfBoundsException: Index 25 out of bound java.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 5 end else if Ereignisse.Visible then begin Ereignisse.FontDialog1.Font.StyleFontStyles Tokens.Visible := false; ListView1.Visible := true; StandardToolBar.: java.lang.StringIndexOutOfBoundsException: Range [32, 31) out o Listview1.ItemIndex.FontStyles := .ont.Style; Modus := Aendern; ButtonChange.Hint := D_ListEDIT[BoldButton.Down := fsBold in opt.FontStyles; Posit(LastWho); end end; procedure TMainForm1.ereignisse.DefAttributes.Size := opt.FontSize; begin if listview1.Visible then begin if ListView1.Selected <> nil then begin :; Editor := TEditor.Create(Self); Editor.ScrollBar1.Position :'MM'); // kill timer meanwhile StopTimer(sender); Editor.ShowModal; StartTimer(Sender); FillList; PutAllEvents; Editor.Destroy; end else showmessage(D_Select[Opt.lang]); end end; // if Listview visible and item selected procedure TMainForm1.EventEdit(Sender: TObject); var sav:integer; begin if listview1b if ListView1.Selected <> nil then begin Modus := Aendern; Editor := TEditor.Create(Self); Editor.ScrollBar1.Position := Listview1.Selected.Index; Editor.Caption := D_Ereignis[Opt.lang]+' '+D_Neu[Opt.lang]; sav := listview1.Selected.Index; // kill timer meanwhile StopTimer(sender); Editor.ShowModal; StartTimer(Sender); FillList; PutAllEvents; listview1.ItemIndex := sav mod (ListView1.Items.Count); Editor.Destroy; end else showmessage('pls select item'); end end; procedure TMainForm1.MailData(Sender: TObject); Type s24=String[24]; procedure decrypt(var S:S24); var i:integer;begin for i:=1 to Length(S) do S[i]:=chr(ord(S[i])-7); end; procedure encrypt(var S:String); var i:integer;begin for i:=1 to Length(S) do S[i]:=chr(ord(S[i])+7); end; 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]; Absenden.Caption := D_OK[opt.lang]; Verwerfen.Caption := D_Abbruch[opt.lang]; MailServer.Text := OPt.SMTPHost; User.Text := OPt.SMTPUser; Email.Text := Opt.Email; Decrypt(Opt.SMTPPassword); Password.Text := Opt.SMTPPassword; Caption := 'SMTP '+D_Email[opt.lang]+' '+Application.Title+' '; Sent := false; MailDa.ShowModal; if MailDa.Sent then begin if MailServerTest(SMTP,MailServer.Text,User.text,Password.text) then begin Opt.SMTPHost := Mailserver.text; Opt.SMTPUser := user.text; S:=Password.text;Encrypt(S);Opt.SMTPPAssword := S; Opt.Email:=Email.Text; end; end; finally end; MailDa.Destroy; end; procedure TMainForm1.Feedback1Click(Sender: TObject); Var Success,Count, SO:String; begin // do a ping to activate router !! SO:=Opt.ProgramDir; ShellExecute(Handle, 'open','ping www.cococo.de',nil,PChar(SO), SW_SHOWNORMAL); Feedb := TFeedform.Create(Self); with Feedb do try bewertung.Items.Clear; bewertung.Items.Add(D_sehrgut[Opt.lang]); bewertung.Items.Add(D_gut[Opt.lang]); bewertung.Items.Add(D_befriedigend[Opt.lang]); bewertung.Items.Add(D_ausreichend[Opt.lang]); bewertung.Items.Add(D_schlecht[Opt.lang]); bewertung.Items.Add(D_sehrschlecht[Opt.lang]); Bewertung.Text := D_Urteil[Opt.lang]; Label1.Caption := d_name[opt.lang]; Vorname.Text := OPt.Vorname; Name.Text := Opt.Name; Email.Text := Opt.Email; Label2.Caption := d_Vorname[opt.lang]; Label3.Caption := d_Email[opt.lang]; Label6.Caption := d_Urteil[opt.lang]; Label7.Caption := d_Kommentar[opt.lang]; Absenden.Caption := D_Senden[opt.lang]; Verwerfen.Caption := D_Abbruch[opt.lang]; Caption := 'Feedback '+Application.Title+' '; Count:=InttoStr(SysLocale.PriLangID); // kill timer meanwhile StopTimer(sender); Feedb.Sent:=false; ShowModal; StartTimer(Sender); if Feedb.Sent then begin Opt.Vorname := Vorname.text; Opt.Name := Name.text; Opt.Email := Email.text; if (Pos('@',Feedb.Email.text)>0) and (Pos('.',Feedb.Email.text)>0) then begin Success:=D_Uebertragen[Opt.lang]; try MySQLFeedback(SQ,Feedb.Vorname.Text,Feedb.Name.Text, Feedb.Email.Text,Application.Title,Version, inttostr(Feedb.Bewertung.ItemIndex), Feedb.Kommentar.Text,'127.0.0.1',Count) except Success := D_NoInternet[Opt.lang]; end; ShowMessage(Success); end else showmessage(D_Emaileingeben[Opt.lang]); end; finally end; Feedb.Destroy; end; procedure TMainForm1.MyIdleHandler(Sender: TObject; var Done: Boolean); begin Sleep(1000); Slept:=Slept+1; if Slept > 10 then begin 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.Create(Mainform1); Timer1.Enabled:=true; Timer1.Interval := Opt.Waittime*1000; Timer1.OnTimer:=MyTimeHandler; end; procedure TMainForm1.MyTimeHandler(Sender: TObject); begin Application.Restore; if Opt.Waittime>0 then Close; end; procedure TMainForm1.Hilfe1Click(Sender: TObject); begin WinHelp(0,PChar(Application.helpfile),HELP_CONTENTS,0); //Application.HelpCommand(HELP_CONTENTS, 0); end; procedure TMainForm1.TextEditieren(Sender: TObject); var i,no,p:integer; begin Ereignisse.Visible := false; ListView1.Visible := false; Tokens.Visible := true; StandardToolBar.Visible := false; no := (tokens.RowCount+1) div nolanguages; p := (Opt.lang - 1) * no + 1; Tokens.SetFocus; for i:= 1 to p do Tokens.RowHeights[i] := -1; for i:= p+no+1 to Tokens.RowCount-1 do Tokens.RowHeights[i] := -1; end; procedure TMainForm1.StandardToolBarMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin StandardToolBar.Height := 30; end; procedure TMainForm1.EreignisseMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var m:TPoint; Eve:TDateTime; Diff:Integer; mw,mh:integer; IsIn : boolean; begin if Ereignisse.Visible then begin m.x := Mouse.CursorPos.x; m.y := Mouse.CursorPos.y; mw := 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)) then begin if IsIn then begin StandardToolBar.Visible := true; end else if Not IsIn then begin StandardToolBar.Visible := false; VertScrollBar.Position :=0; end end; LastMousePos := m; LastMousePosIn := IsIn; LastMouseTime := Eve end; end; procedure TMainForm1.Finden1Click(Sender: TObject); var S:String; begin S := InputBox('',D_Finde[opt.lang], LastSearchText); Posit(S); LastSearchText := S; end; procedure TMainForm1.Posit(S: String); var i,p,pp,ps,through:integer;Pa:PAnsiChar;Si:String; begin through := 0; Tokens.Visible := false; Ereignisse.Visible := false; ListView1.Visible := true; StandardToolBar.Visible := true; i:=AllCount+1; if (LastSearchText<>'') and (S=LastSearchText) then i:=ListView1.Selected.Index+2; if i>AllCount then i:=1; p:=-1; while (i<= AllCount) and (through < AllCount) do begin Through := Through + 1; Pa := @All[i]; Si := Pa; Si := LowerCase(Si); S := LowerCase(S); pp := Pos(s,si); if pp > 0then begin 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]; if p > 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 Count:=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; //write bat file AssignFile(atcmd,Opt.ProgramDir+ATCommand); try Rewrite(atcmd); writeln(atcmd,'at'+Pars); CloseFile(atcmd); finally end; SO:=Opt.ProgramDir; ShellExecute(Handle,'open','atcmd.bat',nil,PChar(SO),SW_MINIMIZE); AssignFile(Kennung,Opt.ProgramDir+KennungsDatei); try Reset(Kennung); Readln(Kennung,Res); i:= Pos('=',Res)+1; if i > 0 then begin res := MidStr(Res,i,5); Trystrtoint(Res,Opt.ATKennung); end; CloseFile(Kennung); finally end; end; //---------------------------------------------------------------- // // delete task manager entry // //---------------------------------------------------------------- Procedure TMainForm1.DeleteAT; var Pars, MySelf, SO :String;atcmd:TextFile; begin if Opt.ATKennung > 0 then begin MySelf := Opt.ProgramDir+ObjectFile; Pars := inttostr(Opt.ATKennung)+' /delete /yes'; //write bat file AssignFile(atcmd,Opt.ProgramDir+ATCommand); try Rewrite(atcmd); writeln(atcmd,'at'+Pars); CloseFile(atcmd); finally 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 ereignisse.Print(D_Ereignis[opt.lang]+' '+DateToStr(Now)) else if ListView1.Visible then PrintEventFile(Sender); end end; procedure TMainForm1.EreignisseMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin EventChangeItemClick(Sender); end; procedure TMainForm1.UpDown1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin FontChange(Sender); end; procedure TMainForm1.miEditFontClick(Sender: TObject); begin FontDialog1.Font.Name:=opt.Fontname; FontDialog1.Font.Size:=opt.FontSize; FontDialog1.Font.Style:=opt.FontStyles; FontDialog1.Font.Color:=opt.FontColor; FontDialog1.Execute; opt.FontColor := FontDialog1.Font.Color; opt.FontSize := FontDialog1.Font.Size; opt.Fontname := FontDialog1.Font.Name; opt.FontStyles := FontDialog1.Font.Style; FontName.Text := FontDialog1.Font.Name; FontSize.Text := inttostr(opt.FontSize); BoldButton.Down := fsBold in opt.FontStyles; UnderlineButton.Down := fsUnderline in opt.FontStyles; ItalicButton.Down := fsItalic in opt.FontStyles; ereignisse.DefAttributes.Size := opt.FontSize; ereignisse.DefAttributes.Name := opt.Fontname; ereignisse.DefAttributes.Size := opt.FontSize; Ereignisse.DefAttributes.Style := opt.FontStyles; Repaint end; procedure TMainForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin ShowMessage('MM'); 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; procedure TMainForm1.ThreadsDone(Sender: TObject); begin Pro(88,'Thread done '); end; end.
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 lengt 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.EreignisseMouseUp( Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin EventChangeItemClick(Sender); end; procedure TMainForm1.UpDown1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin FontChange(Sender); 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 leng 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 leng 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 bou 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; procedure TMainForm1.ThreadsDone(Sender: TObject); beginegin Pro(88,'Thread done '); end; end.
¤ Diese beiden folgenden Angebotsgruppen bietet das Unternehmen0.62Angebot (Wie Sie bei der Firma Beratungs- und Dienstleistungen beauftragen können 2026-10-11) ¤*Eine klare Vorstellung vom Zielzustand |
|
||||||||||||||||||||
2026-10-11