cdar

changeset 0:ef71164288c1

begin of using hg for cdar
author "Meillo r e t u r n s <meillo@marmaro.de>"
date Sun, 03 Dec 2006 21:54:43 +0100
parents
children 87b91371db05
files .hg_archival.txt .hgignore .hgtags Autorun.inf CDAR.cfg CDAR.dof CDAR.dpr CDAR.res COPYING cdar.ini modul_allgemein.pas unit_Easteregg.dfm unit_Easteregg.pas unit_Editor.dfm unit_Editor.pas unit_Editor_CreateAR.dfm unit_Editor_CreateAR.pas unit_Editor_as.dfm unit_Editor_as.pas unit_Editor_as_BrowseDir.dfm unit_Editor_as_BrowseDir.pas unit_Editor_tutorial.dfm unit_Editor_tutorial.pas unit_Editor_ws.dfm unit_Editor_ws.pas unit_Start.dfm unit_Start.pas unit_Welcome.dfm unit_Welcome.pas
diffstat 29 files changed, 4854 insertions(+), 0 deletions(-) [+]
line diff
     1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/.hg_archival.txt	Sun Dec 03 21:54:43 2006 +0100
     1.3 @@ -0,0 +1,2 @@
     1.4 +repo: 2cbc9fe99513c9f4c3d80c5efdde6bd68a8a67d7
     1.5 +node: 2b0427fff66a777b21f7731ddfb70e98f7e40405
     2.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     2.2 +++ b/.hgignore	Sun Dec 03 21:54:43 2006 +0100
     2.3 @@ -0,0 +1,6 @@
     2.4 +syntax: glob
     2.5 +
     2.6 +*~
     2.7 +.*.swp
     2.8 +
     2.9 +*.exe
     3.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     3.2 +++ b/.hgtags	Sun Dec 03 21:54:43 2006 +0100
     3.3 @@ -0,0 +1,1 @@
     3.4 +2cbc9fe99513c9f4c3d80c5efdde6bd68a8a67d7 cdar-2.2.9
     4.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     4.2 +++ b/Autorun.inf	Sun Dec 03 21:54:43 2006 +0100
     4.3 @@ -0,0 +1,3 @@
     4.4 +[Autorun]
     4.5 +Open= CDAR.exe
     4.6 +Icon= CDAR.exe
     5.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     5.2 +++ b/CDAR.cfg	Sun Dec 03 21:54:43 2006 +0100
     5.3 @@ -0,0 +1,35 @@
     5.4 +-$A8
     5.5 +-$B-
     5.6 +-$C+
     5.7 +-$D+
     5.8 +-$E-
     5.9 +-$F-
    5.10 +-$G+
    5.11 +-$H+
    5.12 +-$I+
    5.13 +-$J-
    5.14 +-$K-
    5.15 +-$L+
    5.16 +-$M-
    5.17 +-$N+
    5.18 +-$O+
    5.19 +-$P+
    5.20 +-$Q-
    5.21 +-$R-
    5.22 +-$S-
    5.23 +-$T-
    5.24 +-$U-
    5.25 +-$V+
    5.26 +-$W-
    5.27 +-$X+
    5.28 +-$YD
    5.29 +-$Z1
    5.30 +-cg
    5.31 +-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
    5.32 +-H+
    5.33 +-W+
    5.34 +-M
    5.35 +-$M16384,1048576
    5.36 +-K$00400000
    5.37 +-LE"c:\programme\borland\delphi6\Projects\Bpl"
    5.38 +-LN"c:\programme\borland\delphi6\Projects\Bpl"
     6.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     6.2 +++ b/CDAR.dof	Sun Dec 03 21:54:43 2006 +0100
     6.3 @@ -0,0 +1,90 @@
     6.4 +[FileVersion]
     6.5 +Version=6.0
     6.6 +[Compiler]
     6.7 +A=8
     6.8 +B=0
     6.9 +C=1
    6.10 +D=1
    6.11 +E=0
    6.12 +F=0
    6.13 +G=1
    6.14 +H=1
    6.15 +I=1
    6.16 +J=0
    6.17 +K=0
    6.18 +L=1
    6.19 +M=0
    6.20 +N=1
    6.21 +O=1
    6.22 +P=1
    6.23 +Q=0
    6.24 +R=0
    6.25 +S=0
    6.26 +T=0
    6.27 +U=0
    6.28 +V=1
    6.29 +W=0
    6.30 +X=1
    6.31 +Y=1
    6.32 +Z=1
    6.33 +ShowHints=1
    6.34 +ShowWarnings=1
    6.35 +UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
    6.36 +[Linker]
    6.37 +MapFile=0
    6.38 +OutputObjs=0
    6.39 +ConsoleApp=1
    6.40 +DebugInfo=0
    6.41 +RemoteSymbols=0
    6.42 +MinStackSize=16384
    6.43 +MaxStackSize=1048576
    6.44 +ImageBase=4194304
    6.45 +ExeDescription=
    6.46 +[Directories]
    6.47 +OutputDir=
    6.48 +UnitOutputDir=
    6.49 +PackageDLLOutputDir=
    6.50 +PackageDCPOutputDir=
    6.51 +SearchPath=
    6.52 +Packages=vcl;rtl;dbrtl;adortl;vcldb;vclx;bdertl;vcldbx;ibxpress;dsnap;cds;bdecds;qrpt;teeui;teedb;tee;dss;teeqr;visualclx;visualdbclx;dsnapcrba;dsnapcon;VclSmp;vclshlctrls;vclie;xmlrtl;inet;inetdbbde;inetdbxpress;inetdb;nmfast;webdsnap;websnap;dbexpress;dbxcds;indy;dclOffice2k
    6.53 +Conditionals=
    6.54 +DebugSourceDirs=
    6.55 +UsePackages=0
    6.56 +[Parameters]
    6.57 +RunParams=
    6.58 +HostApplication=
    6.59 +Launcher=
    6.60 +UseLauncher=0
    6.61 +DebugCWD=
    6.62 +[Language]
    6.63 +ActiveLang=
    6.64 +ProjectLang=
    6.65 +RootDir=
    6.66 +[Version Info]
    6.67 +IncludeVerInfo=1
    6.68 +AutoIncBuild=0
    6.69 +MajorVer=2
    6.70 +MinorVer=3
    6.71 +Release=0
    6.72 +Build=0
    6.73 +Debug=0
    6.74 +PreRelease=0
    6.75 +Special=0
    6.76 +Private=0
    6.77 +DLL=0
    6.78 +Locale=1031
    6.79 +CodePage=1252
    6.80 +[Version Info Keys]
    6.81 +CompanyName=marmaro.de
    6.82 +FileDescription=Easy-Creator for Autorun-CDs
    6.83 +FileVersion=2.3.0.0
    6.84 +InternalName=cdar-2.3
    6.85 +LegalCopyright=© Copyright  2003 &>  by Meillo  r e t u r n s
    6.86 +LegalTrademarks=This is Free Software!
    6.87 +OriginalFilename=CDAR.exe
    6.88 +ProductName=CD-Autorunner
    6.89 +ProductVersion=2.3
    6.90 +Comments=http://prog.marmaro.de
    6.91 +[HistoryLists\hlUnitAliases]
    6.92 +Count=1
    6.93 +Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
     7.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     7.2 +++ b/CDAR.dpr	Sun Dec 03 21:54:43 2006 +0100
     7.3 @@ -0,0 +1,45 @@
     7.4 +{
     7.5 +    Copyright (C) 2003 &>  by Meillo  r e t u r n s
     7.6 +
     7.7 +    This program is free software; you can redistribute it and/or modify
     7.8 +    it under the terms of the GNU General Public License as published by
     7.9 +    the Free Software Foundation; either version 2 of the License, or
    7.10 +    (at your option) any later version.
    7.11 +
    7.12 +    This program is distributed in the hope that it will be useful,
    7.13 +    but WITHOUT ANY WARRANTY; without even the implied warranty of
    7.14 +    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    7.15 +    GNU General Public License for more details.
    7.16 +
    7.17 +    You should have received a copy of the GNU General Public License along
    7.18 +    with this program; if not, write to the Free Software Foundation, Inc.,
    7.19 +    51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
    7.20 +}
    7.21 +program CDAR;
    7.22 +
    7.23 +uses
    7.24 +  Forms,
    7.25 +  unit_Welcome in 'unit_Welcome.pas' {form_Welcome},
    7.26 +  unit_Start in 'unit_Start.pas' {form_Start},
    7.27 +  unit_Editor in 'unit_Editor.pas' {form_Editor},
    7.28 +  modul_allgemein in 'modul_allgemein.pas',
    7.29 +  unit_Editor_ws in 'unit_Editor_ws.pas' {form_Editor_ws},
    7.30 +  unit_Editor_as in 'unit_Editor_as.pas' {form_Editor_as},
    7.31 +  unit_Editor_tutorial in 'unit_Editor_tutorial.pas' {form_editor_tutorial},
    7.32 +  unit_Editor_CreateAR in 'unit_Editor_CreateAR.pas' {form_editor_CreateAR},
    7.33 +  unit_Easteregg in 'unit_Easteregg.pas' {form_easteregg},
    7.34 +  unit_Editor_as_BrowseDir in 'unit_Editor_as_BrowseDir.pas' {form_Editor_as_BrowseDir};
    7.35 +
    7.36 +{$R *.res}
    7.37 +
    7.38 +begin
    7.39 +  Application.Initialize;
    7.40 +  Application.Title := 'CD-Autorunner';
    7.41 +  Application.CreateForm(Tform_Start, form_Start);
    7.42 +  if paramstr(1) <> '' then  //About-Fenster ausblenden
    7.43 +      begin
    7.44 +        Application.ShowMainForm := False;
    7.45 +        Form_start.Visible := False;
    7.46 +      end;
    7.47 +  Application.Run;
    7.48 +end.
     8.1 Binary file CDAR.res has changed
     9.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     9.2 +++ b/COPYING	Sun Dec 03 21:54:43 2006 +0100
     9.3 @@ -0,0 +1,339 @@
     9.4 +		    GNU GENERAL PUBLIC LICENSE
     9.5 +		       Version 2, June 1991
     9.6 +
     9.7 + Copyright (C) 1989, 1991 Free Software Foundation, Inc.,
     9.8 + 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
     9.9 + Everyone is permitted to copy and distribute verbatim copies
    9.10 + of this license document, but changing it is not allowed.
    9.11 +
    9.12 +			    Preamble
    9.13 +
    9.14 +  The licenses for most software are designed to take away your
    9.15 +freedom to share and change it.  By contrast, the GNU General Public
    9.16 +License is intended to guarantee your freedom to share and change free
    9.17 +software--to make sure the software is free for all its users.  This
    9.18 +General Public License applies to most of the Free Software
    9.19 +Foundation's software and to any other program whose authors commit to
    9.20 +using it.  (Some other Free Software Foundation software is covered by
    9.21 +the GNU Lesser General Public License instead.)  You can apply it to
    9.22 +your programs, too.
    9.23 +
    9.24 +  When we speak of free software, we are referring to freedom, not
    9.25 +price.  Our General Public Licenses are designed to make sure that you
    9.26 +have the freedom to distribute copies of free software (and charge for
    9.27 +this service if you wish), that you receive source code or can get it
    9.28 +if you want it, that you can change the software or use pieces of it
    9.29 +in new free programs; and that you know you can do these things.
    9.30 +
    9.31 +  To protect your rights, we need to make restrictions that forbid
    9.32 +anyone to deny you these rights or to ask you to surrender the rights.
    9.33 +These restrictions translate to certain responsibilities for you if you
    9.34 +distribute copies of the software, or if you modify it.
    9.35 +
    9.36 +  For example, if you distribute copies of such a program, whether
    9.37 +gratis or for a fee, you must give the recipients all the rights that
    9.38 +you have.  You must make sure that they, too, receive or can get the
    9.39 +source code.  And you must show them these terms so they know their
    9.40 +rights.
    9.41 +
    9.42 +  We protect your rights with two steps: (1) copyright the software, and
    9.43 +(2) offer you this license which gives you legal permission to copy,
    9.44 +distribute and/or modify the software.
    9.45 +
    9.46 +  Also, for each author's protection and ours, we want to make certain
    9.47 +that everyone understands that there is no warranty for this free
    9.48 +software.  If the software is modified by someone else and passed on, we
    9.49 +want its recipients to know that what they have is not the original, so
    9.50 +that any problems introduced by others will not reflect on the original
    9.51 +authors' reputations.
    9.52 +
    9.53 +  Finally, any free program is threatened constantly by software
    9.54 +patents.  We wish to avoid the danger that redistributors of a free
    9.55 +program will individually obtain patent licenses, in effect making the
    9.56 +program proprietary.  To prevent this, we have made it clear that any
    9.57 +patent must be licensed for everyone's free use or not licensed at all.
    9.58 +
    9.59 +  The precise terms and conditions for copying, distribution and
    9.60 +modification follow.
    9.61 +
    9.62 +		    GNU GENERAL PUBLIC LICENSE
    9.63 +   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
    9.64 +
    9.65 +  0. This License applies to any program or other work which contains
    9.66 +a notice placed by the copyright holder saying it may be distributed
    9.67 +under the terms of this General Public License.  The "Program", below,
    9.68 +refers to any such program or work, and a "work based on the Program"
    9.69 +means either the Program or any derivative work under copyright law:
    9.70 +that is to say, a work containing the Program or a portion of it,
    9.71 +either verbatim or with modifications and/or translated into another
    9.72 +language.  (Hereinafter, translation is included without limitation in
    9.73 +the term "modification".)  Each licensee is addressed as "you".
    9.74 +
    9.75 +Activities other than copying, distribution and modification are not
    9.76 +covered by this License; they are outside its scope.  The act of
    9.77 +running the Program is not restricted, and the output from the Program
    9.78 +is covered only if its contents constitute a work based on the
    9.79 +Program (independent of having been made by running the Program).
    9.80 +Whether that is true depends on what the Program does.
    9.81 +
    9.82 +  1. You may copy and distribute verbatim copies of the Program's
    9.83 +source code as you receive it, in any medium, provided that you
    9.84 +conspicuously and appropriately publish on each copy an appropriate
    9.85 +copyright notice and disclaimer of warranty; keep intact all the
    9.86 +notices that refer to this License and to the absence of any warranty;
    9.87 +and give any other recipients of the Program a copy of this License
    9.88 +along with the Program.
    9.89 +
    9.90 +You may charge a fee for the physical act of transferring a copy, and
    9.91 +you may at your option offer warranty protection in exchange for a fee.
    9.92 +
    9.93 +  2. You may modify your copy or copies of the Program or any portion
    9.94 +of it, thus forming a work based on the Program, and copy and
    9.95 +distribute such modifications or work under the terms of Section 1
    9.96 +above, provided that you also meet all of these conditions:
    9.97 +
    9.98 +    a) You must cause the modified files to carry prominent notices
    9.99 +    stating that you changed the files and the date of any change.
   9.100 +
   9.101 +    b) You must cause any work that you distribute or publish, that in
   9.102 +    whole or in part contains or is derived from the Program or any
   9.103 +    part thereof, to be licensed as a whole at no charge to all third
   9.104 +    parties under the terms of this License.
   9.105 +
   9.106 +    c) If the modified program normally reads commands interactively
   9.107 +    when run, you must cause it, when started running for such
   9.108 +    interactive use in the most ordinary way, to print or display an
   9.109 +    announcement including an appropriate copyright notice and a
   9.110 +    notice that there is no warranty (or else, saying that you provide
   9.111 +    a warranty) and that users may redistribute the program under
   9.112 +    these conditions, and telling the user how to view a copy of this
   9.113 +    License.  (Exception: if the Program itself is interactive but
   9.114 +    does not normally print such an announcement, your work based on
   9.115 +    the Program is not required to print an announcement.)
   9.116 +
   9.117 +These requirements apply to the modified work as a whole.  If
   9.118 +identifiable sections of that work are not derived from the Program,
   9.119 +and can be reasonably considered independent and separate works in
   9.120 +themselves, then this License, and its terms, do not apply to those
   9.121 +sections when you distribute them as separate works.  But when you
   9.122 +distribute the same sections as part of a whole which is a work based
   9.123 +on the Program, the distribution of the whole must be on the terms of
   9.124 +this License, whose permissions for other licensees extend to the
   9.125 +entire whole, and thus to each and every part regardless of who wrote it.
   9.126 +
   9.127 +Thus, it is not the intent of this section to claim rights or contest
   9.128 +your rights to work written entirely by you; rather, the intent is to
   9.129 +exercise the right to control the distribution of derivative or
   9.130 +collective works based on the Program.
   9.131 +
   9.132 +In addition, mere aggregation of another work not based on the Program
   9.133 +with the Program (or with a work based on the Program) on a volume of
   9.134 +a storage or distribution medium does not bring the other work under
   9.135 +the scope of this License.
   9.136 +
   9.137 +  3. You may copy and distribute the Program (or a work based on it,
   9.138 +under Section 2) in object code or executable form under the terms of
   9.139 +Sections 1 and 2 above provided that you also do one of the following:
   9.140 +
   9.141 +    a) Accompany it with the complete corresponding machine-readable
   9.142 +    source code, which must be distributed under the terms of Sections
   9.143 +    1 and 2 above on a medium customarily used for software interchange; or,
   9.144 +
   9.145 +    b) Accompany it with a written offer, valid for at least three
   9.146 +    years, to give any third party, for a charge no more than your
   9.147 +    cost of physically performing source distribution, a complete
   9.148 +    machine-readable copy of the corresponding source code, to be
   9.149 +    distributed under the terms of Sections 1 and 2 above on a medium
   9.150 +    customarily used for software interchange; or,
   9.151 +
   9.152 +    c) Accompany it with the information you received as to the offer
   9.153 +    to distribute corresponding source code.  (This alternative is
   9.154 +    allowed only for noncommercial distribution and only if you
   9.155 +    received the program in object code or executable form with such
   9.156 +    an offer, in accord with Subsection b above.)
   9.157 +
   9.158 +The source code for a work means the preferred form of the work for
   9.159 +making modifications to it.  For an executable work, complete source
   9.160 +code means all the source code for all modules it contains, plus any
   9.161 +associated interface definition files, plus the scripts used to
   9.162 +control compilation and installation of the executable.  However, as a
   9.163 +special exception, the source code distributed need not include
   9.164 +anything that is normally distributed (in either source or binary
   9.165 +form) with the major components (compiler, kernel, and so on) of the
   9.166 +operating system on which the executable runs, unless that component
   9.167 +itself accompanies the executable.
   9.168 +
   9.169 +If distribution of executable or object code is made by offering
   9.170 +access to copy from a designated place, then offering equivalent
   9.171 +access to copy the source code from the same place counts as
   9.172 +distribution of the source code, even though third parties are not
   9.173 +compelled to copy the source along with the object code.
   9.174 +
   9.175 +  4. You may not copy, modify, sublicense, or distribute the Program
   9.176 +except as expressly provided under this License.  Any attempt
   9.177 +otherwise to copy, modify, sublicense or distribute the Program is
   9.178 +void, and will automatically terminate your rights under this License.
   9.179 +However, parties who have received copies, or rights, from you under
   9.180 +this License will not have their licenses terminated so long as such
   9.181 +parties remain in full compliance.
   9.182 +
   9.183 +  5. You are not required to accept this License, since you have not
   9.184 +signed it.  However, nothing else grants you permission to modify or
   9.185 +distribute the Program or its derivative works.  These actions are
   9.186 +prohibited by law if you do not accept this License.  Therefore, by
   9.187 +modifying or distributing the Program (or any work based on the
   9.188 +Program), you indicate your acceptance of this License to do so, and
   9.189 +all its terms and conditions for copying, distributing or modifying
   9.190 +the Program or works based on it.
   9.191 +
   9.192 +  6. Each time you redistribute the Program (or any work based on the
   9.193 +Program), the recipient automatically receives a license from the
   9.194 +original licensor to copy, distribute or modify the Program subject to
   9.195 +these terms and conditions.  You may not impose any further
   9.196 +restrictions on the recipients' exercise of the rights granted herein.
   9.197 +You are not responsible for enforcing compliance by third parties to
   9.198 +this License.
   9.199 +
   9.200 +  7. If, as a consequence of a court judgment or allegation of patent
   9.201 +infringement or for any other reason (not limited to patent issues),
   9.202 +conditions are imposed on you (whether by court order, agreement or
   9.203 +otherwise) that contradict the conditions of this License, they do not
   9.204 +excuse you from the conditions of this License.  If you cannot
   9.205 +distribute so as to satisfy simultaneously your obligations under this
   9.206 +License and any other pertinent obligations, then as a consequence you
   9.207 +may not distribute the Program at all.  For example, if a patent
   9.208 +license would not permit royalty-free redistribution of the Program by
   9.209 +all those who receive copies directly or indirectly through you, then
   9.210 +the only way you could satisfy both it and this License would be to
   9.211 +refrain entirely from distribution of the Program.
   9.212 +
   9.213 +If any portion of this section is held invalid or unenforceable under
   9.214 +any particular circumstance, the balance of the section is intended to
   9.215 +apply and the section as a whole is intended to apply in other
   9.216 +circumstances.
   9.217 +
   9.218 +It is not the purpose of this section to induce you to infringe any
   9.219 +patents or other property right claims or to contest validity of any
   9.220 +such claims; this section has the sole purpose of protecting the
   9.221 +integrity of the free software distribution system, which is
   9.222 +implemented by public license practices.  Many people have made
   9.223 +generous contributions to the wide range of software distributed
   9.224 +through that system in reliance on consistent application of that
   9.225 +system; it is up to the author/donor to decide if he or she is willing
   9.226 +to distribute software through any other system and a licensee cannot
   9.227 +impose that choice.
   9.228 +
   9.229 +This section is intended to make thoroughly clear what is believed to
   9.230 +be a consequence of the rest of this License.
   9.231 +
   9.232 +  8. If the distribution and/or use of the Program is restricted in
   9.233 +certain countries either by patents or by copyrighted interfaces, the
   9.234 +original copyright holder who places the Program under this License
   9.235 +may add an explicit geographical distribution limitation excluding
   9.236 +those countries, so that distribution is permitted only in or among
   9.237 +countries not thus excluded.  In such case, this License incorporates
   9.238 +the limitation as if written in the body of this License.
   9.239 +
   9.240 +  9. The Free Software Foundation may publish revised and/or new versions
   9.241 +of the General Public License from time to time.  Such new versions will
   9.242 +be similar in spirit to the present version, but may differ in detail to
   9.243 +address new problems or concerns.
   9.244 +
   9.245 +Each version is given a distinguishing version number.  If the Program
   9.246 +specifies a version number of this License which applies to it and "any
   9.247 +later version", you have the option of following the terms and conditions
   9.248 +either of that version or of any later version published by the Free
   9.249 +Software Foundation.  If the Program does not specify a version number of
   9.250 +this License, you may choose any version ever published by the Free Software
   9.251 +Foundation.
   9.252 +
   9.253 +  10. If you wish to incorporate parts of the Program into other free
   9.254 +programs whose distribution conditions are different, write to the author
   9.255 +to ask for permission.  For software which is copyrighted by the Free
   9.256 +Software Foundation, write to the Free Software Foundation; we sometimes
   9.257 +make exceptions for this.  Our decision will be guided by the two goals
   9.258 +of preserving the free status of all derivatives of our free software and
   9.259 +of promoting the sharing and reuse of software generally.
   9.260 +
   9.261 +			    NO WARRANTY
   9.262 +
   9.263 +  11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
   9.264 +FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW.  EXCEPT WHEN
   9.265 +OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
   9.266 +PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
   9.267 +OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
   9.268 +MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  THE ENTIRE RISK AS
   9.269 +TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU.  SHOULD THE
   9.270 +PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
   9.271 +REPAIR OR CORRECTION.
   9.272 +
   9.273 +  12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
   9.274 +WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
   9.275 +REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
   9.276 +INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
   9.277 +OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
   9.278 +TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
   9.279 +YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
   9.280 +PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
   9.281 +POSSIBILITY OF SUCH DAMAGES.
   9.282 +
   9.283 +		     END OF TERMS AND CONDITIONS
   9.284 +
   9.285 +	    How to Apply These Terms to Your New Programs
   9.286 +
   9.287 +  If you develop a new program, and you want it to be of the greatest
   9.288 +possible use to the public, the best way to achieve this is to make it
   9.289 +free software which everyone can redistribute and change under these terms.
   9.290 +
   9.291 +  To do so, attach the following notices to the program.  It is safest
   9.292 +to attach them to the start of each source file to most effectively
   9.293 +convey the exclusion of warranty; and each file should have at least
   9.294 +the "copyright" line and a pointer to where the full notice is found.
   9.295 +
   9.296 +    <one line to give the program's name and a brief idea of what it does.>
   9.297 +    Copyright (C) <year>  <name of author>
   9.298 +
   9.299 +    This program is free software; you can redistribute it and/or modify
   9.300 +    it under the terms of the GNU General Public License as published by
   9.301 +    the Free Software Foundation; either version 2 of the License, or
   9.302 +    (at your option) any later version.
   9.303 +
   9.304 +    This program is distributed in the hope that it will be useful,
   9.305 +    but WITHOUT ANY WARRANTY; without even the implied warranty of
   9.306 +    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   9.307 +    GNU General Public License for more details.
   9.308 +
   9.309 +    You should have received a copy of the GNU General Public License along
   9.310 +    with this program; if not, write to the Free Software Foundation, Inc.,
   9.311 +    51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
   9.312 +
   9.313 +Also add information on how to contact you by electronic and paper mail.
   9.314 +
   9.315 +If the program is interactive, make it output a short notice like this
   9.316 +when it starts in an interactive mode:
   9.317 +
   9.318 +    Gnomovision version 69, Copyright (C) year name of author
   9.319 +    Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
   9.320 +    This is free software, and you are welcome to redistribute it
   9.321 +    under certain conditions; type `show c' for details.
   9.322 +
   9.323 +The hypothetical commands `show w' and `show c' should show the appropriate
   9.324 +parts of the General Public License.  Of course, the commands you use may
   9.325 +be called something other than `show w' and `show c'; they could even be
   9.326 +mouse-clicks or menu items--whatever suits your program.
   9.327 +
   9.328 +You should also get your employer (if you work as a programmer) or your
   9.329 +school, if any, to sign a "copyright disclaimer" for the program, if
   9.330 +necessary.  Here is a sample; alter the names:
   9.331 +
   9.332 +  Yoyodyne, Inc., hereby disclaims all copyright interest in the program
   9.333 +  `Gnomovision' (which makes passes at compilers) written by James Hacker.
   9.334 +
   9.335 +  <signature of Ty Coon>, 1 April 1989
   9.336 +  Ty Coon, President of Vice
   9.337 +
   9.338 +This General Public License does not permit incorporating your program into
   9.339 +proprietary programs.  If your program is a subroutine library, you may
   9.340 +consider it more useful to permit linking proprietary applications with the
   9.341 +library.  If this is what you want to do, use the GNU Lesser General
   9.342 +Public License instead of this License.
    10.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
    10.2 +++ b/cdar.ini	Sun Dec 03 21:54:43 2006 +0100
    10.3 @@ -0,0 +1,5 @@
    10.4 +click
    10.5 +3
    10.6 +207
    10.7 +86
    10.8 +..\
    11.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
    11.2 +++ b/modul_allgemein.pas	Sun Dec 03 21:54:43 2006 +0100
    11.3 @@ -0,0 +1,25 @@
    11.4 +unit modul_Allgemein;
    11.5 +
    11.6 +
    11.7 +
    11.8 +interface//#####################################################################
    11.9 +
   11.10 +uses shellapi, sysutils;
   11.11 +
   11.12 +function fktCMD (const Parameternummer : integer =1): string;
   11.13 +
   11.14 +
   11.15 +
   11.16 +implementation//################################################################
   11.17 +
   11.18 +
   11.19 +function fktCMD (const Parameternummer : integer =1): string;
   11.20 +  begin
   11.21 +    if parameternummer = 0 then
   11.22 +        fktcmd := extractfilepath(paramstr(0)) //+ '\'
   11.23 +      else
   11.24 +        fktCMD := paramstr(parameternummer);
   11.25 +  end;
   11.26 +
   11.27 +
   11.28 +end.//##########################################################################
    12.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
    12.2 +++ b/unit_Easteregg.dfm	Sun Dec 03 21:54:43 2006 +0100
    12.3 @@ -0,0 +1,360 @@
    12.4 +object form_easteregg: Tform_easteregg
    12.5 +  Left = 227
    12.6 +  Top = 227
    12.7 +  BorderStyle = bsNone
    12.8 +  Caption = 'form_easteregg'
    12.9 +  ClientHeight = 198
   12.10 +  ClientWidth = 248
   12.11 +  Color = clBtnFace
   12.12 +  Font.Charset = DEFAULT_CHARSET
   12.13 +  Font.Color = clWindowText
   12.14 +  Font.Height = -11
   12.15 +  Font.Name = 'MS Sans Serif'
   12.16 +  Font.Style = []
   12.17 +  FormStyle = fsStayOnTop
   12.18 +  OldCreateOrder = False
   12.19 +  Position = poScreenCenter
   12.20 +  OnCreate = FormCreate
   12.21 +  PixelsPerInch = 96
   12.22 +  TextHeight = 13
   12.23 +  object img_Marmaro: TImage
   12.24 +    Left = 0
   12.25 +    Top = 0
   12.26 +    Width = 250
   12.27 +    Height = 200
   12.28 +    Cursor = crNo
   12.29 +    Picture.Data = {
   12.30 +      0A544A504547496D6167658B280000FFD8FFE000104A46494600010101004800
   12.31 +      480000FFDB0043000604040405040605050609060506090B080606080B0C0A0A
   12.32 +      0B0A0A0C100C0C0C0C0C0C100C0E0F100F0E0C1313141413131C1B1B1B1C2020
   12.33 +      2020202020202020FFDB0043010707070D0C0D181010181A1511151A20202020
   12.34 +      2020202020202020202020202020202020202020202020202020202020202020
   12.35 +      20202020202020202020202020FFC000110800C800FA03012200021101031101
   12.36 +      FFC4001C0000000701010000000000000000000000000102030506070408FFC4
   12.37 +      004C100001020404030503070808060105000001020300040511061221312241
   12.38 +      51071332617114428116235291A1B1E215336272A3C1D1F00824344344548292
   12.39 +      175383A2C2E164356373B2F1FFC4001401010000000000000000000000000000
   12.40 +      0000FFC40014110100000000000000000000000000000000FFDA000C03010002
   12.41 +      110311003F00B2E3CED530AE0A2DB55553CE4EBE8EF5894976CA94A45CA6F995
   12.42 +      95B1A8E6ABC7260CED8B0CE28AAFE47431354DAB29256D4A4EB6105C48198E42
   12.43 +      92ABF0EB636D22BBFD23E9CCB786E9B88D945AAB499D6FD9E607BA85F11046C7
   12.44 +      8D09FE6F0D60DA4633C698DE978FF10CA354BA5C8CADE8F2AD2C38A783C8514A
   12.45 +      C9049B59DCDADB90B6F01AA9AE5144E8913509613CAD132BDF23BD27C917CDF6
   12.46 +      4744D4DCACA30A7E69E44BB08D56EBAA0840F552AC0479331A5270CC8632C574
   12.47 +      89396987AB0A9B9618704B2944A1F7085BC0D8EBAAAC05AF7DAD1AAF6E489F57
   12.48 +      67986A8B38F84D46A13B252F36F3874CE1950716A371B3841301B0ADD690DF78
   12.49 +      B584B6352B26C2DEB014B424A42940159CA804EE6C4D875D013189D29AA8F695
   12.50 +      D85A29B2936A6EB54A21871B0BB07D729AB4DB9D42DBCA41FA7AF28AECC625C4
   12.51 +      3DA457305E1F9275F91A8D290662BB329BA1C626195F74E387A2825BB8F372D0
   12.52 +      1E90825292949528D923524EC04002C00BDEDCCC66DDB76295495125F0D494DB
   12.53 +      52954C44BF67F6879C0D21894FEFDE5AD4404A6DC3E84DB680B361DED1B05E22
   12.54 +      71B66935565F9A773E494BE578F777CC7BB3C56B26FE91648F35D067702E1BED
   12.55 +      8F0EB3479F44D5265A444919C66EE77936FF007A9B928BEAA5B83C87A47A5202
   12.56 +      BB2D8E294FE379BC1F91C45425259135DE2C00DB8156B86FAE50A1F6F4872731
   12.57 +      7C8CB633A7E1529CD393F2AF4DE7CD6C8968809196DAE7B2F9E996312ED9314B
   12.58 +      F87FB6CA456A593734B9397F694A37534A71DEF12AFD66DDCBF54435271C3958
   12.59 +      EDF6431102AF609A9E32120A3700B2A47B3206BCCF7814475301E9E989C94972
   12.60 +      D8987DB64BCB0DB21C504E75AB4094DF727A085BCFB2C365D79C4B4DA7552D64
   12.61 +      2523D498C23FA494C4C3D5EC39292CF8977E4A5E7AA285DED653490EA79EFF00
   12.62 +      D5C84F9C5AF194F52B1A761CFD69FB59523EDA9CA6D926D90414FC1D05301A2C
   12.63 +      8556975142974F9C627108365AA5DC43A01E84A098E8438DB809428280252483
   12.64 +      7D526C47A8223CE3D85312CFE3A9098C36CCCB3212D4A08C4AE2C9EE5736A49D
   12.65 +      AF7DD7620791B0B42E81DA8B184E4FB41A1A1D39A566E6DDC3B98F16675F2C58
   12.66 +      5EDE0252E5BF5A03D12D4C30F3297DA712E32A1992EA482923A823482969B959
   12.67 +      A6BBE95790FB5729EF1A505A6E93650B8B8D08B18C9303E2027FA3B4D4D15FCF
   12.68 +      C8C85425F37E9A7BCEEBA725A622FF00A36D7552AAA8612987D2E5DA66AB2363
   12.69 +      7D1F6905E47AA73234EB780D9DDAE51599B4C9BD50966E6D66C8975BC84B84F4
   12.70 +      0826F1DB1E53ED3E9784E9FDA262C927259F7A6E69A6DDA536C289526A3345B7
   12.71 +      54481EE9CEAE1B1DF4E516FED01CC42EFF00C34C21509F9A91999E6D9455DE6D
   12.72 +      E5256A5ACB4D5956365388E2D557D4C06FB02320C0F58AC619ED527FB3E9A9E9
   12.73 +      8A951DD67DA692F4DABBC7DAF9B0E14E7FA36CC2DE42D6B98D7E004081020040
   12.74 +      81020040810200408102004081020295DB1617AA626C09394BA5321FA8171971
   12.75 +      8694B4A2F91C055C4A2137CB7DCC3BD92C9D7643015369B5C9654A54640392EB
   12.76 +      6D6527810E2BBB20A4A8119081BC740C6C483FD47F6BF820D38D6E7FB1FED7F0
   12.77 +      4064D88BB14C655AC7388AB92E534E577C26E87365D47CE3A8526C084152DBE6
   12.78 +      412342225B1BE04C678967B003D59A72279F9758189D6CA929652D179A252519
   12.79 +      FF00E5E6CC51BF2E51A1FCB520DBD8B5E7F39F8201C6841B192F4F9CFC30152C
   12.80 +      038271060AC558B6A0186D1852673BF2528D2B33A4A0971BEE9A4E6B00952916
   12.81 +      241DA247B23C2933292D3D8B6AA95375DC52BF6B99962004B0D296A5B4DA740A
   12.82 +      072AEEAB9E9D227158D149D7D8B4EBDEFE184FCB7D3492B9E9DE7E180B4C57AB
   12.83 +      9D9F60DAF540546B14B6E7A7036194B8E959B201B80139B28D49E50CA71ADC7F
   12.84 +      63F8779F860BE5A9B7F62F4F9DFC101526BB216657B5890AF485324A5F0D494B
   12.85 +      01DC009BFB480BCAE25BB1E24A8A4E6DF48D562AFF002D8FF92F5F9DFC30AF96
   12.86 +      9FFC3F5F9CFC1019DE28C035AADF6CB34B9F9074E1BAAD3D72699F090B6D244A
   12.87 +      DD2A396F90A5F4DD39EDA88A8F68F8167F074BE05669B2AE4ECDD3FBD7669F96
   12.88 +      6D6BCF30979B74EC2FBAAC9BF28DC8E3423FC1EFFF00DCFC303E59F0DC49FC3B
   12.89 +      CFC30145C43D9BBF5FEDA18AACFD24CCE187248266261C50282E869611C05598
   12.90 +      58E5D32DAF1CB863B38C7B4CEC9F136189C69A79F9C2A3489643A92BE2B05851
   12.91 +      243690ACA1438FADE343F96A6DFD8BE1DEFE08238DBFF85AF4EF3F0C066FD9B7
   12.92 +      655DA0E0EAD52AA128FB2DC9CFA03789641C505F761B2A20A329B28916CAA078
   12.93 +      4AB6CB78E2C29D894F54AB4E4FE2492328F4A569C9C792E94B899B947539D280
   12.94 +      A4E64AACEA05F5D94A8D57E5BEB6F63B7FD4FC307F2D6CAB193DF63DE7E180C6
   12.95 +      30E60BC66FF6318870DB9459A4D47F28B3314F65E49972B054DA5C29EF726648
   12.96 +      0DABEBBC5868FD92E21A4E26C135BA14A3321EC74F61188D2B732DDECB699042
   12.97 +      7395AD61C501616B811A37CB4D6DEC7FB4FC306AC696FF0007FB4FC30196E38E
   12.98 +      C5F14E29ED26BD566F2C948BCCB2BA54FA9C4D9530CB0C24052104B891742C5F
   12.99 +      2E9BEB1358A3B3EC7F8830A61EAA4D3D2FF2EF0F3A5F6C26C943A02C1482BBE5
  12.100 +      CFF34955F417B8D378BBFCB53604495FAFCE6DFF006C0F96BD24FF0069F8602A
  12.101 +      B82707E2F9EED026F1DE2E9366993225C4AC8535A710F14F084A9C2B4150DAF6
  12.102 +      D6FAF96BA8C567E5A7165F63D7FF00C9F860BE5AEB6F62FDA7E180B3C08AC1C6
  12.103 +      96FF0007FB5FC307F2D386FEC7FB4FC3016681159F967717127FB4FC30138D09
  12.104 +      FF0005FB4FC301668115BF965A7F64FDA7E180718E971277FF00A9F8602C9022
  12.105 +      B6718903FB1FED3F0C17CB2D7593B7FD4FC301658115A38CEDFE0EFF00F53F0C
  12.106 +      27E5AA7FCAFED3F0C056721491A69CCC0CBADF6079C293C62CABDF9183EA149D
  12.107 +      7A4012B8C5FDF1F6C27215709F87510A1952730D2DB42AC956BAE680427C1955
  12.108 +      A2A1BCBC5CF48E8282A4E82CA1012842B4E7D2019C851E63E8F485E5CD6B6877
  12.109 +      5085AD361B6D0A46A34D07DB00D287C7A7A4124F222FF7C3F94916E9B427BA50
  12.110 +      55EFA9E50090012068612410A255A11B8EB0EE5D0DF584F7574D89DF680494FB
  12.111 +      C9D3CFAC114E61D0F310E0193855A81A6B03BB5A35DD079F31E500D9482AEF01
  12.112 +      D61393374CDD21F28F7ADFEAD84536ADDA8616A7CF1935AD6F29A365B8D5AC0F
  12.113 +      3D79C05B32A6D650F5F28006846E93B4414BE3EC1AFB41D45559093EEAC94A87
  12.114 +      C200C7783AD94D5981AF53FC2026EC50AFD1DE17C24664EC7C42219AC61859E2
  12.115 +      509AB4AAAFB5D76FBE2425AA326EDBB99969E0762DAD26FF006C07496F5EA7AC
  12.116 +      15944EBBF23D60CA4A0DF5CA76F2821B6FF080013D7E1044292ABFDD0B19176B
  12.117 +      F4FAE0017272E89E900413D34E8615975DB6DCFEF8309520588B0DEF0608161F
  12.118 +      51802DB548B9E70E379B97C21237D34F285E63AE961F7C0215A9D15CFF009105
  12.119 +      6EBB1E460C8B78352615A11D0C0359024EBB723032ABE8087728D41D4EF09B79
  12.120 +      8802EEEDC434F2872D9D015B91A42940E5E2E5005C1B9F8880425374F10CBD44
  12.121 +      04857D5B42D4D9492B4EA0EFE900A0AD3A1F8738048035E47908053B280D6161
  12.122 +      171C5BF585E5B0B0B1FBA018D7C5CE014122E371BC3CA469B6A37F3F4824A11E
  12.123 +      2DC1DADFBE01B47AD818594A88D53AFF003B42F280337D90AB0D0F5D44034506
  12.124 +      08A465F5E50F65BEC6C371E5140C6FDA9334A74D26888F6BAD2B84AC6ADB7E7E
  12.125 +      A202CD5CC4345A14A77F54984303DC45EEB57A2778A14FF6B3549CCC9C3F4FC8
  12.126 +      D9D3DB26B6F5088AB374B766264D42B0F19FA82F894A59BA537E4911DEA17D7E
  12.127 +      E8062726F1354B37E53AC3CB49DD967E691F66B1C2DD0A94DECC051DCA97751F
  12.128 +      B6175099AACB3F76A4FDAA4C0E2293F39F5414957299347267EE5ED8B4EF09BC
  12.129 +      03C99293074976EFFAA215DC316FCCA0FF00A4474140B109DC8D2FB794414D4D
  12.130 +      5665DA71B9F972B695B4DCAF893F08090729F26BD172AD9FF40860D229B7CC86
  12.131 +      7BA3F49A5291F7188465C9E2EA1F919FF6AEEF4F6770E45E5E841DE3A138A661
  12.132 +      97CB73F2A5B1E5A11F5C05824E6F10D3F8A9959986C0FEEDE3DF23FEED62729F
  12.133 +      DA5D7E4AC9ABC826699E73527E2F5C862BB2D3F25304869E4A94371D2F1D1B6A
  12.134 +      3480D3A898BE815945E9D3885BC7C52CBE0747FA55133989235BAB95F4FAE30D
  12.135 +      9AA549CD2C2CA7BA7C785F6F8563CEE22528F8F71061D5A59AC5EAB4724244CF
  12.136 +      F7CDFC7F8C06C42E55D3CA156F306236935BA655E51B9C91980F30E6CB1B8F25
  12.137 +      8E4444805257C2537234807136BDB7F381EA3886D0344EFE0E70764784EDCA00
  12.138 +      B456DE2E9CA159469AEA205969B2BDD8328BA872F580009B1EA2059CFE442865
  12.139 +      50CDB2BA8E709EF40D358076C49EA2DA180A495236E210E232DB2DEC9FB60D24
  12.140 +      58F3239C0329CF6FFC2064CA6E0687EC30E96C2AC4683ED8196FA6FE7008D86A
  12.141 +      7E06070900EDFB8C28B6336BBF285806DE1BFD2806F537077BC17769B9B1D0EE
  12.142 +      930EA908DFEF83D3F71100D252523A88194A4F9723CE1CC9B731CFD212E3ECB0
  12.143 +      D29D79610CA7C6B540533B4FC5C70FE1F5A193FD76686541E893194618A6F76C
  12.144 +      7B7CCF14E4CF1951DC031DBDAED4854B1030868E7654A01B4796D1DC84143612
  12.145 +      8F752004C019C891AE839930CCB4D4A3E3330E255D45F5FAA3866E615C626DB0
  12.146 +      A97B7120DC5BCEE2383D86466417A4260076DC0959B7C028403F5BA929A5AE55
  12.147 +      F43F2AC9B649E6B5FB2231487E65ABAD0D5625C6EF35C33091E7CE241B9EABC8
  12.148 +      3286273FACBAF1F9B6562E32F4CFB130CF7786E71DBA14AA5CFA74CC939466FB
  12.149 +      A03924DF5B472536A050A1FE067465F8056D0A9E9B716FA173BDF5326922C975
  12.150 +      BE364FC23A2769F56427FAD30D55A586CE8E17ADEA23925DC48416E9F3BDDABD
  12.151 +      EA6CF0D3D013A4025D61D791DECC4B373ED7F9A93367079903F84134A5389EEE
  12.152 +      5A69B9C6FF00CA4E0CAE0F204FF180EA65E5DD0A9A977A9330769897E268FC3F
  12.153 +      84494AD25D9E215514B3372CB4DD99C6F81C3EB6B40428A34C3EE953128E4B16
  12.154 +      C8EF5ACDA11FA04C59933BDE30A12DC130D80324CF00F89F3879E9A4C8B68438
  12.155 +      D39ECE9D12EA78EC07D2E70A53B29392FC01138D9F123DEFE301CCC4FB84A913
  12.156 +      92CB955A05CABC4D91FA2A8E96D72D30D9EED4979958B2B2EA3D088847AA8D49
  12.157 +      AD0DB0B79AB5FBD95793980E9BF2F48E06E6A61336A9D61A6D4946E866E9FAD3
  12.158 +      01272952AA60DAA09CA7A8AE9AF9B3D2E763FA27CFA18DBE835994AC5319A84A
  12.159 +      3B99A746879A0F3428794624CAE7EA34FC8B4A26A55F052B3B3AD9F749E46D11
  12.160 +      586AB756A4CCB8DCA4D38C29049EED1AA54A1C8A4E901E966D573652AFD130FE
  12.161 +      961193503B5BCC4355460389FF0030CE9FF698D1A915B91A94A89894783ACAB4
  12.162 +      04723D0F43012C02BDEDA0D5C278B686D04DBAA7A43809481CFA0803B0E5F110
  12.163 +      BCFE5F6437C20E607483CABFF98201FEECE6CD974F28252524EBC2B1CC6C61EB
  12.164 +      2B2FDD0839B5CDF1804E9AF96E07584F76730B0E2E70EF2CC36D8F5819387A01
  12.165 +      CE00882743AA613954156483986C7AC3A9B1B5F430E650B0027780606A2C7488
  12.166 +      BAFE22A361E97331557FBB49176D23C4AF8444637ED228B86195202C4C540ECC
  12.167 +      8D403FC631A32F5CC6351354AC2D689226EDB6798F2F280BFF00FC7154CBAA14
  12.168 +      8C3EECE320EAB5AB2C40D7B16E3AAF3FC320DC84B274436E2EE0799EB1D12B22
  12.169 +      D30D25997477681A25098E5A9E22A0D11DEEE756A7A713BCA363C1FAC4E900CD
  12.170 +      1B07BAA9BFCA7557FDA667DCE491E9129514B09994CBB7DD07B266EE4AB2B8BE
  12.171 +      9962BFFF001624B3FF00F4E5E4EB9C5E14BAAC96329D6A9EC944ACAB567565CB
  12.172 +      7B52C8F71B572101DFF30E1EE17C0EDBF30F8CA7E1C8C712B0EC834E294D35DC
  12.173 +      3AADD1EEFD516096C38D3799B7265D9B9123E6A5E63894D2873439E285BA2558
  12.174 +      67D9DBBBAA4FBCAE223E3015199FCAD4FCBDD346658BF15B5CBF030D3B45929E
  12.175 +      67BF2C2A4DC56A548E249FD641EB1C750C595153AB1249084A4D94A02EA4DB4D
  12.176 +      530FD17154C4C4F22466B2BA5CD1B986F4FF0070805B34FA9CB4C95C9CC112A8
  12.177 +      1728F1E6037013B83D2185D4A9750716CD524B2BA8B9CE34504F53161995C8B5
  12.178 +      F38FBC84006D9D2AD6FF0008E79CA7A66DABA3BA7DDFEEDFE7FEE101C14AA74A
  12.179 +      67CF253E66248EF28E710FB7A44D7024646F2E9A06869F545315293522EABDA5
  12.180 +      A5CA36412E38CEA92A1E1CBD224E4E6E99549601F74A5E6C7129672A81E442C4
  12.181 +      074D62A52DDCB928E778CBC45BBA50B66BF43E515D97987A5C2D2C94B8E9E12E
  12.182 +      DECBCBD3AFC626DEC3EF3CF7786714AE1D16BD5571E1D7C244454C34F3727DCC
  12.183 +      CC9F74A42FFB46C6E79FA403AF4D4F38F36C4FB65762121A56E6FC82C6F12125
  12.184 +      225E7FBCCDDC4ECB1B251974C9CB375D20E4A90FB80B33D772E0392F3CD2BEC1
  12.185 +      E713C19504A6F73616CE60196D969B376D01198E65DB405519EBB65D62632E89
  12.186 +      2E2FEF8BBD6AA0D53E9EB789F9C570B29E6547F8452E8D28E3AE2DE3A8485295
  12.187 +      E83730074A43EA9969B9667DA665D7036D4BFD2276D39DE2C12DDA0566893AB6
  12.188 +      A4251A91CA724E4B5894AD6936B9BF84C562CF30E25D6D65B750414AD072A82B
  12.189 +      A8312F4AA54CD5144D94EBAE9D5C56A547ADFEF301AB60DED5252B936D53E6E5
  12.190 +      CC9CF2FF0036EA0E66C9FDD1A036E156AAD6C75FE2232AC2D85A5A9450C349F6
  12.191 +      8994A8393D32364E5D92234A9259732950D4F3E5AC049056BBEBEEC3976BE808
  12.192 +      4EC0050190F848E50BEE93F4A03B72156A957AFF00086F809F0EDB7943D932EA
  12.193 +      36E77E506508BEC6D00C84242AE0F10DC0D88850484DFA7F3A4295648F0586C3
  12.194 +      ADA14D9D3A9E7E9004A0943657E16D22E54AD93EA6327ED13B61664C2A9787CE
  12.195 +      79C570AE613F558427B72C653922D8A348B85B0A1F3CEA4DB3791F48A0604A23
  12.196 +      2583547C77930E121A2AD72DB73EB00BA36187E65FFCA95D25E9870E64B2AFFC
  12.197 +      BF845B05ADA0B01A01047CE392A93CEC8C9A9F6E59734A1EEA3DDFD23E50055A
  12.198 +      9CF64A6BAFFB40955DBE69EB6639BA253CCC53862E959F0966BD20DD46FB4DB2
  12.199 +      3BB981EBD639EB359FCACDB4E4EB3C6010C2995652075283BC4006943368A4AC
  12.200 +      7839180B2AB0952EA77730F4FA5C5739299F9B747A1D8C474B50AB12B5D9694E
  12.201 +      E5C6A6D2E26CAB586875215D21CC3B87A76A8F899714A6655BF1BE3457FA62E9
  12.202 +      4D457A5D650E541B9EA3FBAEAEDDE0E82FCA02C5353E48C8D1D3DF5F5EB68E1E
  12.203 +      BAC1D87A030328E5A88087AB5064A65CF68F63CCF2BF3AA695DDA8F9F9C42D46
  12.204 +      954C14F5354B6D49A8A4F1B6EF03C5037CBF4A2C552AE53E492E256BCCF37C25
  12.205 +      A1BDCED78A9CF4D19C289942568C9A596AD53E683BDA020D696912A5AF657915
  12.206 +      02BD1773972F4CBD62E186279912CDC8CC10DCF1BAFBBEA9F3E8A88B97AED464
  12.207 +      F88B81F40565525D4EC4EDAC4F77520F4AFB7CE31F92E65678E61BE2209F7AFD
  12.208 +      0C03CF1AD34E296DF753F26AD52CECB03A03B18899CA5D0E6807722A466D60A8
  12.209 +      4B9E1248F2D8DE15354BAFCA30D9A04D17E4BC44020AB31DCFEA9835E244CAB8
  12.210 +      C4BD7A56F3606653C900817D8DBAF5B4045271054995F752C43086B44CAAD3A9
  12.211 +      EA083BDE2CB4C99159933DECB869C3A2F4BA08E60A4ED1C428F273CE7B7D366C
  12.212 +      38952B329B7867413E5CD26261BEF1956D6EBEB00F8936E5DB4B6D272369164A
  12.213 +      06C3D22B13E2A54ABCE3D38A5283B7BA97C2E35FF2C35F4BCE2C950AC49D3E48
  12.214 +      BF38787FBB40F128F4114872BD375F7134F7A4DB754B72F2CA427E7517F72FCD
  12.215 +      301C532FCF57AA1DEAC10DDF2B6DA7648E494F9C5EE4B0A1A652C8787F599A4D
  12.216 +      D481EE3635CBF1E712F86708B148692FCD653376D8785AF4EA7CE3AEA6F99C3E
  12.217 +      C52C92A997F41E4DF3513C8406772340767EA096D282BCCAE1B73EBF08D1E468
  12.218 +      ACD2D2DC9B26D34F0E27B2F0817D403CADF6C48D1E87294C6AC9E3797F9C73AF
  12.219 +      A7945B295430AFEB3349CA7DC6CFEFF5808FA5D203484B691F363A6E49F78C4C
  12.220 +      265D48B65D2DC84750EE5374368B81A11094A06875083B1E86012C581CA763CA
  12.221 +      1CEEC7480A4AB6E636BC16657D11F5C04B90956B6F220C252937B03A7BB0602E
  12.222 +      F94EA47DA202C79FC200595F111CD3D32D4AA438AF111C0D8F11883C658D25B0
  12.223 +      E0936FD9D535393CA299717B369B7BCEAB908AFD22A9255A6DCAA4BBB32CCD95
  12.224 +      7F58A7CD8F09EAC9E688080ED3F0CBF579776A4DB798A389E4A35294FD2FF4C5
  12.225 +      1708D5934E4FE49A91EE52A56694983F9B55F95E374914BB9DB713E0734EA9BF
  12.226 +      30622B10F66D40ABA565B6849BCAD4A2D79751EB6DD07D20337C555E7A892EC3
  12.227 +      8D301FEFC9E257845BCC455AB159C4350612F38D2E5A432E62960EFF00A4A3D2
  12.228 +      2DD54C0B8A30F83EC8BCF27FF25F1DFCB2BD15A911529CB25458790AA636E2C1
  12.229 +      725CDD52CAEA10E0F0A4F48062568752EEE5A527109C938B059E6EA1B1BB89F2
  12.230 +      3160630B4F4B4CA51DF35394FBF1A1F4DD691E461CA6502655526AA8ECFA261A
  12.231 +      651925932FE14A06C9F48B10B7D700D36C36CA036DA42529D9236F48887E80FB
  12.232 +      7ED2B94577A1FDE54F0DAFBDB9475D6EAAF53584ADB955CC2D7B11F9B48E79D5
  12.233 +      CA3899C4B235097086267D82695E175D176F327C490AD8C07209E9DA73A1BD52
  12.234 +      C10025B77529B6F6F589396AFCAA88EFDA532926C958E2493CBCC43735597257
  12.235 +      2A6AB281C97578665233A09EA3A423D8242A281314B9BCA45F87749BEF7E8602
  12.236 +      0EA14D9F6265F9B752AC85454DCCB7F3AD7FAB98D2391B650B68BB6F9B3E0791
  12.237 +      C46FD2DE7131EC953900ACEE38C94EADBC9E2464E8473F8C34A7E9D328EF5E97
  12.238 +      534059227250E45E7EB93C2603A2918796A2262A201E6DB1C87AC4DCC4C4A4BA
  12.239 +      529985A5097385398709F231192D50AA348E15A2B0D27E87CDCC84FE920EE444
  12.240 +      7D56BC2710EC9B6C82D287134E0B380F5B1D6E201C9F9FA7C9CE364B4F48CC5B
  12.241 +      45306ED94FBA72EC44122AACCD48B8BAE4AA0C9A746E680D5C57448DEF1C747A
  12.242 +      1BD3CA4AE6147D953A2927DEE8018731D4996E4E48B62D28C9285206C09D8C03
  12.243 +      52358A83AD896A34B224E4C1E15AC675FC62669B49C6532F284C92E49B9A77C2
  12.244 +      C85A7F4903CA24FB3B97A7A996E61D4870936436760075F38D498725EE021A1E
  12.245 +      B6DA031C9AECB2A930F296F4FAE739327291A79DF41164C2B832470EB0A79567
  12.246 +      2795E278FBA3A08D1A712C997BA96107A452EA2FCC2E6BD92585DE56BAEC84FD
  12.247 +      35C0724F4CCC3F32896974E678EA86F901F4DCF2F28929293449208BF7AFB9AB
  12.248 +      CF1F12D5E5E439083949366491951771D70FCE3C755B8AFE761167A2504B63DA
  12.249 +      E646678FE6D1C93FFB802A3521774CD4C20E61E16CFBBEB13AE397E141CAAFB2
  12.250 +      094E287853BFBD0CA81FAF9C01285D5BD94378585A81D788FD86016C9D2F65FD
  12.251 +      F0611AF973F280316E7717FAE15997D53FED801BD2C6CA1EE93D3A437DCB7F4D
  12.252 +      5012CAB91E7D60650A4F17C4985FA0D79C114F11B27CF480AD627C4B40C30B96
  12.253 +      9CAD0496269465DB70A33D956BEA390B738CBE624AA8FCF9AB616ADA4E5B844A
  12.254 +      B873B2537BE5F28B27F484A5D42730A493B292EB984CB4C153E5B1728414D828
  12.255 +      81ADAF1E7A90A9D429EF0764DF5B0E0FA27EF101E8CC378DA65E4190AD537F27
  12.256 +      4F5FF388E261C5725A0F2BC5AA5A74BA921C1915F618C2685DA92436897AECBD
  12.257 +      D2AF0CD33BFA94FF0008D1A815A6A799EFA913A89C6F9B37E21F03A880BD7852
  12.258 +      40364AB74EE93F0880ACE0AC3D5442B335EC4EB9E25343334AFD66CC097C40D8
  12.259 +      391DBB4E734AA25D99C69DB1B8D79C064B57EC9AAF4952A728CF2DB035EF656E
  12.260 +      B6FF00D4DEE2210620AAC870D6A47BD6869EDD2BAFFB931BFB6024E642F29EA9
  12.261 +      8E0A9E1DA3D4EE66A5C21E3FE259E05FC79180C1E6454AA931EDB87AB097D3AE
  12.262 +      6907084E507DDCA7706206AEF25003354A4AA4E610745B574B5FAD93C378D471
  12.263 +      1F636E1519BA59EF96350ECB7CD3E3D51B2BE115274E2BA75E5EA32A2B3268F1
  12.264 +      A169B3C903AA4EB01C7486A72464BBEA64C7E5D6DC494FB10D9A3C94A42BF747
  12.265 +      2B15BA43AEFB3CD36E5166C68EA9AFCDE6BEBC3B8BC25B91A0BD36A9CA43EE4A
  12.266 +      BEDEABA4A945A754AFA285FEE8667B12A1D9EEEA7A92DB808EED6A70143AA1D7
  12.267 +      375F380B73F3B388960F48308A94B0B0506D60AC8E6639E53E4FCE4C9019F679
  12.268 +      A09F9E927386F7E79799F311054FC333C65BF28D0675C614B51CB2AEDD0AD391
  12.269 +      3B1F58765313A533EDA311C9F7736C9296A7729040E77FA501D53F4EA9CA3AA7
  12.270 +      D328998424E6666993C6D8FA2A46F1D34E937AA0DA1DA8212EB438A5DC50B3C9
  12.271 +      50E655B91E46271879B75B43CD139162E83B690B558052D44040D54B3A0B4036
  12.272 +      10948D00091AF4114AC4F5AFCA8B34BA70CF2E140BF31C9453D3C843988B11AE
  12.273 +      A4E2A9D4B3FD576989ADB3F90E8989FC1982D2B69337349EEE4C78507773F0C0
  12.274 +      3183BBCA4A1B54C92D30EDD4D9B5CE54E9980F38D3E9937459E484B53A5E5917
  12.275 +      2D25402BE2229F5DCAE4D6748F9A653DCB7946C08D618A7E1EA32DAA2BB4C54C
  12.276 +      3752A7A94A9D749B2566FC24795A02EF53A830C5A4E4580A9D50BF7ABD4369FA
  12.277 +      47F84714B4B06BC3771E74FCE387752A14197D530DAD0038B52F33F9FC4BF4B7
  12.278 +      3E9168A3510307BE98B1717AA4721FFB80452A8296809898E27D1AA51C93FC62
  12.279 +      5B35C68343F6FA41A9D5A4E9B0D0FF003D212027529D8C02005036FBF63FFB84
  12.280 +      940EA7EFB43A2E753AEE0FA42BBB6F439AC36BFF001804800A771730652B16CF
  12.281 +      FEE832DA5274178501A5EE7279F28009404E853741D72FF085656A065E2E1D2D
  12.282 +      CE1CCAEC07679817EA61694056E6DD21945FAD88E50E245B51E1804290B6C9E6
  12.283 +      0E879E9E636B452B14F64B82B1005ADC931213ABB94CE4A70F175523C2634049
  12.284 +      1E130DAD841BDBE2203CB78B7B10C5D45EF1F9348AAC823FBC63F3807E937BFD
  12.285 +      514297999FA7CD6761C725665B3B8BA1408EB1EDA7A58856640F2BF9454F1476
  12.286 +      7784B108BD4E40098E532C7CDBA3E23C5F180C2A8DDAD4F212862B6C267591FD
  12.287 +      FA785D1FB8C68387F12532A490BA54F2564EF28E68B1FE9DFEA8A9E29FE8FF00
  12.288 +      886454B7E80E8AB49EE86FC0FF00A65D89F48CC9F97A95326CB6FB6ECA4DB47C
  12.289 +      2A050B047D501EA196AE2D9396613940DCF2FAE2665EA0CB89053AA4F311E70A
  12.290 +      176A75D910199F02A32DCC39A383D15FC6341A1E35A054C03233864E6F9CABDA
  12.291 +      5FD39180D59241E36D5C4398DC435392F253C9C93F2E898E8BF0B83D1422BD23
  12.292 +      88BBAE19C46FFDEB7138CCFCA3E90B438157E63F7C05371276514EA99CD26A4B
  12.293 +      EBF75B77E6A613FAAE8D15F18A3CE608C5549753DDB81CC9E062A2D5EDE8E8B8
  12.294 +      FB63714F76BF7AE624587E61B48428079BFA0B1987DB0183B23185BE7281DF84
  12.295 +      FBF28F36AFB2F1CD3954980522730E4D92DEADF78949CA7C8C7A425E8D4E9E41
  12.296 +      71DA449E41BB9E1FBA21EAB8770C0495A694C157D205444079E9FC51553A4B52
  12.297 +      3279BCB1FF00EA988C9992C515852533CB5772769668593F546F2ED0A8F9B865
  12.298 +      90D0FD11684097A54B5FBB6D2143757380CD30D6004CADA62A48CACA7544B732
  12.299 +      7F4E2D2F4D198BB6D908610389CE407411D35453B38486CE4691F9C73CBCBCE2
  12.300 +      15B979A9F98F66613DD4AB7E23D3F48F551E9004A63DB6644A4A8CB2ED6AA59F
  12.301 +      B49F389B95956A5C06D94F0ED7E6A30F3126CCBB225A5D1CEDFA4A3D4C5968B4
  12.302 +      332FF3CFFE74EC8DC0F4F38055228E9974879FB2DF3B7403CA24D4AD2C354F2F
  12.303 +      585E6053A83A7284293616B69BFAFF00EE012129D336FD60F291ADAD6F784181
  12.304 +      A6A4A90798E50E016398FD7FC601AD49B8DC883CB7D41E2E70E06C24929E9C49
  12.305 +      1FBA1441D08DA0116006DA40CA02B2D8EDE2E506AD351A2BA7230ABA88F0DD1C
  12.306 +      C0DC18064FC6C343057F2FBE1F22FCC5F975F484F76BFA3F6C07658724FAC2F4
  12.307 +      B5AD684EA4EBA5F62200D36DB95E017C63783D6FAEB7FB605C11A9F4845ADB71
  12.308 +      27ED80790E7256B04B6039B78B91842737F3BC2B3116074E901C8A975209236E
  12.309 +      63F78884C4584E875F97F66AC49A269163DD3D6B3A8F458E28B4663B1D7A4254
  12.310 +      CB6ADB4BF3F380F3B628FE8F55168ADFC393499A6EC5424DF395CF44AB631945
  12.311 +      469753A5CCAA5A7E59C949841D50E24A4FC23DB0E4AAADA68A4C465628148ACC
  12.312 +      B162AB24DCF34774B89D479856E0C0794A858F2BB4AB23BCF69961BB2EEBF51D
  12.313 +      C468145ED0A8D3CA484BC69D35F41C3C24FEB6DF5C4B627FE8F14E75F0FE1F9D
  12.314 +      54AB2AFCE4B4C7CE5BF55435FAE28388BB1AC654660CCA194D425D22EB5CA92A
  12.315 +      29F5468AFAA035A96AE4DA4A4BB6283EF0D411D748BD505D4CD3692CCC058E68
  12.316 +      BED1E4DA2630C41435E461E25A06CB967B893E963B4689873B4C9078A1536174
  12.317 +      B7964843DAF70A23F4B9407A86464E565D8E361D55F555F51F0B47054DF955A4
  12.318 +      A1B977079648A9E19ED4A625A49B6E75B134C1FCD4CB4AD6DF72A3A6ADDABC8A
  12.319 +      D21A9761C75E72E1040B0D37CDD201A9E9271C199B64A32EEB72C05A2154298F
  12.320 +      B4A9844E31321170E30C2C5C5B72AE67E10C2BB45C3552EE65175132CFCE1532
  12.321 +      95BC9F9852B628CF10550927E9686E41D6994332E4AA4CCB8057C7EEA143C455
  12.322 +      D0C074CEBEB9D77D925381B6F575C1E140FDEA8EB94612CA132F2CDE6D330008
  12.323 +      37FD227AC372123372EC33DEA7BB766412896DF2F404FBCAFA462CF4AA131292
  12.324 +      F90A403E2BF99DFE100747A525B47B43C333CAF77E8FA4492DD56C0E87627F7C
  12.325 +      0364F0EC615BF0A8580FB601BF7B4DF65C286BB7C0182B29076D3918581A055A
  12.326 +      0106C0DF63B2AF0B00EE05C738580920E9E900240D0E97D95002DADAE0741D20
  12.327 +      BC245F887410AC872DF98D3585FBB71A91008397646C61441FFF009BC190B16E
  12.328 +      683E24C1D95616FF0074037952A1C49BF5B7DF07DC2BE9C2B22AF7F7BCA1593F
  12.329 +      487D500EA7E0472B41DB736D39C2540F8827EA855EFCFEB802B01B7FA4C10D46
  12.330 +      9F1D615977FDDB4241B1B9E5B9800816D3A79C1DF6178220EE9DFCE0246607ED
  12.331 +      805EBCF43CE0F30B69EBAC22DA79C18EB00E21474FDFBC1292DAB8BEE8402546
  12.332 +      F6DBAC18735D3457310085CBE74F0E80C73997EBBF3023B42B5DFD47283B6A7C
  12.333 +      E032BED3FB246314844E52D4CC9559907BCCC8CA97C72CCA1CC758C2311E0CC5
  12.334 +      F87C771569279B966D44A1C1C6CDCEE52A1A6B1EC85B171E51CF31281C6952EF
  12.335 +      3697187465710A19924742937101E3FA3626A8C9D45229B3029B2ABF134B2A71
  12.336 +      9B81B90ABEE44689817B58A37E5253988253B96F2774B79A495B1C5A5D69DD37
  12.337 +      EA22CF8BFB04C3D522E3F4551A5CDF36BC4C93FAA751F0318D624C0D8C30C77A
  12.338 +      D4ECBB824966CA9866EA6176DAE47FE501B1E2A92EC9DC906AB12EFCBB4894F9
  12.339 +      E4A1950515DF9246E4DFAC77F67B2B313CEFCAAAB27BB616DF7744A6726DA3FD
  12.340 +      F2BF4D51927667D9A4D6249B44E5410B6A88D9E25EC5D23DD4797531E8E95926
  12.341 +      D9976A59A6F232C2421A4744A74020105B6DC990F86AE522C957407A47724E9E
  12.342 +      22A07DE834A129E5F08500B07E979180032E5CA76E47A4282136B051BFDF0E14
  12.343 +      255A8E130AB026E440340660073FA5CE08E64AB8870ABDE10B565D88D442CA2E
  12.344 +      35D41E5008EEC6E2E2176EAABE6F0C36136362763610E0165049D7A5A000CC2C
  12.345 +      08D792BAFAC1DB755AC06E2149D743BED71BC278FBCDF887DA2005900731D408
  12.346 +      3245C1FB39183BA72F0F2E50123874E7C84010000B7DB09B8F2FB614469CEFD3
  12.347 +      AC1674FD223CA01D41B0D34FBA0C2413E7BC081008E1B02826FF00CEF07706F6
  12.348 +      F173810200ADAD8EE20BDE0A17D343E70204028F87324DD5CAF07655AFE1BC08
  12.349 +      10032EBA1B2B9C11046A371B1F2810201415A661B731005B6FAA040803CDCC1D
  12.350 +      3F9DE0C286A2FA0810201A71B17EBD7AC32ECA36B4942921485E8A42802950F3
  12.351 +      06040806E5E9F2CDA4259692DB4340DA06509F410F2594DC83A9810200952EA4
  12.352 +      6A9B6BCA0C0E87430204028664AB29F0C2ADD758102013A6DCB91E621201CDC2
  12.353 +      75FA3020402D40A85CFD504743623D0C08100E5D1CC71751CE0B5DF973810201
  12.354 +      246C6E329DA08AAC48B408100B20EB6DCC15DDFE40810203FFD9}
  12.355 +    OnClick = img_MarmaroClick
  12.356 +  end
  12.357 +  object Timer1: TTimer
  12.358 +    Interval = 10
  12.359 +    OnTimer = Timer1Timer
  12.360 +    Left = 210
  12.361 +    Top = 10
  12.362 +  end
  12.363 +end
    13.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
    13.2 +++ b/unit_Easteregg.pas	Sun Dec 03 21:54:43 2006 +0100
    13.3 @@ -0,0 +1,97 @@
    13.4 +unit unit_Easteregg;
    13.5 +
    13.6 +interface//####################################################################################
    13.7 +
    13.8 +uses
    13.9 +  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   13.10 +  Dialogs, jpeg, ExtCtrls;
   13.11 +
   13.12 +type
   13.13 +  Tform_easteregg = class(TForm)
   13.14 +    img_Marmaro: TImage;
   13.15 +    Timer1: TTimer;
   13.16 +    procedure img_MarmaroClick(Sender: TObject);
   13.17 +    procedure Timer1Timer(Sender: TObject);
   13.18 +    procedure FormCreate(Sender: TObject);
   13.19 +  private
   13.20 +    vx : integer;
   13.21 +    vy : integer;
   13.22 +    x1 : integer;
   13.23 +    y1 : integer;
   13.24 +    x2 : integer;
   13.25 +    y2 : integer;
   13.26 +  public
   13.27 +    { Public declarations }
   13.28 +  end;
   13.29 +
   13.30 +var
   13.31 +  form_easteregg: Tform_easteregg;
   13.32 +
   13.33 +implementation//###############################################################################
   13.34 +
   13.35 +{$R *.dfm}//###################################################################################
   13.36 +
   13.37 +//------------------------------------------------------------------------------ form create
   13.38 +procedure Tform_easteregg.FormCreate(Sender: TObject);
   13.39 +begin
   13.40 +  vx := 0;
   13.41 +  vy := 0;
   13.42 +  x1 := form_Easteregg.Left + (form_Easteregg.Width div 2);
   13.43 +  y1 := form_Easteregg.top + (form_Easteregg.height div 2);
   13.44 +  x2 := screen.Width div 2;
   13.45 +  y2 := screen.Height div 2;
   13.46 +end;//--------------------------------------------------------------------------
   13.47 +
   13.48 +//#############################################################################################
   13.49 +
   13.50 +//------------------------------------------------------------------------------ kill
   13.51 +procedure Tform_easteregg.img_MarmaroClick(Sender: TObject);
   13.52 +begin
   13.53 +  application.Terminate;
   13.54 +end;//--------------------------------------------------------------------------
   13.55 +
   13.56 +//------------------------------------------------------------------------------ move form
   13.57 +procedure Tform_easteregg.Timer1Timer(Sender: TObject);
   13.58 +begin
   13.59 +  // keep window in foreground
   13.60 +  SetWindowPos(handle, HWND_TopMost, left, top, width, height, SWP_ShowWindow);
   13.61 +
   13.62 +  randomize; // for better random
   13.63 +
   13.64 +  x1 := form_Easteregg.Left + (form_Easteregg.Width div 2);
   13.65 +  y1 := form_Easteregg.top + (form_Easteregg.height div 2);
   13.66 +
   13.67 +  if x1 < x2 then
   13.68 +    begin
   13.69 +        vx := vx + (random(10)-4);
   13.70 +    end
   13.71 +  else
   13.72 +    begin
   13.73 +        vx := vx + (random(10)-6);
   13.74 +    end;
   13.75 +
   13.76 +  if y1 < y2 then
   13.77 +    begin
   13.78 +        vy := vy + (random(10)-4);
   13.79 +    end
   13.80 +  else
   13.81 +    begin
   13.82 +        vy := vy + (random(10)-6);
   13.83 +    end;
   13.84 +
   13.85 +  if (vx > 0) then form_easteregg.Left := form_easteregg.Left + (random(2)+1)
   13.86 +  else form_easteregg.Left := form_easteregg.Left - (random(2)+1);
   13.87 +
   13.88 +  if (vy > 0) then form_easteregg.top := form_easteregg.top + (random(2)+1)
   13.89 +  else form_easteregg.top := form_easteregg.top - (random(2)+1);
   13.90 +
   13.91 +  if form_easteregg.Left < 0 then form_Easteregg.left := 0;
   13.92 +  if form_easteregg.Left > screen.Width - form_easteregg.Width then
   13.93 +      form_Easteregg.Left := screen.Width - form_Easteregg.Width;
   13.94 +  if form_easteregg.top < 0 then form_Easteregg.top := 0;
   13.95 +  if form_easteregg.top > screen.Height - form_easteregg.height then
   13.96 +      form_Easteregg.top := screen.Height - form_Easteregg.height;
   13.97 +end;//--------------------------------------------------------------------------
   13.98 +
   13.99 +
  13.100 +end.//########################################################################################
    14.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
    14.2 +++ b/unit_Editor.dfm	Sun Dec 03 21:54:43 2006 +0100
    14.3 @@ -0,0 +1,72 @@
    14.4 +object form_Editor: Tform_Editor
    14.5 +  Left = 327
    14.6 +  Top = 149
    14.7 +  BorderIcons = [biSystemMenu]
    14.8 +  BorderStyle = bsSingle
    14.9 +  Caption = 'CD-Autorunner - Editor'
   14.10 +  ClientHeight = 468
   14.11 +  ClientWidth = 600
   14.12 +  Color = clSkyBlue
   14.13 +  Font.Charset = DEFAULT_CHARSET
   14.14 +  Font.Color = clWindowText
   14.15 +  Font.Height = -11
   14.16 +  Font.Name = 'MS Sans Serif'
   14.17 +  Font.Style = []
   14.18 +  Menu = mnu_Main
   14.19 +  OldCreateOrder = False
   14.20 +  Position = poScreenCenter
   14.21 +  OnClose = FormClose
   14.22 +  OnCreate = FormCreate
   14.23 +  PixelsPerInch = 96
   14.24 +  TextHeight = 13
   14.25 +  object img_Background: TImage
   14.26 +    Left = 0
   14.27 +    Top = 0
   14.28 +    Width = 600
   14.29 +    Height = 450
   14.30 +    Center = True
   14.31 +    Proportional = True
   14.32 +    Stretch = True
   14.33 +  end
   14.34 +  object img_button: TImage
   14.35 +    Left = 0
   14.36 +    Top = 0
   14.37 +    Width = 150
   14.38 +    Height = 40
   14.39 +    Cursor = crHandPoint
   14.40 +    AutoSize = True
   14.41 +    OnMouseDown = img_buttonMouseDown
   14.42 +    OnMouseMove = img_buttonMouseMove
   14.43 +    OnMouseUp = img_buttonMouseUp
   14.44 +  end
   14.45 +  object mnu_Main: TMainMenu
   14.46 +    object mnu_tutorial: TMenuItem
   14.47 +      Caption = '  Tutorial  '
   14.48 +      ShortCut = 16468
   14.49 +      OnClick = mnu_tutorialClick
   14.50 +    end
   14.51 +    object mnu_WelcomeScreen: TMenuItem
   14.52 +      Caption = '  Welcome-Screen Settings  '
   14.53 +      ShortCut = 16471
   14.54 +      OnClick = mnu_WelcomeScreenClick
   14.55 +    end
   14.56 +    object mnu_Autorun: TMenuItem
   14.57 +      Caption = '  Autorun Settings  '
   14.58 +      ShortCut = 16449
   14.59 +      OnClick = mnu_AutorunClick
   14.60 +    end
   14.61 +    object mnu_CreateAR: TMenuItem
   14.62 +      Caption = '  Create CD-Autorunner  '
   14.63 +      ShortCut = 16451
   14.64 +      OnClick = mnu_CreateARClick
   14.65 +    end
   14.66 +    object mnu_nzl: TMenuItem
   14.67 +      Caption = ' I '
   14.68 +      Enabled = False
   14.69 +    end
   14.70 +    object mnu_Sprache: TMenuItem
   14.71 +      Caption = '  -> Deutsch  '
   14.72 +      OnClick = mnu_SpracheClick
   14.73 +    end
   14.74 +  end
   14.75 +end
    15.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
    15.2 +++ b/unit_Editor.pas	Sun Dec 03 21:54:43 2006 +0100
    15.3 @@ -0,0 +1,200 @@
    15.4 +unit unit_Editor;
    15.5 +
    15.6 +interface//####################################################################################
    15.7 +
    15.8 +uses
    15.9 +  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   15.10 +  Dialogs, Menus, ExtCtrls, Buttons, StdCtrls;
   15.11 +
   15.12 +type
   15.13 +  Tform_Editor = class(TForm)
   15.14 +    mnu_Main: TMainMenu;
   15.15 +    mnu_tutorial: TMenuItem;
   15.16 +    mnu_WelcomeScreen: TMenuItem;
   15.17 +    mnu_Autorun: TMenuItem;
   15.18 +    mnu_CreateAR: TMenuItem;
   15.19 +    img_Background: TImage;
   15.20 +    img_button: TImage;
   15.21 +    mnu_nzl: TMenuItem;
   15.22 +    mnu_Sprache: TMenuItem;
   15.23 +    procedure FormClose(Sender: TObject; var Action: TCloseAction);
   15.24 +    procedure FormCreate(Sender: TObject);
   15.25 +    procedure mnu_tutorialClick(Sender: TObject);
   15.26 +    procedure mnu_WelcomeScreenClick(Sender: TObject);
   15.27 +    procedure mnu_AutorunClick(Sender: TObject);
   15.28 +    procedure mnu_CreateARClick(Sender: TObject);
   15.29 +    procedure img_buttonMouseDown(Sender: TObject; Button: TMouseButton;
   15.30 +      Shift: TShiftState; X, Y: Integer);
   15.31 +    procedure img_buttonMouseMove(Sender: TObject; Shift: TShiftState; X,
   15.32 +      Y: Integer);
   15.33 +    procedure img_buttonMouseUp(Sender: TObject; Button: TMouseButton;
   15.34 +      Shift: TShiftState; X, Y: Integer);
   15.35 +    procedure mnu_SpracheClick(Sender: TObject);
   15.36 +
   15.37 +  private
   15.38 +    dX : integer;
   15.39 +    dY : integer;
   15.40 +  public
   15.41 +    DraggingStatus : byte;
   15.42 +
   15.43 +    PfadHG_neu : String;         // 'C:\'
   15.44 +    PfadEnter_neu : String;      // 'C:\'
   15.45 +    PfadIcon_neu : string;
   15.46 +    CDRoot_neu : string;
   15.47 +    xEnter_neu : integer;       // '225'
   15.48 +    yEnter_neu : integer;        // '325'
   15.49 +    WelcomeKind_neu : String;    // 'click' 'time' 'none'
   15.50 +    Delay_neu : byte;            // '3000' (in ms)
   15.51 +    StartsFD_neu : string;
   15.52 +
   15.53 +    PfadHG_alt : String;
   15.54 +    PfadEnter_alt : String;
   15.55 +    PfadIcon_alt : string;
   15.56 +    CDRoot_alt : string;
   15.57 +    xEnter_alt : integer;
   15.58 +    yEnter_alt : integer;
   15.59 +    WelcomeKind_alt : String;
   15.60 +    Delay_alt : byte;
   15.61 +    StartsFD_alt : string;
   15.62 +
   15.63 +    Delay : string;
   15.64 +    englisch : boolean;
   15.65 +  end;
   15.66 +
   15.67 +var
   15.68 +  form_Editor: Tform_Editor;
   15.69 +
   15.70 +implementation//###############################################################################
   15.71 +uses unit_Start, unit_Welcome, unit_Editor_ws, unit_Editor_as,
   15.72 +  unit_Editor_tutorial, unit_Editor_CreateAR;
   15.73 +{$R *.dfm}//###################################################################################
   15.74 +
   15.75 +//------------------------------------------------------------------------------ form create
   15.76 +procedure Tform_Editor.FormCreate(Sender: TObject);
   15.77 +begin
   15.78 +  // close form 'start'
   15.79 +  form_start.Hide;
   15.80 +
   15.81 +  // init global vars
   15.82 +  PfadHG_alt := '';
   15.83 +  PfadEnter_alt := '';
   15.84 +  PfadIcon_alt := '';
   15.85 +  CDRoot_alt := 'C:\NewCD\';
   15.86 +  xEnter_alt := 0;
   15.87 +  yEnter_alt := 0;
   15.88 +  WelcomeKind_alt := 'click';
   15.89 +  Delay_alt := 2;
   15.90 +  StartsFD_alt := '';
   15.91 +  Delay := '3';
   15.92 +  englisch := true;
   15.93 +
   15.94 +  // background color
   15.95 +  form_editor.Color := rgb(192,192,192);
   15.96 +  // dragging dtatus = 0
   15.97 +  DraggingStatus := 0;
   15.98 +end;//--------------------------------------------------------------------------
   15.99 +//------------------------------------------------------------------------------ kill
  15.100 +procedure Tform_Editor.FormClose(Sender: TObject;
  15.101 +  var Action: TCloseAction);
  15.102 +begin
  15.103 +  application.Terminate;
  15.104 +end;//--------------------------------------------------------------------------
  15.105 +
  15.106 +//#############################################################################################
  15.107 +
  15.108 +//------------------------------------------------------------------------------ tutorial
  15.109 +procedure Tform_Editor.mnu_tutorialClick(Sender: TObject);
  15.110 +begin
  15.111 +  application.CreateForm(tform_editor_tutorial, form_editor_tutorial);
  15.112 +  form_editor_tutorial.show;
  15.113 +end;//--------------------------------------------------------------------------
  15.114 +//------------------------------------------------------------------------------ welcome settings
  15.115 +procedure Tform_Editor.mnu_WelcomeScreenClick(Sender: TObject);
  15.116 +begin
  15.117 +  application.CreateForm(tform_editor_ws, form_editor_ws);
  15.118 +  form_editor_ws.show;
  15.119 +end;//--------------------------------------------------------------------------
  15.120 +//------------------------------------------------------------------------------ autorun settings
  15.121 +procedure Tform_Editor.mnu_AutorunClick(Sender: TObject);
  15.122 +begin
  15.123 +  application.CreateForm(tform_editor_as, form_editor_as);
  15.124 +  form_editor_as.show;
  15.125 +end;//--------------------------------------------------------------------------
  15.126 +//------------------------------------------------------------------------------ create settings
  15.127 +procedure Tform_Editor.mnu_CreateARClick(Sender: TObject);
  15.128 +begin
  15.129 +  application.CreateForm(tform_editor_CreateAR, form_editor_CreateAR);
  15.130 +  form_editor_CreateAR.show;
  15.131 +end;//--------------------------------------------------------------------------
  15.132 +//------------------------------------------------------------------------------ toggle language
  15.133 +procedure Tform_Editor.mnu_SpracheClick(Sender: TObject);
  15.134 +begin
  15.135 +  if englisch = true then
  15.136 +    begin
  15.137 +      englisch := false;
  15.138 +      mnu_sprache.caption := '  -> English  ';                  // German
  15.139 +      mnu_Tutorial.Caption := '  Anleitung  ';
  15.140 +      mnu_WelcomeScreen.Caption := '  Begrüßungsbild Optionen  ';
  15.141 +      mnu_Autorun.Caption := '  Autorun Optionen  ';
  15.142 +      mnu_CreateAR.Caption := '  Autorunner erstellen  ';
  15.143 +    end
  15.144 +  else
  15.145 +    begin
  15.146 +      englisch := true;
  15.147 +      mnu_sprache.Caption := '  -> Deutsch  ';                   // English
  15.148 +      mnu_Tutorial.Caption := '  Tutorial  ';
  15.149 +      mnu_WelcomeScreen.Caption := '  Welcome-Screen Settings  ';
  15.150 +      mnu_Autorun.Caption := '  Autorun Settings  ';
  15.151 +      mnu_CreateAR.Caption := '  Create CD-Autorunner  ';
  15.152 +    end;
  15.153 +end;//--------------------------------------------------------------------------
  15.154 +
  15.155 +//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  15.156 +
  15.157 +//------------------------------------------------------------------------------ // mouse down
  15.158 +procedure Tform_Editor.img_buttonMouseDown(Sender: TObject;
  15.159 +  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  15.160 +  var MouseArea : trect;
  15.161 +begin
  15.162 +  // right drag'n'drop status needed
  15.163 +  if DraggingStatus <> 0 then exit;
  15.164 +  // remember cursor position on 'img_button'
  15.165 +  dX := x;
  15.166 +  dY := y;
  15.167 +  // jail mouse in mousearea
  15.168 +  mousearea.Left := form_editor.Left + dX + 3;
  15.169 +  mousearea.Right := form_editor.Left + form_editor.Width - (img_button.Width - dX + 2);
  15.170 +  mousearea.Top := form_editor.Top + dY + 41;
  15.171 +  mousearea.Bottom := form_editor.Top + form_editor.Height - (img_button.Height - dY +2);
  15.172 +  clipcursor(@mousearea);
  15.173 +  // set drag'n'drop status
  15.174 +  DraggingStatus := 1;
  15.175 +end;//--------------------------------------------------------------------------
  15.176 +//------------------------------------------------------------------------------ // mouse move
  15.177 +procedure Tform_Editor.img_buttonMouseMove(Sender: TObject;
  15.178 +  Shift: TShiftState; X, Y: Integer);
  15.179 +begin
  15.180 +  // right drag'n'drop status needed
  15.181 +  if (DraggingStatus = 0) or (draggingstatus = 3) then exit;
  15.182 +  // drag
  15.183 +  img_button.Left := img_button.Left + (x - dX);
  15.184 +  img_button.Top := img_button.Top + (y - dY);
  15.185 +  // set drag'n'drop status
  15.186 +  DraggingStatus := 2;
  15.187 +end;//--------------------------------------------------------------------------
  15.188 +//------------------------------------------------------------------------------ // mouse up
  15.189 +procedure Tform_Editor.img_buttonMouseUp(Sender: TObject;
  15.190 +  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  15.191 +begin
  15.192 +  // right drag'n'drop status needed
  15.193 +  if DraggingStatus <> 2 then exit;
  15.194 +  // free cursor from jail
  15.195 +  clipcursor(nil);
  15.196 +  // set 'img_button' coordinated
  15.197 +  xEnter_alt := img_button.left;
  15.198 +  yEnter_alt := img_button.top;
  15.199 +  // set drag'n'drop status
  15.200 +  DraggingStatus := 0;
  15.201 +end;//--------------------------------------------------------------------------
  15.202 +
  15.203 +end.//#########################################################################################
    16.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
    16.2 +++ b/unit_Editor_CreateAR.dfm	Sun Dec 03 21:54:43 2006 +0100
    16.3 @@ -0,0 +1,99 @@
    16.4 +object form_editor_CreateAR: Tform_editor_CreateAR
    16.5 +  Left = 245
    16.6 +  Top = 190
    16.7 +  BorderIcons = []
    16.8 +  BorderStyle = bsSingle
    16.9 +  Caption = 'Create your CD-Autorunner'
   16.10 +  ClientHeight = 270
   16.11 +  ClientWidth = 520
   16.12 +  Color = clBtnFace
   16.13 +  Font.Charset = DEFAULT_CHARSET
   16.14 +  Font.Color = clWindowText
   16.15 +  Font.Height = -11
   16.16 +  Font.Name = 'MS Sans Serif'
   16.17 +  Font.Style = []
   16.18 +  FormStyle = fsStayOnTop
   16.19 +  Icon.Data = {
   16.20 +    0000010001002020100000000000E80200001600000028000000200000004000
   16.21 +    0000010004000000000080020000000000000000000000000000000000000000
   16.22 +    000000008000008000000080800080000000800080008080000080808000C0C0
   16.23 +    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
   16.24 +    0000000000000000000000000000000000000000000000000000000000000000
   16.25 +    0000000000000000000000000000000000000000000000000000000000000000
   16.26 +    000000000000BBBBBBBB000000000000000000000BBBBBBBBBBBBB0000000000
   16.27 +    0000000BBBBBBBBBBB0000000000000000000BBBBBBBBBB000BBBB0000000000
   16.28 +    0000BBBBBBBBB00BBBBBB00000000000000BBBBBBBB00BBBBBB0000000000000
   16.29 +    000BBBBBBB0BBBBBB00000000000000000BBBBBBB0BBBBB00000000000000000
   16.30 +    00BBBBBB0BBBBB0000000000000000000BBBBBB0BBBB00000000000000000000
   16.31 +    0BBBBB0BBBB0000000000000000000000BBBB0BBBB0000000000000000000000
   16.32 +    BBBB0BBBB00000000000000000000000BBBB0BBB000000000000000000000000
   16.33 +    BBB0BBB0000000000000000000000000BBB0BB00000000000000000000000000
   16.34 +    BB0BBB00000000000000000000000000BB0BB000000000000000000000000000
   16.35 +    0B0BB0000000000000000000000000000B0B0000000000000000000000000000
   16.36 +    0000000000000000000000000000000000000000000000000000000000000000
   16.37 +    0000000000000000000000000000000000000000000000000000000000000000
   16.38 +    0000000000000000000000000000000000000000000000000000000000000000
   16.39 +    000000000000000000000000000000000000000000000000000000000000FFFF
   16.40 +    FFFFFFFFFFFFFFFFFFFFFFFF00FFFFF8003FFFE0001FFF80000FFF00000FFE00
   16.41 +    001FFC00007FFC0001FFF80007FFF8001FFFF0003FFFF000FFFFF001FFFFE003
   16.42 +    FFFFE007FFFFE00FFFFFE01FFFFFE01FFFFFE03FFFFFE03FFFFFF07FFFFFF07F
   16.43 +    FFFFF8FFFFFFF8FFFFFFF8FFFFFFF8FFFFFFFCFFFFFFFFFFFFFFFFFFFFFF}
   16.44 +  OldCreateOrder = False
   16.45 +  Position = poScreenCenter
   16.46 +  OnClose = FormClose
   16.47 +  OnCreate = FormCreate
   16.48 +  OnShow = FormShow
   16.49 +  PixelsPerInch = 96
   16.50 +  TextHeight = 13
   16.51 +  object btn_Finish: TButton
   16.52 +    Left = 400
   16.53 +    Top = 230
   16.54 +    Width = 111
   16.55 +    Height = 31
   16.56 +    Caption = 'Finish'
   16.57 +    TabOrder = 0
   16.58 +    OnClick = btn_FinishClick
   16.59 +  end
   16.60 +  object btn_Back: TButton
   16.61 +    Left = 280
   16.62 +    Top = 230
   16.63 +    Width = 111
   16.64 +    Height = 31
   16.65 +    Caption = 'Back'
   16.66 +    TabOrder = 1
   16.67 +    OnClick = btn_BackClick
   16.68 +  end
   16.69 +  object FinalSettings: TValueListEditor
   16.70 +    Left = 10
   16.71 +    Top = 10
   16.72 +    Width = 501
   16.73 +    Height = 211
   16.74 +    DisplayOptions = [doColumnTitles, doKeyColFixed]
   16.75 +    Enabled = False
   16.76 +    Font.Charset = DEFAULT_CHARSET
   16.77 +    Font.Color = clWindowText
   16.78 +    Font.Height = -11
   16.79 +    Font.Name = 'MS Sans Serif'
   16.80 +    Font.Style = []
   16.81 +    ParentFont = False
   16.82 +    ScrollBars = ssNone
   16.83 +    Strings.Strings = (
   16.84 +      '='
   16.85 +      '='
   16.86 +      '='
   16.87 +      '='
   16.88 +      '='
   16.89 +      '='
   16.90 +      '='
   16.91 +      '='
   16.92 +      '='
   16.93 +      '=')
   16.94 +    TabOrder = 2
   16.95 +    TitleCaptions.Strings = (
   16.96 +      ' Setting'
   16.97 +      ' Value')
   16.98 +    ColWidths = (
   16.99 +      124
  16.100 +      371)
  16.101 +  end
  16.102 +end
    17.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
    17.2 +++ b/unit_Editor_CreateAR.pas	Sun Dec 03 21:54:43 2006 +0100
    17.3 @@ -0,0 +1,319 @@
    17.4 +unit unit_Editor_CreateAR;
    17.5 +
    17.6 +interface//####################################################################################
    17.7 +
    17.8 +uses
    17.9 +  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   17.10 +  Dialogs, StdCtrls, Grids, ValEdit, ShellApi;
   17.11 +
   17.12 +type
   17.13 +  Tform_editor_CreateAR = class(TForm)
   17.14 +    btn_Finish: TButton;
   17.15 +    btn_Back: TButton;
   17.16 +    FinalSettings: TValueListEditor;
   17.17 +    procedure FormCreate(Sender: TObject);
   17.18 +    procedure FormShow(Sender: TObject);
   17.19 +    procedure FormClose(Sender: TObject; var Action: TCloseAction);
   17.20 +    procedure btn_BackClick(Sender: TObject);
   17.21 +    procedure btn_FinishClick(Sender: TObject);
   17.22 +  private
   17.23 +    { Private declarations }
   17.24 +  public
   17.25 +    { Public declarations }
   17.26 +  end;
   17.27 +
   17.28 +var
   17.29 +  form_editor_CreateAR: Tform_editor_CreateAR;
   17.30 +
   17.31 +implementation//###############################################################################
   17.32 +uses unit_Editor, unit_Editor_tutorial, unit_Start;
   17.33 +{$R *.dfm}//###################################################################################
   17.34 +{$I-}
   17.35 +
   17.36 +//------------------------------------------------------------------------------ form create
   17.37 +procedure Tform_editor_CreateAR.FormCreate(Sender: TObject);
   17.38 +begin
   17.39 +  //
   17.40 +    form_Editor_CreateAR.Caption := 'Create your CD-Autorunner';
   17.41 +    btn_Finish.Caption := 'Finish';
   17.42 +    btn_Back.Caption := 'Back';
   17.43 +    FinalSettings.TitleCaptions.Strings[0] := ' Settings';
   17.44 +    FinalSettings.TitleCaptions.Strings[1] := ' Value';
   17.45 +    FinalSettings.Keys[1] := 'Background-Picture';
   17.46 +    FinalSettings.Keys[2] := 'Enter-Picture';
   17.47 +    FinalSettings.Keys[3] := 'Autorun-Icon';
   17.48 +    FinalSettings.Keys[4] := 'CD-Root-Dir';
   17.49 +    FinalSettings.Keys[6] := 'Enter X-Position';
   17.50 +    FinalSettings.Keys[7] := 'Enter Y-Position';
   17.51 +    FinalSettings.Keys[8] := 'Welcome-Kind';
   17.52 +    FinalSettings.Keys[9] := 'Delay';
   17.53 +    FinalSettings.Keys[10] := 'Starts File/Dir';
   17.54 +end;//--------------------------------------------------------------------------
   17.55 +//------------------------------------------------------------------------------ form show
   17.56 +procedure Tform_editor_CreateAR.FormShow(Sender: TObject);
   17.57 +begin
   17.58 +  // disable drag'n'drop of 'img_button'
   17.59 +    form_editor.draggingstatus := 3;
   17.60 +  // disable menu
   17.61 +    form_editor.mnu_Tutorial.enabled := false;
   17.62 +    form_editor.mnu_WelcomeScreen.Enabled := false;
   17.63 +    form_editor.mnu_Autorun.Enabled := false;
   17.64 +    form_editor.mnu_CreateAR.enabled := false;
   17.65 +    form_editor.mnu_Sprache.enabled := false;
   17.66 +
   17.67 +  // show final settings
   17.68 +    finalsettings.Values['Background-Picture'] := form_Editor.PfadHG_alt;
   17.69 +    finalsettings.Values['Enter-Picture'] := form_Editor.PfadEnter_alt;
   17.70 +    finalsettings.values['Autorun-Icon'] := form_Editor.PfadIcon_alt;
   17.71 +    finalsettings.Values['CD-Root-Dir'] := form_Editor.CDRoot_alt;
   17.72 +
   17.73 +    finalsettings.Values['Enter X-Position'] := inttostr(form_Editor.xEnter_alt);
   17.74 +    finalsettings.Values['Enter Y-Position'] := inttostr(form_Editor.yEnter_alt);
   17.75 +    finalsettings.Values['Welcome-Kind'] := form_Editor.WelcomeKind_alt;
   17.76 +    finalsettings.Values['Delay'] := form_Editor.delay;
   17.77 +    finalsettings.Values['Starts File/Dir'] := form_Editor.StartsFD_alt;
   17.78 +
   17.79 +  // disable everything not needed
   17.80 +    if form_Editor.WelcomeKind_alt = 'none' then
   17.81 +      begin
   17.82 +        finalsettings.Values['Background-Picture'] := '< not used / nicht genutzt >';
   17.83 +        finalsettings.Values['Enter-Picture'] := '< not used / nicht genutzt >';
   17.84 +        finalsettings.Values['Enter X-Position'] := '< not used / nicht genutzt >';
   17.85 +        finalsettings.Values['Enter Y-Position'] := '< not used / nicht genutzt >';
   17.86 +        finalsettings.Values['Delay'] := '< not used / nicht genutzt >';
   17.87 +      end
   17.88 +    else
   17.89 +      begin
   17.90 +        if form_Editor.WelcomeKind_alt = 'time' then
   17.91 +          begin
   17.92 +            finalsettings.Values['Enter-Picture'] := '< not used / nicht genutzt >';
   17.93 +            finalsettings.Values['Enter X-Position'] := '< not used / nicht genutzt >';
   17.94 +            finalsettings.Values['Enter Y-Position'] := '< not used / nicht genutzt >';
   17.95 +            if form_Editor.PfadHG_alt = '' then
   17.96 +              begin
   17.97 +                finalsettings.Values['Background-Picture'] := '#### missing / fehlt ####';
   17.98 +                btn_finish.Enabled := false;
   17.99 +              end;
  17.100 +          end
  17.101 +        else  // klick
  17.102 +          begin
  17.103 +            finalsettings.Values['Delay'] := '< not used / nicht genutzt >';
  17.104 +            if form_Editor.PfadHG_alt = '' then
  17.105 +              begin
  17.106 +                // if the 'enter'-picture is full size, then dont use the 'background'-picture
  17.107 +                if (form_editor.img_button.Width = form_editor.img_Background.Width) and
  17.108 +                   (form_editor.img_button.Height = form_editor.img_Background.Height) then
  17.109 +                  begin
  17.110 +                    finalsettings.Values['Background-Picture'] := '< not used / nicht genutzt >';
  17.111 +                  end
  17.112 +                else
  17.113 +                  begin
  17.114 +                    finalsettings.Values['Background-Picture'] := '#### missing / fehlt ####';
  17.115 +                    btn_finish.Enabled := false;
  17.116 +                  end;
  17.117 +              end;
  17.118 +            if form_Editor.PfadEnter_alt = '' then
  17.119 +              begin
  17.120 +                finalsettings.Values['Enter-Picture'] := '#### missing / fehlt ####';
  17.121 +                btn_finish.Enabled := false;
  17.122 +              end;
  17.123 +          end;
  17.124 +      end;
  17.125 +
  17.126 +  //
  17.127 +    if form_Editor.pfadIcon_alt = '' then
  17.128 +      begin
  17.129 +        finalsettings.values['Autorun-Icon'] := '(The banana / Die Banane)';
  17.130 +      end;
  17.131 +
  17.132 +  //
  17.133 +    if form_Editor.StartsFD_alt = '' then
  17.134 +      begin
  17.135 +        finalsettings.Values['Starts File/Dir'] := '(CD-Root-Dir / CD-Wurzelverzeichnis)';
  17.136 +      end;
  17.137 +  //
  17.138 +    if form_Editor.StartsFD_alt = '-' then
  17.139 +      begin
  17.140 +        if form_Editor.WelcomeKind_alt = 'none' then
  17.141 +          begin
  17.142 +            finalsettings.Values['Starts File/Dir'] := '#### CDAR does not do anything! / CDAR macht gar nichts! ####';
  17.143 +            btn_finish.Enabled := false;
  17.144 +          end
  17.145 +        else
  17.146 +          begin
  17.147 +            finalsettings.Values['Starts File/Dir'] := '(Just shows Welcome-Screen / Zeigt nur ein Willkommensbild)';
  17.148 +          end;
  17.149 +      end;
  17.150 +
  17.151 +        // use German if set so
  17.152 +    if form_editor.englisch = false then
  17.153 +      begin
  17.154 +        form_Editor_CreateAR.Caption := 'Autorunner erstellen';
  17.155 +        btn_Finish.Caption := 'Fertigstellen';
  17.156 +        btn_Back.caption := 'Zurück';
  17.157 +        FinalSettings.TitleCaptions.Strings[0] := ' Einstellung';
  17.158 +        FinalSettings.TitleCaptions.Strings[1] := ' Wert';
  17.159 +        FinalSettings.Keys[1] := 'Hintergrundbild';
  17.160 +        FinalSettings.Keys[2] := 'Enterbild';
  17.161 +        FinalSettings.Keys[3] := 'Autorun-Icon';
  17.162 +        FinalSettings.Keys[4] := 'CD-Grundverzeichnis';
  17.163 +        FinalSettings.Keys[6] := 'Enter X-Position';
  17.164 +        FinalSettings.Keys[7] := 'Enter Y-Position';
  17.165 +        FinalSettings.Keys[8] := 'Willkommensart';
  17.166 +        FinalSettings.Keys[9] := 'Zeitverzögerung';
  17.167 +        FinalSettings.Keys[10] := 'Startet Datei/Verz.';
  17.168 +      end;
  17.169 +end;//--------------------------------------------------------------------------
  17.170 +//------------------------------------------------------------------------------ Form Close
  17.171 +procedure Tform_editor_CreateAR.FormClose(Sender: TObject;
  17.172 +  var Action: TCloseAction);
  17.173 +begin
  17.174 +  // enable drag'n'drop of 'img_button' again
  17.175 +    form_editor.draggingstatus := 0;
  17.176 +  // enable menu again
  17.177 +    form_editor.mnu_Tutorial.enabled := true;
  17.178 +    form_editor.mnu_WelcomeScreen.Enabled := true;
  17.179 +    form_editor.mnu_Autorun.Enabled := true;
  17.180 +    form_editor.mnu_CreateAR.enabled := true;
  17.181 +    form_editor.mnu_Sprache.enabled := true;
  17.182 +end;//--------------------------------------------------------------------------
  17.183 +
  17.184 +//#############################################################################################
  17.185 +
  17.186 +//------------------------------------------------------------------------------ Click Back
  17.187 +procedure Tform_editor_CreateAR.btn_BackClick(Sender: TObject);
  17.188 +begin
  17.189 +  // close CreateAR
  17.190 +    form_editor_createar.Close;
  17.191 +end;//--------------------------------------------------------------------------
  17.192 +//------------------------------------------------------------------------------ Click Finish
  17.193 +procedure Tform_editor_CreateAR.btn_FinishClick(Sender: TObject);
  17.194 +  var f : textfile;
  17.195 +      i : integer;
  17.196 +      CDRoot1 : string;
  17.197 +      CDRoot2 : string;
  17.198 +begin
  17.199 +  // create 'CDRoot' directory if not exists
  17.200 +  cdRoot1 := form_Editor.CDRoot_alt;
  17.201 +
  17.202 +  if DirectoryExists(CDRoot1) = false then
  17.203 +    begin
  17.204 +      for i := 5 to length(CDRoot1) do
  17.205 +        begin
  17.206 +          if copy(CDRoot1, i, 1) = '\' then
  17.207 +            begin
  17.208 +              CDRoot2 := copy(CDRoot1, 1, i);
  17.209 +              if DirectoryExists(CDRoot2) = false then
  17.210 +                begin
  17.211 +                  mkdir(cdroot2);
  17.212 +                end;
  17.213 +            end;
  17.214 +        end;
  17.215 +    end;
  17.216 +
  17.217 +
  17.218 +  // create Autorun.inf
  17.219 +    try
  17.220 +      AssignFile(f, form_Editor.CDRoot_alt + 'Autorun.inf');
  17.221 +          ReWrite(f);
  17.222 +          Writeln(f, '[Autorun]');
  17.223 +          Writeln(f, 'Open= "_CDAR\cdar.exe welcome"');
  17.224 +          if finalsettings.Cells[1,3] = '(The banana / Die Banane)' then
  17.225 +            begin
  17.226 +              Writeln(f, 'Icon= "_CDAR\cdar.exe"');
  17.227 +            end
  17.228 +          else
  17.229 +            begin
  17.230 +              Writeln(f, 'Icon= "_CDAR\Autorun.ico"');
  17.231 +            end;
  17.232 +      CloseFile(f);
  17.233 +    except
  17.234 +      showmessage('"Autorun.inf" konnte nicht erstellt werden'+ #10
  17.235 +        +'Vermutlich ist der Pfad zum CD-Wurzelverzeichnis ungültig'+ #10
  17.236 +        + #10
  17.237 +        +'"Autorun.inf" could not be created'+ #10
  17.238 +        +'probably the path to the CD root directory is corrupt');
  17.239 +    end;
  17.240 +
  17.241 +  // create directory '_CDAR' if not exists
  17.242 +    if DirectoryExists(CDRoot1 + '_CDAR') = false then
  17.243 +      begin
  17.244 +        mkdir(form_Editor.CDRoot_alt + '_CDAR\');
  17.245 +      end;
  17.246 +
  17.247 +  // create 'cdar.ini'
  17.248 +    try
  17.249 +      AssignFile(f, form_Editor.CDRoot_alt + '_CDAR\cdar.ini');
  17.250 +      ReWrite(f);
  17.251 +        Writeln(f, form_Editor.WelcomeKind_alt);
  17.252 +        Writeln(f, form_Editor.Delay);
  17.253 +        Writeln(f, inttostr(form_Editor.xEnter_alt));
  17.254 +        Writeln(f, inttostr(form_Editor.yEnter_alt));
  17.255 +        Writeln(f, '..\' + form_Editor.StartsFD_alt);
  17.256 +      CloseFile(f);
  17.257 +    except
  17.258 +      showmessage('"cdar.ini"  konnte nicht erstellt werden'+ #10
  17.259 +        +'Vermutlich ist der Pfad zum CD-Wurzelverzeichnis ungültig'+ #10
  17.260 +        + #10
  17.261 +        +'"cdar.ini" could not be created'+ #10
  17.262 +        +'probably the path to the CD root directory is corrupt');
  17.263 +    end;
  17.264 +
  17.265 +  // create 'cdar.bat'
  17.266 +    try
  17.267 +      AssignFile(f, 'C:\cdar.bat');
  17.268 +      ReWrite(f);
  17.269 +        Writeln(f, 'Rem This File was built by CD-Autorunner');
  17.270 +        Writeln(f, 'Rem It is not needed anymore you can delete it');
  17.271 +        Writeln(f, 'Rem');
  17.272 +        Writeln(f, 'Rem Diese Datei wurde von CD-Autorunner erzeugt');
  17.273 +        Writeln(f, 'Rem Sie wird nicht mehr gebraucht und kann geloescht werden');
  17.274 +        Writeln(f, 'Rem ###############################################');
  17.275 +        Writeln(f, 'Rem');
  17.276 +        Writeln(f, 'Rem');
  17.277 +      // copy 'Autorun.ico' if necessary
  17.278 +        if finalsettings.Cells[1,3] <> '(The banana / Die Banane)' then
  17.279 +          begin
  17.280 +                Writeln(f, 'Copy %1 %2');
  17.281 +          end;
  17.282 +      // copy 'background'-picture if necessary
  17.283 +        if finalsettings.Cells[1,1] <> '< not used / nicht genutzt >' then
  17.284 +          begin
  17.285 +            Writeln(f, 'Copy %3 %4');
  17.286 +          end;
  17.287 +      // copy 'enter'-picture if necessary
  17.288 +        if finalsettings.Cells[1,2] <> '< not used / nicht genutzt >' then
  17.289 +          begin
  17.290 +            Writeln(f, 'Copy %5 %6');
  17.291 +          end;
  17.292 +      // copy 'cdar.exe'
  17.293 +        Writeln(f, 'Copy %7 %8');
  17.294 +      // self destruction
  17.295 +        Writeln(f, 'del "C:\cdar.bat"');
  17.296 +      // exit script
  17.297 +        Writeln(f, 'exit');
  17.298 +      // close file
  17.299 +      CloseFile(f);
  17.300 +    except
  17.301 +      showmessage('"cdar.bat" konnte nicht erstellt werden'+ #10#10
  17.302 +        +'"cdar.bat" could not be created');
  17.303 +    end;
  17.304 +
  17.305 +    try
  17.306 +      ShellExecute(application.Handle, 'open', pchar('C:\cdar.bat'),
  17.307 +        pchar('"'
  17.308 +          + form_Editor.PfadIcon_alt + '" "' + form_Editor.CDRoot_alt + '_CDAR\Autorun.ico" "'
  17.309 +          + form_Editor.PfadHG_alt + '" "' + form_Editor.CDRoot_alt + '_CDAR\Welcome.jpg" "'
  17.310 +          + form_Editor.PfadEnter_alt + '" "' + form_Editor.CDRoot_alt + '_CDAR\Enter.jpg" "'
  17.311 +          + paramstr(0) + '" "' + form_Editor.CDRoot_alt + '_CDAR\cdar.exe"'
  17.312 +        ), nil, sw_shownormal);
  17.313 +    except
  17.314 +      showmessage('"cdar.bat" konnte nicht ausgeführt werden'+ #10#10
  17.315 +        +'was not able to run "cdar.bat"');
  17.316 +    end;
  17.317 +
  17.318 +  // return to 'form_Editor'
  17.319 +    form_editor_createar.Close;
  17.320 +end;//--------------------------------------------------------------------------
  17.321 +
  17.322 +end.//#########################################################################################
    18.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
    18.2 +++ b/unit_Editor_as.dfm	Sun Dec 03 21:54:43 2006 +0100
    18.3 @@ -0,0 +1,236 @@
    18.4 +object form_Editor_as: Tform_Editor_as
    18.5 +  Left = 371
    18.6 +  Top = 172
    18.7 +  BorderIcons = [biSystemMenu]
    18.8 +  BorderStyle = bsSingle
    18.9 +  Caption = 'Autorun Settings'
   18.10 +  ClientHeight = 360
   18.11 +  ClientWidth = 390
   18.12 +  Color = clBtnFace
   18.13 +  Font.Charset = DEFAULT_CHARSET
   18.14 +  Font.Color = clWindowText
   18.15 +  Font.Height = -11
   18.16 +  Font.Name = 'MS Sans Serif'
   18.17 +  Font.Style = []
   18.18 +  FormStyle = fsStayOnTop
   18.19 +  Icon.Data = {
   18.20 +    0000010001002020100000000000E80200001600000028000000200000004000
   18.21 +    0000010004000000000080020000000000000000000000000000000000000000
   18.22 +    000000008000008000000080800080000000800080008080000080808000C0C0
   18.23 +    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
   18.24 +    0000000000000000000000000000000000000000000000000000000000000000
   18.25 +    0000000000000000000000000000000000000000000000000000000000000000
   18.26 +    000000000000BBBBBBBB000000000000000000000BBBBBBBBBBBBB0000000000
   18.27 +    0000000BBBBBBBBBBB0000000000000000000BBBBBBBBBB000BBBB0000000000
   18.28 +    0000BBBBBBBBB00BBBBBB00000000000000BBBBBBBB00BBBBBB0000000000000
   18.29 +    000BBBBBBB0BBBBBB00000000000000000BBBBBBB0BBBBB00000000000000000
   18.30 +    00BBBBBB0BBBBB0000000000000000000BBBBBB0BBBB00000000000000000000
   18.31 +    0BBBBB0BBBB0000000000000000000000BBBB0BBBB0000000000000000000000
   18.32 +    BBBB0BBBB00000000000000000000000BBBB0BBB000000000000000000000000
   18.33 +    BBB0BBB0000000000000000000000000BBB0BB00000000000000000000000000
   18.34 +    BB0BBB00000000000000000000000000BB0BB000000000000000000000000000
   18.35 +    0B0BB0000000000000000000000000000B0B0000000000000000000000000000
   18.36 +    0000000000000000000000000000000000000000000000000000000000000000
   18.37 +    0000000000000000000000000000000000000000000000000000000000000000
   18.38 +    0000000000000000000000000000000000000000000000000000000000000000
   18.39 +    000000000000000000000000000000000000000000000000000000000000FFFF
   18.40 +    FFFFFFFFFFFFFFFFFFFFFFFF00FFFFF8003FFFE0001FFF80000FFF00000FFE00
   18.41 +    001FFC00007FFC0001FFF80007FFF8001FFFF0003FFFF000FFFFF001FFFFE003
   18.42 +    FFFFE007FFFFE00FFFFFE01FFFFFE01FFFFFE03FFFFFE03FFFFFF07FFFFFF07F
   18.43 +    FFFFF8FFFFFFF8FFFFFFF8FFFFFFF8FFFFFFFCFFFFFFFFFFFFFFFFFFFFFF}
   18.44 +  OldCreateOrder = False
   18.45 +  Position = poScreenCenter
   18.46 +  OnClose = FormClose
   18.47 +  OnCreate = FormCreate
   18.48 +  OnShow = FormShow
   18.49 +  PixelsPerInch = 96
   18.50 +  TextHeight = 13
   18.51 +  object gbx_AutorunIcon: TGroupBox
   18.52 +    Left = 10
   18.53 +    Top = 10
   18.54 +    Width = 371
   18.55 +    Height = 101
   18.56 +    TabOrder = 2
   18.57 +    object img_Icon: TImage
   18.58 +      Left = 190
   18.59 +      Top = 15
   18.60 +      Width = 48
   18.61 +      Height = 48
   18.62 +      Visible = False
   18.63 +    end
   18.64 +    object lbl_1: TLabel
   18.65 +      Left = 20
   18.66 +      Top = 20
   18.67 +      Width = 109
   18.68 +      Height = 13
   18.69 +      Caption = 'Autorun-Icon of the CD'
   18.70 +    end
   18.71 +    object img_IconCDAR: TImage
   18.72 +      Left = 190
   18.73 +      Top = 15
   18.74 +      Width = 48
   18.75 +      Height = 48
   18.76 +      Center = True
   18.77 +      Picture.Data = {
   18.78 +        055449636F6E0000010001002020100000000000E80200001600000028000000
   18.79 +        2000000040000000010004000000000080020000000000000000000000000000
   18.80 +        0000000000000000000080000080000000808000800000008000800080800000
   18.81 +        80808000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000
   18.82 +        FFFFFF0000000000000000000000000000000000000000000000000000000000
   18.83 +        0000000000000000000000000000000000000000000000000000000000000000
   18.84 +        000000000000000000000000BBBBBBBB000000000000000000000BBBBBBBBBBB
   18.85 +        BB00000000000000000BBBBBBBBBBB0000000000000000000BBBBBBBBBB000BB
   18.86 +        BB00000000000000BBBBBBBBB00BBBBBB00000000000000BBBBBBBB00BBBBBB0
   18.87 +        000000000000000BBBBBBB0BBBBBB00000000000000000BBBBBBB0BBBBB00000
   18.88 +        00000000000000BBBBBB0BBBBB0000000000000000000BBBBBB0BBBB00000000
   18.89 +        0000000000000BBBBB0BBBB0000000000000000000000BBBB0BBBB0000000000
   18.90 +        000000000000BBBB0BBBB00000000000000000000000BBBB0BBB000000000000
   18.91 +        000000000000BBB0BBB0000000000000000000000000BBB0BB00000000000000
   18.92 +        000000000000BB0BBB00000000000000000000000000BB0BB000000000000000
   18.93 +        0000000000000B0BB0000000000000000000000000000B0B0000000000000000
   18.94 +        0000000000000000000000000000000000000000000000000000000000000000
   18.95 +        0000000000000000000000000000000000000000000000000000000000000000
   18.96 +        0000000000000000000000000000000000000000000000000000000000000000
   18.97 +        0000000000000000000000000000000000000000000000000000000000000000
   18.98 +        00000000FFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFF8003FFFE0001FFF80000F
   18.99 +        FF00000FFE00001FFC00007FFC0001FFF80007FFF8001FFFF0003FFFF000FFFF
  18.100 +        F001FFFFE003FFFFE007FFFFE00FFFFFE01FFFFFE01FFFFFE03FFFFFE03FFFFF
  18.101 +        F07FFFFFF07FFFFFF8FFFFFFF8FFFFFFF8FFFFFFF8FFFFFFFCFFFFFFFFFFFFFF
  18.102 +        FFFFFFFF}
  18.103 +    end
  18.104 +    object btn_BrowseIcon: TButton
  18.105 +      Left = 260
  18.106 +      Top = 38
  18.107 +      Width = 101
  18.108 +      Height = 25
  18.109 +      Caption = 'Browse'
  18.110 +      TabOrder = 0
  18.111 +      OnClick = btn_BrowseIconClick
  18.112 +    end
  18.113 +    object tbx_IconPath: TEdit
  18.114 +      Left = 20
  18.115 +      Top = 70
  18.116 +      Width = 341
  18.117 +      Height = 21
  18.118 +      TabOrder = 1
  18.119 +    end
  18.120 +    object btn_restore: TButton
  18.121 +      Left = 260
  18.122 +      Top = 15
  18.123 +      Width = 101
  18.124 +      Height = 20
  18.125 +      Caption = 'CDAR-Icon'
  18.126 +      TabOrder = 2
  18.127 +      OnClick = btn_restoreClick
  18.128 +    end
  18.129 +  end
  18.130 +  object gbx_ZielDir: TGroupBox
  18.131 +    Left = 10
  18.132 +    Top = 120
  18.133 +    Width = 371
  18.134 +    Height = 91
  18.135 +    TabOrder = 3
  18.136 +    object lbl_2: TLabel
  18.137 +      Left = 20
  18.138 +      Top = 20
  18.139 +      Width = 195
  18.140 +      Height = 13
  18.141 +      Caption = 'Directory where the Files will be copied to'
  18.142 +    end
  18.143 +    object lbl_3: TLabel
  18.144 +      Left = 20
  18.145 +      Top = 40
  18.146 +      Width = 231
  18.147 +      Height = 13
  18.148 +      Caption = '(This Directory represents the Root-Dir of the CD)'
  18.149 +    end
  18.150 +    object tbx_CDRootPath: TEdit
  18.151 +      Left = 20
  18.152 +      Top = 60
  18.153 +      Width = 341
  18.154 +      Height = 21
  18.155 +      Hint = 'Must be an ABSOLUTE Path (zB: "C:\New CD")'
  18.156 +      ParentShowHint = False
  18.157 +      ShowHint = True
  18.158 +      TabOrder = 1
  18.159 +      OnChange = tbx_CDRootPathChange
  18.160 +    end
  18.161 +    object btn_BrowseCDRoot: TButton
  18.162 +      Left = 260
  18.163 +      Top = 28
  18.164 +      Width = 101
  18.165 +      Height = 25
  18.166 +      Caption = 'Browse'
  18.167 +      TabOrder = 0
  18.168 +      OnClick = btn_BrowseCDRootClick
  18.169 +    end
  18.170 +  end
  18.171 +  object btn_cancel: TButton
  18.172 +    Left = 170
  18.173 +    Top = 320
  18.174 +    Width = 101
  18.175 +    Height = 31
  18.176 +    Caption = 'Cancel Changes'
  18.177 +    TabOrder = 0
  18.178 +    OnClick = btn_cancelClick
  18.179 +  end
  18.180 +  object btn_apply: TButton
  18.181 +    Left = 280
  18.182 +    Top = 320
  18.183 +    Width = 101
  18.184 +    Height = 31
  18.185 +    Caption = 'Apply Changes'
  18.186 +    TabOrder = 1
  18.187 +    OnClick = btn_applyClick
  18.188 +  end
  18.189 +  object GroupBox1: TGroupBox
  18.190 +    Left = 9
  18.191 +    Top = 220
  18.192 +    Width = 371
  18.193 +    Height = 91
  18.194 +    TabOrder = 4
  18.195 +    object lbl_4: TLabel
  18.196 +      Left = 20
  18.197 +      Top = 20
  18.198 +      Width = 218
  18.199 +      Height = 13
  18.200 +      Caption = 'Choose the File which will be started by CDAR'
  18.201 +    end
  18.202 +    object lbl_5: TLabel
  18.203 +      Left = 20
  18.204 +      Top = 40
  18.205 +      Width = 196
  18.206 +      Height = 13
  18.207 +      Caption = '(Insert a Path relative to the CD-Root-Dir!)'
  18.208 +    end
  18.209 +    object tbx_StartsFD: TEdit
  18.210 +      Left = 20
  18.211 +      Top = 60
  18.212 +      Width = 341
  18.213 +      Height = 21
  18.214 +      Hint = 'Must be a RELATIVE Path (zB: "Noname\Welcome.txt")'
  18.215 +      ParentShowHint = False
  18.216 +      ShowHint = True
  18.217 +      TabOrder = 0
  18.218 +      OnChange = tbx_StartsFDChange
  18.219 +    end
  18.220 +  end
  18.221 +  object tbx_Warnings: TMemo
  18.222 +    Left = 10
  18.223 +    Top = 320
  18.224 +    Width = 151
  18.225 +    Height = 32
  18.226 +    TabStop = False
  18.227 +    Color = clRed
  18.228 +    ReadOnly = True
  18.229 +    TabOrder = 5
  18.230 +    Visible = False
  18.231 +    WantReturns = False
  18.232 +    WordWrap = False
  18.233 +  end
  18.234 +  object OpenDialog1: TOpenPictureDialog
  18.235 +    Filter = 'Icon-File (*.ico)|*.ico'
  18.236 +    OptionsEx = [ofExNoPlacesBar]
  18.237 +    Left = 360
  18.238 +  end
  18.239 +end
    19.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
    19.2 +++ b/unit_Editor_as.pas	Sun Dec 03 21:54:43 2006 +0100
    19.3 @@ -0,0 +1,245 @@
    19.4 +unit unit_Editor_as;
    19.5 +
    19.6 +interface//####################################################################################
    19.7 +
    19.8 +uses
    19.9 +  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   19.10 +  Dialogs, ExtCtrls, StdCtrls, ExtDlgs;
   19.11 +
   19.12 +type
   19.13 +  Tform_Editor_as = class(TForm)
   19.14 +    gbx_AutorunIcon: TGroupBox;
   19.15 +    btn_BrowseIcon: TButton;
   19.16 +    tbx_IconPath: TEdit;
   19.17 +    img_Icon: TImage;
   19.18 +    gbx_ZielDir: TGroupBox;
   19.19 +    tbx_CDRootPath: TEdit;
   19.20 +    btn_BrowseCDRoot: TButton;
   19.21 +    lbl_1: TLabel;
   19.22 +    lbl_2: TLabel;
   19.23 +    lbl_3: TLabel;
   19.24 +    btn_cancel: TButton;
   19.25 +    btn_apply: TButton;
   19.26 +    btn_restore: TButton;
   19.27 +    img_IconCDAR: TImage;
   19.28 +    GroupBox1: TGroupBox;
   19.29 +    lbl_4: TLabel;
   19.30 +    lbl_5: TLabel;
   19.31 +    tbx_StartsFD: TEdit;
   19.32 +    tbx_Warnings: TMemo;
   19.33 +    OpenDialog1: TOpenPictureDialog;
   19.34 +    procedure FormCreate(Sender: TObject);
   19.35 +    procedure FormClose(Sender: TObject; var Action: TCloseAction);
   19.36 +    procedure FormShow(Sender: TObject);
   19.37 +    procedure btn_BrowseIconClick(Sender: TObject);
   19.38 +    procedure btn_BrowseCDRootClick(Sender: TObject);
   19.39 +    procedure btn_restoreClick(Sender: TObject);
   19.40 +    procedure btn_applyClick(Sender: TObject);
   19.41 +    procedure btn_cancelClick(Sender: TObject);
   19.42 +    procedure tbx_StartsFDChange(Sender: TObject);
   19.43 +    procedure tbx_CDRootPathChange(Sender: TObject);
   19.44 +  private
   19.45 +    
   19.46 +  public
   19.47 +    { Public declarations }
   19.48 +  end;
   19.49 +
   19.50 +var
   19.51 +  form_Editor_as: Tform_Editor_as;
   19.52 +
   19.53 +implementation//###############################################################################
   19.54 +uses unit_Editor, unit_Editor_as_BrowseDir;
   19.55 +{$R *.dfm}//###################################################################################
   19.56 +
   19.57 +// forwardings
   19.58 +  procedure Warnings();forward;
   19.59 +
   19.60 +//------------------------------------------------------------------------------ form create
   19.61 +procedure Tform_Editor_as.FormCreate(Sender: TObject);
   19.62 +begin
   19.63 +  // set language
   19.64 +    if form_editor.englisch = true then
   19.65 +      begin // English
   19.66 +        form_editor_as.Caption := 'Autorun Settings';
   19.67 +        btn_BrowseIcon.Caption := 'Browse';
   19.68 +        btn_BrowseCDRoot.Caption := 'Browse';
   19.69 +        lbl_1.Caption := 'Autorun-Icon of the CD';
   19.70 +        lbl_2.Caption := 'Directory where the Files will be copied to';
   19.71 +        lbl_3.Caption := '(This Directory represents the Root-Dir of the CD)';
   19.72 +        btn_cancel.Caption := 'Cancel Changes';
   19.73 +        btn_apply.Caption := 'Apply Changes';
   19.74 +        btn_restore.Caption := 'CDAR-Icon';
   19.75 +        lbl_4.Caption := 'Choose the File which will be started by CDAR';
   19.76 +        lbl_5.Caption := '(Insert a Path relative to the CD-Root-Dir!)';
   19.77 +      end
   19.78 +    else
   19.79 +      begin // German
   19.80 +        form_editor_as.Caption := 'Autorun Optionen';
   19.81 +        btn_BrowseIcon.Caption := 'Durchsuchen';
   19.82 +        btn_BrowseCDRoot.Caption := 'Durchsuchen';
   19.83 +        lbl_1.Caption := 'Autorun-Icon der CD';
   19.84 +        lbl_2.Caption := 'Ordner in den die Dateien kopiert werden';
   19.85 +        lbl_3.Caption := '(Entspricht dem CD-Grund-Verzeichnis)';
   19.86 +        btn_cancel.Caption := 'Abbrechen';
   19.87 +        btn_apply.Caption := 'Übernehmen';
   19.88 +        btn_restore.Caption := 'CDAR-Icon';
   19.89 +        lbl_4.Caption := 'Datei, die von CDAR gestartet werden soll';
   19.90 +        lbl_5.Caption := '(Pfad relativ zum CD-Grund-Verzeichnis)';
   19.91 +      end;
   19.92 +
   19.93 +  // set standard path in OpenDialog
   19.94 +  opendialog1.InitialDir := extractfilepath(paramstr(0));
   19.95 +end;//--------------------------------------------------------------------------
   19.96 +//------------------------------------------------------------------------------ form show
   19.97 +procedure Tform_Editor_as.FormShow(Sender: TObject);
   19.98 +begin
   19.99 +  // disable drag'n'drop
  19.100 +  form_editor.draggingstatus := 3;
  19.101 +  // disable menu
  19.102 +  form_editor.mnu_Tutorial.enabled := false;
  19.103 +  form_editor.mnu_WelcomeScreen.Enabled := false;
  19.104 +  form_editor.mnu_Autorun.Enabled := false;
  19.105 +  form_editor.mnu_CreateAR.enabled := false;
  19.106 +  form_editor.mnu_Sprache.enabled := false;
  19.107 +
  19.108 +  // init
  19.109 +  tbx_IconPath.text := form_Editor.PfadIcon_alt;
  19.110 +  if form_Editor.PfadIcon_alt = '' then
  19.111 +    begin
  19.112 +      img_IconCDAR.show;
  19.113 +      img_icon.Hide;
  19.114 +    end
  19.115 +  else
  19.116 +    begin
  19.117 +      img_IconCDAR.hide;
  19.118 +      img_Icon.Show;
  19.119 +      img_icon.Picture.LoadFromFile(form_Editor.PfadIcon_alt);
  19.120 +    end;
  19.121 +  tbx_CDRootPath.text := form_Editor.CDRoot_alt;
  19.122 +   tbx_StartsFD.Text := form_Editor.StartsFD_alt;
  19.123 +end;//--------------------------------------------------------------------------
  19.124 +//------------------------------------------------------------------------------ form close
  19.125 +procedure Tform_Editor_as.FormClose(Sender: TObject;
  19.126 +  var Action: TCloseAction);
  19.127 +begin
  19.128 +  // enable drag'n'drop
  19.129 +  form_editor.draggingstatus := 0;
  19.130 +  // enable menu
  19.131 +  form_editor.mnu_Tutorial.enabled := true;
  19.132 +  form_editor.mnu_WelcomeScreen.Enabled := true;
  19.133 +  form_editor.mnu_Autorun.Enabled := true;
  19.134 +  form_editor.mnu_CreateAR.enabled := true;
  19.135 +  form_editor.mnu_Sprache.enabled := true;
  19.136 +end;//--------------------------------------------------------------------------
  19.137 +
  19.138 +//#############################################################################################
  19.139 +
  19.140 +//------------------------------------------------------------------------------ browse icon
  19.141 +procedure Tform_Editor_as.btn_BrowseIconClick(Sender: TObject);
  19.142 +begin
  19.143 +  if opendialog1.Execute then
  19.144 +    begin
  19.145 +      tbx_IconPath.Text := opendialog1.FileName;
  19.146 +      // load picture
  19.147 +      img_Icon.Picture.LoadFromFile(tbx_IconPath.text);
  19.148 +      // show picture
  19.149 +      img_IconCDAR.hide;
  19.150 +      img_Icon.Show;
  19.151 +    end;
  19.152 +end;//--------------------------------------------------------------------------
  19.153 +//------------------------------------------------------------------------------ restore icon
  19.154 +procedure Tform_Editor_as.btn_restoreClick(Sender: TObject);
  19.155 +begin
  19.156 +  img_IconCDAR.show;
  19.157 +  img_icon.Hide;
  19.158 +  tbx_IconPath.Text := '';
  19.159 +end;//--------------------------------------------------------------------------
  19.160 +
  19.161 +//------------------------------------------------------------------------------ browse CD-root
  19.162 +procedure Tform_Editor_as.btn_BrowseCDRootClick(Sender: TObject);
  19.163 +begin
  19.164 +  application.CreateForm(tform_editor_as_browsedir, form_editor_as_browsedir);
  19.165 +  form_editor_as_browsedir.show;
  19.166 +end;//--------------------------------------------------------------------------
  19.167 +
  19.168 +//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  19.169 +
  19.170 +//------------------------------------------------------------------------------ change CD-root
  19.171 +procedure Tform_Editor_as.tbx_CDRootPathChange(Sender: TObject);
  19.172 +begin
  19.173 +  // format check
  19.174 +  Warnings;
  19.175 +end;//--------------------------------------------------------------------------
  19.176 +//------------------------------------------------------------------------------ change startsFD
  19.177 +procedure Tform_Editor_as.tbx_StartsFDChange(Sender: TObject);
  19.178 +begin
  19.179 +  // format check
  19.180 +  Warnings;
  19.181 +end;//--------------------------------------------------------------------------
  19.182 +
  19.183 +//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  19.184 +
  19.185 +//------------------------------------------------------------------------------ apply
  19.186 +procedure Tform_Editor_as.btn_applyClick(Sender: TObject);
  19.187 +begin
  19.188 +  form_Editor.PfadIcon_alt := tbx_IconPath.text;
  19.189 +
  19.190 +  if copy(tbx_CDRootPath.text, length(tbx_CDRootpath.text), 1) <> '\' then
  19.191 +    begin
  19.192 +      form_Editor.CDRoot_alt := tbx_CDRootPath.Text + '\';
  19.193 +    end
  19.194 +  else
  19.195 +    begin
  19.196 +      form_Editor.CDRoot_alt := tbx_CDRootPath.Text;
  19.197 +    end;
  19.198 +
  19.199 +  form_Editor.StartsFD_alt := tbx_startsFD.text;
  19.200 +
  19.201 +  // close
  19.202 +  form_editor_as.Close;
  19.203 +end;//--------------------------------------------------------------------------
  19.204 +//------------------------------------------------------------------------------ cancel
  19.205 +procedure Tform_Editor_as.btn_cancelClick(Sender: TObject);
  19.206 +begin
  19.207 +  // close
  19.208 +  form_editor_as.Close;
  19.209 +end;//--------------------------------------------------------------------------
  19.210 +
  19.211 +//#############################################################################################
  19.212 +
  19.213 +//------------------------------------------------------------------------------ warnings
  19.214 +procedure Warnings();
  19.215 +begin
  19.216 +  with form_Editor_as do
  19.217 +    begin
  19.218 +    tbx_Warnings.lines.clear;
  19.219 +
  19.220 +    if copy(tbx_CDRootPath.text, 2, 2) <> ':\' then
  19.221 +      begin
  19.222 +        btn_apply.Enabled := false;
  19.223 +        tbx_Warnings.Show;
  19.224 +        tbx_Warnings.Lines.Add('2nd Path must be ABSOLUTE');
  19.225 +        if pos(':', tbx_StartsFD.text) <> 0 then
  19.226 +          begin
  19.227 +            tbx_Warnings.Lines.Add('3rd Path must be RELATIVE');
  19.228 +          end;
  19.229 +      end
  19.230 +    else
  19.231 +      begin
  19.232 +        if pos(':', tbx_StartsFD.text) <> 0 then
  19.233 +          begin
  19.234 +            btn_apply.Enabled := false;
  19.235 +            tbx_Warnings.Show;
  19.236 +            tbx_Warnings.Lines.Add('3rd Path must be RELATIVE');
  19.237 +          end
  19.238 +        else
  19.239 +          begin
  19.240 +            btn_apply.Enabled := true;
  19.241 +            tbx_Warnings.hide;
  19.242 +          end;
  19.243 +      end;
  19.244 +   tbx_Warnings.Text := copy(tbx_Warnings.text, 1, length(tbx_Warnings.text)-2);
  19.245 +   end;
  19.246 +end;//--------------------------------------------------------------------------
  19.247 +
  19.248 +end.//#########################################################################################
    20.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
    20.2 +++ b/unit_Editor_as_BrowseDir.dfm	Sun Dec 03 21:54:43 2006 +0100
    20.3 @@ -0,0 +1,77 @@
    20.4 +object form_Editor_as_BrowseDir: Tform_Editor_as_BrowseDir
    20.5 +  Left = 436
    20.6 +  Top = 201
    20.7 +  BorderIcons = []
    20.8 +  BorderStyle = bsSingle
    20.9 +  Caption = 'Chose Directory'
   20.10 +  ClientHeight = 299
   20.11 +  ClientWidth = 290
   20.12 +  Color = clBtnFace
   20.13 +  Font.Charset = DEFAULT_CHARSET
   20.14 +  Font.Color = clWindowText
   20.15 +  Font.Height = -11
   20.16 +  Font.Name = 'MS Sans Serif'
   20.17 +  Font.Style = []
   20.18 +  FormStyle = fsStayOnTop
   20.19 +  OldCreateOrder = False
   20.20 +  Position = poScreenCenter
   20.21 +  OnClose = FormClose
   20.22 +  OnCreate = FormCreate
   20.23 +  OnShow = FormShow
   20.24 +  PixelsPerInch = 96
   20.25 +  TextHeight = 13
   20.26 +  object dirlbx_1: TDirectoryListBox
   20.27 +    Left = 10
   20.28 +    Top = 40
   20.29 +    Width = 271
   20.30 +    Height = 191
   20.31 +    ItemHeight = 16
   20.32 +    TabOrder = 2
   20.33 +    OnChange = dirlbx_1Change
   20.34 +  end
   20.35 +  object tbx_Path: TEdit
   20.36 +    Left = 10
   20.37 +    Top = 240
   20.38 +    Width = 271
   20.39 +    Height = 21
   20.40 +    TabStop = False
   20.41 +    ReadOnly = True
   20.42 +    TabOrder = 4
   20.43 +    Text = 'tbx_Path'
   20.44 +  end
   20.45 +  object btn_NewDir: TBitBtn
   20.46 +    Left = 180
   20.47 +    Top = 10
   20.48 +    Width = 101
   20.49 +    Height = 19
   20.50 +    Caption = 'Create new Dir'
   20.51 +    TabOrder = 3
   20.52 +    OnClick = btn_NewDirClick
   20.53 +  end
   20.54 +  object btn_Apply: TButton
   20.55 +    Left = 180
   20.56 +    Top = 270
   20.57 +    Width = 101
   20.58 +    Height = 25
   20.59 +    Caption = 'Apply Changes'
   20.60 +    TabOrder = 1
   20.61 +    OnClick = btn_ApplyClick
   20.62 +  end
   20.63 +  object btn_Cancel: TButton
   20.64 +    Left = 70
   20.65 +    Top = 270
   20.66 +    Width = 101
   20.67 +    Height = 25
   20.68 +    Caption = 'Cancel Changes'
   20.69 +    TabOrder = 0
   20.70 +    OnClick = btn_CancelClick
   20.71 +  end
   20.72 +  object dcobx_1: TDriveComboBox
   20.73 +    Left = 10
   20.74 +    Top = 10
   20.75 +    Width = 161
   20.76 +    Height = 19
   20.77 +    TabOrder = 5
   20.78 +    OnChange = dcobx_1Change
   20.79 +  end
   20.80 +end
    21.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
    21.2 +++ b/unit_Editor_as_BrowseDir.pas	Sun Dec 03 21:54:43 2006 +0100
    21.3 @@ -0,0 +1,150 @@
    21.4 +unit unit_Editor_as_BrowseDir;
    21.5 +
    21.6 +interface//####################################################################################
    21.7 +
    21.8 +uses
    21.9 +  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   21.10 +  Dialogs, StdCtrls, Buttons, FileCtrl;
   21.11 +
   21.12 +type
   21.13 +  Tform_Editor_as_BrowseDir = class(TForm)
   21.14 +    dirlbx_1: TDirectoryListBox;
   21.15 +    tbx_Path: TEdit;
   21.16 +    btn_NewDir: TBitBtn;
   21.17 +    btn_Apply: TButton;
   21.18 +    btn_Cancel: TButton;
   21.19 +    dcobx_1: TDriveComboBox;
   21.20 +    procedure FormCreate(Sender: TObject);
   21.21 +    procedure FormShow(Sender: TObject);
   21.22 +    procedure FormClose(Sender: TObject; var Action: TCloseAction);
   21.23 +    procedure dcobx_1Change(Sender: TObject);
   21.24 +    procedure btn_NewDirClick(Sender: TObject);
   21.25 +    procedure btn_ApplyClick(Sender: TObject);
   21.26 +    procedure dirlbx_1Change(Sender: TObject);
   21.27 +    procedure btn_CancelClick(Sender: TObject);
   21.28 +  private
   21.29 +    { Private declarations }
   21.30 +  public
   21.31 +    { Public declarations }
   21.32 +  end;
   21.33 +
   21.34 +var
   21.35 +  form_Editor_as_BrowseDir: Tform_Editor_as_BrowseDir;
   21.36 +
   21.37 +implementation//###############################################################################
   21.38 +uses unit_Editor_as, unit_Start, unit_Editor;
   21.39 +{$R *.dfm}//###################################################################################
   21.40 +
   21.41 +//------------------------------------------------------------------------------ Form Create
   21.42 +procedure Tform_Editor_as_BrowseDir.FormCreate(Sender: TObject);
   21.43 +begin
   21.44 +  // disable autorun settings
   21.45 +    form_editor_as.Enabled := false;
   21.46 +
   21.47 +  // set language
   21.48 +    if form_editor.englisch = true then
   21.49 +      begin // English
   21.50 +        form_editor_as_BrowseDir.Caption := 'Chose Directory';
   21.51 +        btn_NewDir.Caption := 'Create new Dir';
   21.52 +        btn_Apply.Caption := 'Apply Changes';
   21.53 +        btn_Cancel.Caption := 'Cancel Changes';
   21.54 +      end
   21.55 +    else
   21.56 +      begin // German
   21.57 +        form_editor_as_BrowseDir.Caption := 'Wähle ein Verzeichnis';
   21.58 +        btn_NewDir.Caption := 'Ordner erstellen';
   21.59 +        btn_Apply.Caption := 'Übernehmen';
   21.60 +        btn_Cancel.Caption := 'Abbrechen';
   21.61 +      end;
   21.62 +end;//--------------------------------------------------------------------------
   21.63 +//------------------------------------------------------------------------------ Form Show
   21.64 +procedure Tform_Editor_as_BrowseDir.FormShow(Sender: TObject);
   21.65 +  var i : integer;
   21.66 +      typ : cardinal;
   21.67 +begin
   21.68 +{
   21.69 +  // dont show floppy and cdrom drives
   21.70 +    for i := 0 to 25 do
   21.71 +      begin
   21.72 +        typ := getdrivetype(pchar(chr(i + 65) + ':\')) ;
   21.73 +        if (typ = Drive_Removable) or (typ = Drive_CDRom) then
   21.74 +          begin
   21.75 +            dcobx_1.Drive := chr(i+65);               // this must be avoided
   21.76 +            dcobx_1.Items.Delete(dcobx_1.ItemIndex);  // how to delete without setting the item??
   21.77 +          end;
   21.78 +      end;
   21.79 +}
   21.80 +  // Init
   21.81 +    dcobx_1.Drive := 'c';
   21.82 +    dirlbx_1.Drive := 'c';
   21.83 +    tbx_path.Text := dirlbx_1.Directory;
   21.84 +end;//--------------------------------------------------------------------------
   21.85 +//------------------------------------------------------------------------------ Form Close
   21.86 +procedure Tform_Editor_as_BrowseDir.FormClose(Sender: TObject;
   21.87 +  var Action: TCloseAction);
   21.88 +begin
   21.89 +  // activate autorun settings
   21.90 +    form_editor_as.enabled := true;
   21.91 +end;//--------------------------------------------------------------------------
   21.92 +
   21.93 +//#############################################################################################
   21.94 +
   21.95 +//------------------------------------------------------------------------------ Change Drive
   21.96 +procedure Tform_Editor_as_BrowseDir.dcobx_1Change(Sender: TObject);
   21.97 +begin
   21.98 +  dirlbx_1.Drive := dcobx_1.drive ;
   21.99 +  dirlbx_1.Refresh;
  21.100 +end;//--------------------------------------------------------------------------
  21.101 +//------------------------------------------------------------------------------ Change Dir
  21.102 +procedure Tform_Editor_as_BrowseDir.dirlbx_1Change(Sender: TObject);
  21.103 +begin
  21.104 +  tbx_path.Text := dirlbx_1.Directory;
  21.105 +end;//--------------------------------------------------------------------------
  21.106 +
  21.107 +//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  21.108 +
  21.109 +//------------------------------------------------------------------------------ New Dir
  21.110 +procedure Tform_Editor_as_BrowseDir.btn_NewDirClick(Sender: TObject);
  21.111 +  var NewDir : string;
  21.112 +begin
  21.113 +  // create new dir
  21.114 +    if form_editor.englisch = true then
  21.115 +      begin // english
  21.116 +        if inputquery('Create new Dir','Enter the name of the new Dir', NewDir) then
  21.117 +          begin
  21.118 +            if not directoryexists(dirlbx_1.directory + '\' + NewDir) then
  21.119 +              begin
  21.120 +                mkdir(dirlbx_1.directory + '\' + NewDir);
  21.121 +              end;
  21.122 +          end;
  21.123 +      end
  21.124 +    else
  21.125 +      begin // German
  21.126 +        if inputquery('Neuen Ordner erstellen','Name des neuen Ordners', NewDir) then
  21.127 +          begin
  21.128 +            if not directoryexists(dirlbx_1.directory + '\' + NewDir) then
  21.129 +              begin
  21.130 +                mkdir(dirlbx_1.directory + '\' + NewDir);
  21.131 +              end;
  21.132 +          end;
  21.133 +      end; 
  21.134 +  // go to new dir and refresh
  21.135 +    dirlbx_1.Directory := dirlbx_1.directory + '\' + NewDir;
  21.136 +    dirlbx_1.Update;
  21.137 +end;//--------------------------------------------------------------------------
  21.138 +
  21.139 +//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  21.140 +
  21.141 +//------------------------------------------------------------------------------ apply
  21.142 +procedure Tform_Editor_as_BrowseDir.btn_ApplyClick(Sender: TObject);
  21.143 +begin
  21.144 +  form_editor_as.tbx_CDRootPath.Text := tbx_path.text;
  21.145 +  form_editor_as_browsedir.Close;
  21.146 +end;//--------------------------------------------------------------------------
  21.147 +//------------------------------------------------------------------------------ cancel
  21.148 +procedure Tform_Editor_as_BrowseDir.btn_CancelClick(Sender: TObject);
  21.149 +begin
  21.150 +  form_editor_as_browsedir.Close;
  21.151 +end;//--------------------------------------------------------------------------
  21.152 +
  21.153 +end.//#########################################################################################
    22.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
    22.2 +++ b/unit_Editor_tutorial.dfm	Sun Dec 03 21:54:43 2006 +0100
    22.3 @@ -0,0 +1,365 @@
    22.4 +object form_editor_tutorial: Tform_editor_tutorial
    22.5 +  Left = 322
    22.6 +  Top = 206
    22.7 +  BorderIcons = []
    22.8 +  BorderStyle = bsSingle
    22.9 +  Caption = 'Tutorial'
   22.10 +  ClientHeight = 320
   22.11 +  ClientWidth = 420
   22.12 +  Color = clBtnFace
   22.13 +  Font.Charset = DEFAULT_CHARSET
   22.14 +  Font.Color = clWindowText
   22.15 +  Font.Height = -11
   22.16 +  Font.Name = 'MS Sans Serif'
   22.17 +  Font.Style = []
   22.18 +  FormStyle = fsStayOnTop
   22.19 +  Icon.Data = {
   22.20 +    0000010001002020100000000000E80200001600000028000000200000004000
   22.21 +    0000010004000000000080020000000000000000000000000000000000000000
   22.22 +    000000008000008000000080800080000000800080008080000080808000C0C0
   22.23 +    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
   22.24 +    0000000000000000000000000000000000000000000000000000000000000000
   22.25 +    0000000000000000000000000000000000000000000000000000000000000000
   22.26 +    000000000000BBBBBBBB000000000000000000000BBBBBBBBBBBBB0000000000
   22.27 +    0000000BBBBBBBBBBB0000000000000000000BBBBBBBBBB000BBBB0000000000
   22.28 +    0000BBBBBBBBB00BBBBBB00000000000000BBBBBBBB00BBBBBB0000000000000
   22.29 +    000BBBBBBB0BBBBBB00000000000000000BBBBBBB0BBBBB00000000000000000
   22.30 +    00BBBBBB0BBBBB0000000000000000000BBBBBB0BBBB00000000000000000000
   22.31 +    0BBBBB0BBBB0000000000000000000000BBBB0BBBB0000000000000000000000
   22.32 +    BBBB0BBBB00000000000000000000000BBBB0BBB000000000000000000000000
   22.33 +    BBB0BBB0000000000000000000000000BBB0BB00000000000000000000000000
   22.34 +    BB0BBB00000000000000000000000000BB0BB000000000000000000000000000
   22.35 +    0B0BB0000000000000000000000000000B0B0000000000000000000000000000
   22.36 +    0000000000000000000000000000000000000000000000000000000000000000
   22.37 +    0000000000000000000000000000000000000000000000000000000000000000
   22.38 +    0000000000000000000000000000000000000000000000000000000000000000
   22.39 +    000000000000000000000000000000000000000000000000000000000000FFFF
   22.40 +    FFFFFFFFFFFFFFFFFFFFFFFF00FFFFF8003FFFE0001FFF80000FFF00000FFE00
   22.41 +    001FFC00007FFC0001FFF80007FFF8001FFFF0003FFFF000FFFFF001FFFFE003
   22.42 +    FFFFE007FFFFE00FFFFFE01FFFFFE01FFFFFE03FFFFFE03FFFFFF07FFFFFF07F
   22.43 +    FFFFF8FFFFFFF8FFFFFFF8FFFFFFF8FFFFFFFCFFFFFFFFFFFFFFFFFFFFFF}
   22.44 +  OldCreateOrder = False
   22.45 +  Position = poScreenCenter
   22.46 +  OnClose = FormClose
   22.47 +  OnCreate = FormCreate
   22.48 +  OnShow = FormShow
   22.49 +  PixelsPerInch = 96
   22.50 +  TextHeight = 13
   22.51 +  object richtbx_Advanced: TRichEdit
   22.52 +    Left = -1
   22.53 +    Top = 24
   22.54 +    Width = 421
   22.55 +    Height = 273
   22.56 +    TabStop = False
   22.57 +    Lines.Strings = (
   22.58 +      'Use all Settings:'
   22.59 +      '*******************'
   22.60 +      ''
   22.61 +      '- Welcome-Screen Settings:'
   22.62 +      
   22.63 +        '    - Background-Picture can be larger or smaller, but will be s' +
   22.64 +        'treched then.'
   22.65 +      '    - Enter-Picture can messure 600 x 450 pixels, '
   22.66 +      '        Backgroud-Picture is not used then.'
   22.67 +      
   22.68 +        '    - Position of the Enter-Picture can be set exact to a pixel ' +
   22.69 +        'with the scrollbars'
   22.70 +      
   22.71 +        '        (Coordinates to upper left corner) or by Drag'#39'n'#39'Drop in ' +
   22.72 +        'the main Editor-window.'
   22.73 +      
   22.74 +        '    - The Welcome-Screen is shown ether till the click on the En' +
   22.75 +        'ter-Picture or till '
   22.76 +      '         the time-delay is over or not at all.'
   22.77 +      ''
   22.78 +      '- Autorun Settings:'
   22.79 +      
   22.80 +        '    - The Autorun-Icon of the CD is the Icon which is shown in t' +
   22.81 +        'he Explorer.'
   22.82 +      
   22.83 +        '    - The Directory in which the files will be copied to gets cr' +
   22.84 +        'eated if it not exists.'
   22.85 +      
   22.86 +        '    - The File which will be run automaticly has to be insert wi' +
   22.87 +        'th a path relative'
   22.88 +      
   22.89 +        '        to the CD-root-dir. Folders can be opend as well (pe: "!' +
   22.90 +        'CDAR\"). '
   22.91 +      
   22.92 +        '        Leave blank to open the CD-root-dir. Insert minus (-) fo' +
   22.93 +        'r open nothing.'
   22.94 +      ''
   22.95 +      '- Create CD-Autorunner:'
   22.96 +      '    - Watch the Grind to check the settings.'
   22.97 +      '    - After a click on "Finish" a batch-file gets started. '
   22.98 +      
   22.99 +        '        If the DOS-box doesn'#39't close it'#39's self, ignore warnings ' +
  22.100 +        'and close it.'
  22.101 +      ''
  22.102 +      '>> Got it? - If not -> "Learning by doing"')
  22.103 +    ReadOnly = True
  22.104 +    ScrollBars = ssVertical
  22.105 +    TabOrder = 5
  22.106 +  end
  22.107 +  object richtbx_Professional: TRichEdit
  22.108 +    Left = -1
  22.109 +    Top = 24
  22.110 +    Width = 421
  22.111 +    Height = 273
  22.112 +    TabStop = False
  22.113 +    Lines.Strings = (
  22.114 +      'Use Command-Line Parameters:'
  22.115 +      '**************************************'
  22.116 +      ''
  22.117 +      ' "editor"                    Opens the Editor at once.'
  22.118 +      ''
  22.119 +      
  22.120 +        ' "welcome"               Actual it'#39's only used in the Autorun-pr' +
  22.121 +        'ocess. (Autorun.inf)'
  22.122 +      
  22.123 +        '                                 Loads the Settings form "cdar.i' +
  22.124 +        'ni" in the same dir'
  22.125 +      
  22.126 +        '                                 and then loads "welcome.jpg" an' +
  22.127 +        'd/or "enter.jpg".'
  22.128 +      
  22.129 +        '                                 (Perhaps for testing-use suitab' +
  22.130 +        'le)'
  22.131 +      ''
  22.132 +      ' Path                         Direktcall of a File of Directory:'
  22.133 +      
  22.134 +        '                                 Nearly the same as "Do not show' +
  22.135 +        ' Welcome-Screen".'
  22.136 +      ''
  22.137 +      
  22.138 +        '>> If you wonder if there are any more secrets in CDAR, then you' +
  22.139 +        ' '
  22.140 +      '     have to search for yourself, cause I'#39've forgotten all them.')
  22.141 +    ReadOnly = True
  22.142 +    TabOrder = 6
  22.143 +  end
  22.144 +  object richtbx_Anfaenger: TRichEdit
  22.145 +    Left = -1
  22.146 +    Top = 24
  22.147 +    Width = 421
  22.148 +    Height = 273
  22.149 +    TabStop = False
  22.150 +    Lines.Strings = (
  22.151 +      'Die erste CD-Autorunner CD:'
  22.152 +      '**********************************'
  22.153 +      ''
  22.154 +      '1.   Male ein Begr'#252#223'ungsbild f'#252'r deine CD (600 x 450 Pixel) '
  22.155 +      '      und speicher es im JPG-Format.'
  22.156 +      '2.   Male eine OK-Schaltfl'#228'che (Kleiner als das erste Bild)'
  22.157 +      '      und speicher ebenfalls im JPG-Format.'
  22.158 +      '3.   Starte CDAR.exe'
  22.159 +      '4.   -> Editor -> Begr'#252#223'ungsbild Optionen'
  22.160 +      '5.   Begr'#252#223'ungsbild und OK-Schaltfl'#228'che laden -> '#220'bernehmen'
  22.161 +      
  22.162 +        '6.   Die OK-Schaltfl'#228'che per Drag'#39'n'#39'Drop an die gew'#252'nschte Stell' +
  22.163 +        'e schieben'
  22.164 +      '7.   -> Autorun Optionen'
  22.165 +      
  22.166 +        '8.   Im dritten Feld die Datei angeben, die automatisch gestarte' +
  22.167 +        't werden soll.'
  22.168 +      
  22.169 +        '      (Pfad muss relativ zum CD-Grundverzeichnis sein) -> '#220'berne' +
  22.170 +        'hmen'
  22.171 +      '9.   -> Autorunner erstellen -> Fertigstellen'
  22.172 +      
  22.173 +        '10. Die Datei "Autorun.inf" und der Ordner "!CDAR" im Verzeichni' +
  22.174 +        's "C:\NewCD\"'
  22.175 +      
  22.176 +        '      mit einem geeigneten Programm mit den anderen Daten auf ei' +
  22.177 +        'ne CD brennen.'
  22.178 +      ''
  22.179 +      '>> Jetzt kannst du dich zur'#252'cklehnen und stolz auf dich sein!')
  22.180 +    ReadOnly = True
  22.181 +    TabOrder = 7
  22.182 +  end
  22.183 +  object richtbx_Fortgeschrittene: TRichEdit
  22.184 +    Left = -1
  22.185 +    Top = 24
  22.186 +    Width = 421
  22.187 +    Height = 273
  22.188 +    TabStop = False
  22.189 +    Lines.Strings = (
  22.190 +      'Alle Einstellungen nutzen:'
  22.191 +      '******************************'
  22.192 +      ''
  22.193 +      '- Begr'#252#223'ungsbild Optionen:'
  22.194 +      
  22.195 +        '    - Hintergrundbild kann auch gr'#246#223'er oder kleiner sein, wird d' +
  22.196 +        'ann aber gezerrt.'
  22.197 +      '    - OK-Schaltfl'#228'che kann auch 600 x 450 Pixel gro'#223' sein, '
  22.198 +      '        ein Hintergrundbild ist dann nicht mehr von N'#246'ten.'
  22.199 +      
  22.200 +        '    - Die Position der OK-Schaltfl'#228'che kann mit den Laufbalken a' +
  22.201 +        'uf den Pixel '
  22.202 +      
  22.203 +        '        genau eingestellt werden (linke obere Ecke z'#228'hlt) oder i' +
  22.204 +        'm Editor-Hauptfenster'
  22.205 +      '        per Drag'#39'n'#39'Drop.'
  22.206 +      
  22.207 +        '    - Das Begr'#252#223'ungsbild entweder bis zum Klick auf die OK-Schal' +
  22.208 +        'tfl'#228'che oder'
  22.209 +      
  22.210 +        '        eine bestimmte Zeit lang oder gar nicht angezeigt werden' +
  22.211 +        '.'
  22.212 +      ''
  22.213 +      '- Autorun Optionen:'
  22.214 +      
  22.215 +        '    - Autorun-Icon der CD ist das Icon, das im Explorer/Arbeitsp' +
  22.216 +        'latz angezeigt wird.'
  22.217 +      
  22.218 +        '    - Das Verzeichnis in das die Dateien kopiert werden wird aut' +
  22.219 +        'omatisch erzeugt '
  22.220 +      '        falls es nicht existiert.'
  22.221 +      
  22.222 +        '    - Datei die automatisch gestartet wird muss unbedingt mit ei' +
  22.223 +        'nem Pfad relativ zum'
  22.224 +      
  22.225 +        '        CD-Grundvereichnis angegeben werden. Es k'#246'nnen auch Ordn' +
  22.226 +        'er auf der CD'
  22.227 +      '        ge'#246'ffnet werden (zB: "!CDAR\"). '
  22.228 +      
  22.229 +        '        Wenn das Feld leer ist wird das CD-Grundverzeichniss ge'#246 +
  22.230 +        'ffnet.'
  22.231 +      '        Bindestrich (-) f'#252'r keine Datei/Ordner '#246'ffnen.'
  22.232 +      ''
  22.233 +      '- Autorunner erstellen:'
  22.234 +      
  22.235 +        '    - In der Tabelle k'#246'nnen noch einmal alle Einstellungen kontr' +
  22.236 +        'olliert werden.'
  22.237 +      
  22.238 +        '    - Nach einem Klick auf Fertigstellen wird eine Batch-Datei g' +
  22.239 +        'estartet, die den'
  22.240 +      
  22.241 +        '        Autorunner fertigstellt. Falls sich das DOS-Fenster nich' +
  22.242 +        't automatisch schlie'#223't'
  22.243 +      '        kann man dies unter Datei\Einstellungen '#228'ndern.'
  22.244 +      ''
  22.245 +      '>> Alles klar? - Wenn nicht -> "Probieren geht '#252'ber Studieren"')
  22.246 +    ReadOnly = True
  22.247 +    ScrollBars = ssVertical
  22.248 +    TabOrder = 8
  22.249 +  end
  22.250 +  object richtbx_Profis: TRichEdit
  22.251 +    Left = -1
  22.252 +    Top = 24
  22.253 +    Width = 421
  22.254 +    Height = 273
  22.255 +    TabStop = False
  22.256 +    Lines.Strings = (
  22.257 +      'Befehlszeilen-Parameter nutzen:'
  22.258 +      '**************************************'
  22.259 +      ''
  22.260 +      ' "editor"                    '#214'ffnet direkt den Editor'
  22.261 +      ''
  22.262 +      
  22.263 +        ' "welcome"               Wird eigentlich nur zum Autorun selbst ' +
  22.264 +        'gebraucht:'
  22.265 +      
  22.266 +        '                                 L'#228'd die Einstellungen aus "cdar' +
  22.267 +        '.ini" im gleichen Ordner'
  22.268 +      
  22.269 +        '                                 und l'#228'd dann "welcome.jpg" und/' +
  22.270 +        'oder "enter.jpg".'
  22.271 +      '                                 (Evtl. zum Testen geeignet)'
  22.272 +      ''
  22.273 +      
  22.274 +        ' Pfad                         Direktaufruf einer Datei / eines O' +
  22.275 +        'rdners:'
  22.276 +      
  22.277 +        '                                 Mit "Kein Begr'#252#223'ungsbild anzeig' +
  22.278 +        'en" vergleichbar.'
  22.279 +      ''
  22.280 +      
  22.281 +        '>> Wenn du jetzt denkst CDAR h'#228'tte immer noch Geheimnisse vor di' +
  22.282 +        'r,'
  22.283 +      
  22.284 +        '     dann musst du selbst suchen gehen, denn ich habe sie verges' +
  22.285 +        'sen.')
  22.286 +    ReadOnly = True
  22.287 +    TabOrder = 9
  22.288 +  end
  22.289 +  object richtbx_Beginner: TRichEdit
  22.290 +    Left = -1
  22.291 +    Top = 24
  22.292 +    Width = 421
  22.293 +    Height = 273
  22.294 +    TabStop = False
  22.295 +    Lines.Strings = (
  22.296 +      'Your first CD-Autorunner CD:'
  22.297 +      '**********************************'
  22.298 +      ''
  22.299 +      '1.   Paint a Welcome-Picture for your CD (600 x 450 pixels) '
  22.300 +      '      and save it in JPG-format.'
  22.301 +      '2.   Paint a Enter-Picture (smaller as the first picture)'
  22.302 +      '      and save it in JPG-format too.'
  22.303 +      '3.   Run CDAR.exe'
  22.304 +      '4.   -> Editor -> Welcome-Screen Settings'
  22.305 +      '5.   Load Background-Picture and Enter-Picture -> Apply Changes'
  22.306 +      '6.   Drag'#39'n'#39'Drop the Enter-Picture to the prefered Position'
  22.307 +      '7.   -> Autorun Settings'
  22.308 +      
  22.309 +        '8.   Insert the File which should start automaticly in the third' +
  22.310 +        ' Field'
  22.311 +      
  22.312 +        '      (Path has to be relative to the CD-root-dir) -> Apply Chan' +
  22.313 +        'ges'
  22.314 +      '9.   -> Create CD-Autorunner -> Finish'
  22.315 +      
  22.316 +        '10. Burn the File "Autorun.inf" and the Folder "!CDAR" in "C:\Ne' +
  22.317 +        'wCD\"'
  22.318 +      '      and your other data with your prefered programm on a CD.'
  22.319 +      ''
  22.320 +      '>> Lean back and be proud of yourself!')
  22.321 +    ReadOnly = True
  22.322 +    ScrollBars = ssVertical
  22.323 +    TabOrder = 4
  22.324 +  end
  22.325 +  object btn_close: TButton
  22.326 +    Left = 0
  22.327 +    Top = 297
  22.328 +    Width = 421
  22.329 +    Height = 24
  22.330 +    Caption = 'Close'
  22.331 +    TabOrder = 0
  22.332 +    OnClick = btn_closeClick
  22.333 +  end
  22.334 +  object btn_Beginner: TButton
  22.335 +    Left = 0
  22.336 +    Top = 0
  22.337 +    Width = 141
  22.338 +    Height = 24
  22.339 +    Caption = 'Beginner'
  22.340 +    Enabled = False
  22.341 +    Font.Charset = DEFAULT_CHARSET
  22.342 +    Font.Color = clWindowText
  22.343 +    Font.Height = -11
  22.344 +    Font.Name = 'MS Sans Serif'
  22.345 +    Font.Style = []
  22.346 +    ParentFont = False
  22.347 +    TabOrder = 1
  22.348 +    OnClick = btn_BeginnerClick
  22.349 +  end
  22.350 +  object btn_Advanced: TButton
  22.351 +    Left = 140
  22.352 +    Top = 0
  22.353 +    Width = 141
  22.354 +    Height = 24
  22.355 +    Caption = 'Advanced'
  22.356 +    TabOrder = 2
  22.357 +    OnClick = btn_AdvancedClick
  22.358 +  end
  22.359 +  object btn_Professional: TButton
  22.360 +    Left = 280
  22.361 +    Top = 0
  22.362 +    Width = 141
  22.363 +    Height = 24
  22.364 +    Caption = 'Professional'
  22.365 +    TabOrder = 3
  22.366 +    OnClick = btn_ProfessionalClick
  22.367 +  end
  22.368 +end
    23.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
    23.2 +++ b/unit_Editor_tutorial.pas	Sun Dec 03 21:54:43 2006 +0100
    23.3 @@ -0,0 +1,148 @@
    23.4 +unit unit_Editor_tutorial;
    23.5 +
    23.6 +interface//####################################################################################
    23.7 +
    23.8 +uses
    23.9 +  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   23.10 +  Dialogs, StdCtrls, ComCtrls;
   23.11 +
   23.12 +type
   23.13 +  Tform_editor_tutorial = class(TForm)
   23.14 +    btn_close: TButton;
   23.15 +    btn_Beginner: TButton;
   23.16 +    btn_Advanced: TButton;
   23.17 +    btn_Professional: TButton;
   23.18 +    richtbx_Beginner: TRichEdit;
   23.19 +    richtbx_Advanced: TRichEdit;
   23.20 +    richtbx_Professional: TRichEdit;
   23.21 +    richtbx_Anfaenger: TRichEdit;
   23.22 +    richtbx_Fortgeschrittene: TRichEdit;
   23.23 +    richtbx_Profis: TRichEdit;
   23.24 +    procedure FormCreate(Sender: TObject);
   23.25 +    procedure FormShow(Sender: TObject);
   23.26 +    procedure FormClose(Sender: TObject; var Action: TCloseAction);
   23.27 +    procedure btn_closeClick(Sender: TObject);
   23.28 +    procedure btn_BeginnerClick(Sender: TObject);
   23.29 +    procedure btn_AdvancedClick(Sender: TObject);
   23.30 +    procedure btn_ProfessionalClick(Sender: TObject);
   23.31 +  private
   23.32 +    { Private declarations }
   23.33 +  public
   23.34 +    { Public declarations }
   23.35 +  end;
   23.36 +
   23.37 +var
   23.38 +  form_editor_tutorial: Tform_editor_tutorial;
   23.39 +
   23.40 +implementation//###############################################################################
   23.41 +uses unit_Editor;
   23.42 +{$R *.dfm}//###################################################################################
   23.43 +
   23.44 +//------------------------------------------------------------------------------ form create
   23.45 +procedure Tform_editor_tutorial.FormCreate(Sender: TObject);
   23.46 +begin
   23.47 +  // set language
   23.48 +    if form_editor.englisch = true then
   23.49 +      begin // English
   23.50 +        form_Editor_Tutorial.Caption := 'Tutorial';
   23.51 +        btn_close.Caption := 'Close';
   23.52 +        btn_Beginner.Caption := 'Beginner';
   23.53 +        btn_Advanced.Caption := 'Advanced';
   23.54 +        btn_Professional.Caption := 'Professional';
   23.55 +        richtbx_Beginner.BringToFront;
   23.56 +      end
   23.57 +    else
   23.58 +      begin // German
   23.59 +        form_Editor_Tutorial.Caption := 'Anleitung';
   23.60 +        btn_close.Caption := 'Schließen';
   23.61 +        btn_Beginner.Caption := 'Anfänger';
   23.62 +        btn_Advanced.Caption := 'Fortgeschrittene';
   23.63 +        btn_Professional.Caption := 'Profis';
   23.64 +        richtbx_Anfaenger.BringToFront;
   23.65 +      end;
   23.66 +end;//--------------------------------------------------------------------------
   23.67 +//------------------------------------------------------------------------------ form show
   23.68 +procedure Tform_editor_tutorial.FormShow(Sender: TObject);
   23.69 +begin
   23.70 +  // disable drag'n'drop
   23.71 +    form_editor.draggingstatus := 3;
   23.72 +  // disable menu
   23.73 +    form_editor.mnu_Tutorial.enabled := false;
   23.74 +    form_editor.mnu_WelcomeScreen.Enabled := false;
   23.75 +    form_editor.mnu_Autorun.Enabled := false;
   23.76 +    form_editor.mnu_CreateAR.enabled := false;
   23.77 +    form_editor.mnu_Sprache.enabled := false;
   23.78 +end;//--------------------------------------------------------------------------
   23.79 +//------------------------------------------------------------------------------ form close
   23.80 +procedure Tform_editor_tutorial.FormClose(Sender: TObject;
   23.81 +  var Action: TCloseAction);
   23.82 +begin
   23.83 +  // reenable drag'n'drop
   23.84 +    form_editor.draggingstatus := 0;
   23.85 +  // reenable menu
   23.86 +    form_editor.mnu_Tutorial.enabled := true;
   23.87 +    form_editor.mnu_WelcomeScreen.Enabled := true;
   23.88 +    form_editor.mnu_Autorun.Enabled := true;
   23.89 +    form_editor.mnu_CreateAR.enabled := true;
   23.90 +    form_editor.mnu_Sprache.enabled := true;
   23.91 +end;//--------------------------------------------------------------------------
   23.92 +
   23.93 +//#############################################################################################
   23.94 +
   23.95 +//------------------------------------------------------------------------------ close
   23.96 +procedure Tform_editor_tutorial.btn_closeClick(Sender: TObject);
   23.97 +begin
   23.98 +  form_editor_tutorial.Close;
   23.99 +end;//--------------------------------------------------------------------------
  23.100 +
  23.101 +//------------------------------------------------------------------------------ beginner
  23.102 +procedure Tform_editor_tutorial.btn_BeginnerClick(Sender: TObject);
  23.103 +begin
  23.104 +  if form_editor.englisch = true then
  23.105 +    begin
  23.106 +      richtbx_Beginner.BringToFront;
  23.107 +    end
  23.108 +  else
  23.109 +    begin
  23.110 +      richtbx_Anfaenger.BringToFront;
  23.111 +    end;
  23.112 +
  23.113 +  btn_Beginner.Enabled := false;
  23.114 +  btn_Advanced.Enabled := true;
  23.115 +  btn_Professional.Enabled := true;
  23.116 +end;//--------------------------------------------------------------------------
  23.117 +//------------------------------------------------------------------------------ advanced
  23.118 +procedure Tform_editor_tutorial.btn_AdvancedClick(Sender: TObject);
  23.119 +begin
  23.120 +  if form_editor.englisch = true then
  23.121 +    begin
  23.122 +      richtbx_Advanced.BringToFront;
  23.123 +    end
  23.124 +  else
  23.125 +    begin
  23.126 +      richtbx_Fortgeschrittene.BringToFront;
  23.127 +    end;
  23.128 +
  23.129 +
  23.130 +  btn_Beginner.Enabled := true;
  23.131 +  btn_Advanced.Enabled := false;
  23.132 +  btn_Professional.Enabled := true;
  23.133 +end;//--------------------------------------------------------------------------
  23.134 +//------------------------------------------------------------------------------ professional
  23.135 +procedure Tform_editor_tutorial.btn_ProfessionalClick(Sender: TObject);
  23.136 +begin
  23.137 +  if form_editor.englisch = true then
  23.138 +    begin
  23.139 +      richtbx_Professional.BringToFront;
  23.140 +    end
  23.141 +  else
  23.142 +    begin
  23.143 +      richtbx_Profis.BringToFront;
  23.144 +    end;
  23.145 +
  23.146 +  btn_Beginner.Enabled := true;
  23.147 +  btn_Advanced.Enabled := true;
  23.148 +  btn_Professional.Enabled := false;
  23.149 +end;//--------------------------------------------------------------------------
  23.150 +
  23.151 +end.//#########################################################################################
    24.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
    24.2 +++ b/unit_Editor_ws.dfm	Sun Dec 03 21:54:43 2006 +0100
    24.3 @@ -0,0 +1,322 @@
    24.4 +object form_Editor_ws: Tform_Editor_ws
    24.5 +  Left = 171
    24.6 +  Top = 275
    24.7 +  BorderIcons = []
    24.8 +  BorderStyle = bsSingle
    24.9 +  Caption = 'Welcome-Screen Settings'
   24.10 +  ClientHeight = 350
   24.11 +  ClientWidth = 470
   24.12 +  Color = clBtnFace
   24.13 +  Font.Charset = DEFAULT_CHARSET
   24.14 +  Font.Color = clWindowText
   24.15 +  Font.Height = -11
   24.16 +  Font.Name = 'MS Sans Serif'
   24.17 +  Font.Style = []
   24.18 +  FormStyle = fsStayOnTop
   24.19 +  Icon.Data = {
   24.20 +    0000010001002020100000000000E80200001600000028000000200000004000
   24.21 +    0000010004000000000080020000000000000000000000000000000000000000
   24.22 +    000000008000008000000080800080000000800080008080000080808000C0C0
   24.23 +    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
   24.24 +    0000000000000000000000000000000000000000000000000000000000000000
   24.25 +    0000000000000000000000000000000000000000000000000000000000000000
   24.26 +    000000000000BBBBBBBB000000000000000000000BBBBBBBBBBBBB0000000000
   24.27 +    0000000BBBBBBBBBBB0000000000000000000BBBBBBBBBB000BBBB0000000000
   24.28 +    0000BBBBBBBBB00BBBBBB00000000000000BBBBBBBB00BBBBBB0000000000000
   24.29 +    000BBBBBBB0BBBBBB00000000000000000BBBBBBB0BBBBB00000000000000000
   24.30 +    00BBBBBB0BBBBB0000000000000000000BBBBBB0BBBB00000000000000000000
   24.31 +    0BBBBB0BBBB0000000000000000000000BBBB0BBBB0000000000000000000000
   24.32 +    BBBB0BBBB00000000000000000000000BBBB0BBB000000000000000000000000
   24.33 +    BBB0BBB0000000000000000000000000BBB0BB00000000000000000000000000
   24.34 +    BB0BBB00000000000000000000000000BB0BB000000000000000000000000000
   24.35 +    0B0BB0000000000000000000000000000B0B0000000000000000000000000000
   24.36 +    0000000000000000000000000000000000000000000000000000000000000000
   24.37 +    0000000000000000000000000000000000000000000000000000000000000000
   24.38 +    0000000000000000000000000000000000000000000000000000000000000000
   24.39 +    000000000000000000000000000000000000000000000000000000000000FFFF
   24.40 +    FFFFFFFFFFFFFFFFFFFFFFFF00FFFFF8003FFFE0001FFF80000FFF00000FFE00
   24.41 +    001FFC00007FFC0001FFF80007FFF8001FFFF0003FFFF000FFFFF001FFFFE003
   24.42 +    FFFFE007FFFFE00FFFFFE01FFFFFE01FFFFFE03FFFFFE03FFFFFF07FFFFFF07F
   24.43 +    FFFFF8FFFFFFF8FFFFFFF8FFFFFFF8FFFFFFFCFFFFFFFFFFFFFFFFFFFFFF}
   24.44 +  OldCreateOrder = False
   24.45 +  Position = poScreenCenter
   24.46 +  OnClose = FormClose
   24.47 +  OnCreate = FormCreate
   24.48 +  OnShow = FormShow
   24.49 +  PixelsPerInch = 96
   24.50 +  TextHeight = 13
   24.51 +  object btn_cancel: TButton
   24.52 +    Left = 250
   24.53 +    Top = 310
   24.54 +    Width = 101
   24.55 +    Height = 31
   24.56 +    Caption = 'Cancel Changes'
   24.57 +    TabOrder = 0
   24.58 +    OnClick = btn_cancelClick
   24.59 +  end
   24.60 +  object btn_Apply: TButton
   24.61 +    Left = 360
   24.62 +    Top = 310
   24.63 +    Width = 101
   24.64 +    Height = 31
   24.65 +    Caption = 'Apply Changes'
   24.66 +    TabOrder = 1
   24.67 +    OnClick = btn_ApplyClick
   24.68 +  end
   24.69 +  object gbx_BilderLaden: TGroupBox
   24.70 +    Left = 10
   24.71 +    Top = 10
   24.72 +    Width = 451
   24.73 +    Height = 141
   24.74 +    TabOrder = 2
   24.75 +    object lbl_1: TLabel
   24.76 +      Left = 20
   24.77 +      Top = 20
   24.78 +      Width = 234
   24.79 +      Height = 16
   24.80 +      Caption = 'Background-Picture:  (600x450 px)'
   24.81 +      Font.Charset = DEFAULT_CHARSET
   24.82 +      Font.Color = clWindowText
   24.83 +      Font.Height = -13
   24.84 +      Font.Name = 'MS Sans Serif'
   24.85 +      Font.Style = [fsBold]
   24.86 +      ParentFont = False
   24.87 +    end
   24.88 +    object lbl_2: TLabel
   24.89 +      Left = 20
   24.90 +      Top = 80
   24.91 +      Width = 282
   24.92 +      Height = 16
   24.93 +      Caption = 'Enter-Picture:  (150x40 px recommended)'
   24.94 +      Font.Charset = DEFAULT_CHARSET
   24.95 +      Font.Color = clWindowText
   24.96 +      Font.Height = -13
   24.97 +      Font.Name = 'MS Sans Serif'
   24.98 +      Font.Style = [fsBold]
   24.99 +      ParentFont = False
  24.100 +    end
  24.101 +    object btn_bp: TButton
  24.102 +      Left = 20
  24.103 +      Top = 40
  24.104 +      Width = 91
  24.105 +      Height = 21
  24.106 +      Caption = 'Browse'
  24.107 +      TabOrder = 0
  24.108 +      OnClick = btn_bpClick
  24.109 +    end
  24.110 +    object tbx_BackgroundPath: TEdit
  24.111 +      Left = 130
  24.112 +      Top = 40
  24.113 +      Width = 311
  24.114 +      Height = 21
  24.115 +      TabOrder = 1
  24.116 +      Text = 'tbx_BackgroundPath'
  24.117 +      OnChange = tbx_BackgroundPathChange
  24.118 +    end
  24.119 +    object tbx_EnterPath: TEdit
  24.120 +      Left = 130
  24.121 +      Top = 100
  24.122 +      Width = 311
  24.123 +      Height = 21
  24.124 +      TabOrder = 3
  24.125 +      Text = 'tbx_EnterPath'
  24.126 +      OnChange = tbx_EnterPathChange
  24.127 +    end
  24.128 +    object btn_ep: TButton
  24.129 +      Left = 20
  24.130 +      Top = 100
  24.131 +      Width = 91
  24.132 +      Height = 21
  24.133 +      Caption = 'Browse'
  24.134 +      TabOrder = 2
  24.135 +      OnClick = btn_epClick
  24.136 +    end
  24.137 +  end
  24.138 +  object gbx_EnterPos: TGroupBox
  24.139 +    Left = 10
  24.140 +    Top = 160
  24.141 +    Width = 231
  24.142 +    Height = 181
  24.143 +    TabOrder = 3
  24.144 +    object lbl_3: TLabel
  24.145 +      Left = 110
  24.146 +      Top = 50
  24.147 +      Width = 47
  24.148 +      Height = 13
  24.149 +      Caption = 'X-Position'
  24.150 +      Font.Charset = DEFAULT_CHARSET
  24.151 +      Font.Color = clWindowText
  24.152 +      Font.Height = -11
  24.153 +      Font.Name = 'MS Sans Serif'
  24.154 +      Font.Style = []
  24.155 +      ParentFont = False
  24.156 +    end
  24.157 +    object lbl_4: TLabel
  24.158 +      Left = 40
  24.159 +      Top = 90
  24.160 +      Width = 47
  24.161 +      Height = 13
  24.162 +      Caption = 'Y-Position'
  24.163 +      Font.Charset = DEFAULT_CHARSET
  24.164 +      Font.Color = clWindowText
  24.165 +      Font.Height = -11
  24.166 +      Font.Name = 'MS Sans Serif'
  24.167 +      Font.Style = []
  24.168 +      ParentFont = False
  24.169 +    end
  24.170 +    object lbl_5: TLabel
  24.171 +      Left = 80
  24.172 +      Top = 120
  24.173 +      Width = 128
  24.174 +      Height = 13
  24.175 +      Caption = '... of the Enter-Picture'
  24.176 +      Font.Charset = DEFAULT_CHARSET
  24.177 +      Font.Color = clWindowText
  24.178 +      Font.Height = -11
  24.179 +      Font.Name = 'MS Sans Serif'
  24.180 +      Font.Style = [fsBold]
  24.181 +      ParentFont = False
  24.182 +    end
  24.183 +    object lbl_6: TLabel
  24.184 +      Left = 50
  24.185 +      Top = 150
  24.186 +      Width = 166
  24.187 +      Height = 13
  24.188 +      Caption = '(You can move by Drag'#39'n'#39'Drop too)'
  24.189 +    end
  24.190 +    object hsb_EnterXPos: TScrollBar
  24.191 +      Left = 30
  24.192 +      Top = 20
  24.193 +      Width = 191
  24.194 +      Height = 20
  24.195 +      LargeChange = 10
  24.196 +      Max = 0
  24.197 +      PageSize = 0
  24.198 +      TabOrder = 0
  24.199 +      OnChange = hsb_EnterXPosChange
  24.200 +    end
  24.201 +    object tbx_XPos: TEdit
  24.202 +      Left = 170
  24.203 +      Top = 50
  24.204 +      Width = 31
  24.205 +      Height = 21
  24.206 +      TabStop = False
  24.207 +      AutoSize = False
  24.208 +      BevelEdges = []
  24.209 +      BevelInner = bvNone
  24.210 +      BevelKind = bkFlat
  24.211 +      BevelOuter = bvNone
  24.212 +      Enabled = False
  24.213 +      TabOrder = 2
  24.214 +      Text = '325'
  24.215 +    end
  24.216 +    object tbx_YPos: TEdit
  24.217 +      Left = 100
  24.218 +      Top = 90
  24.219 +      Width = 31
  24.220 +      Height = 21
  24.221 +      TabStop = False
  24.222 +      AutoSize = False
  24.223 +      BevelEdges = []
  24.224 +      BevelInner = bvNone
  24.225 +      BevelKind = bkFlat
  24.226 +      BevelOuter = bvNone
  24.227 +      BiDiMode = bdLeftToRight
  24.228 +      Enabled = False
  24.229 +      ParentBiDiMode = False
  24.230 +      TabOrder = 3
  24.231 +      Text = '225'
  24.232 +    end
  24.233 +    object vsb_EnterYPos: TScrollBar
  24.234 +      Left = 10
  24.235 +      Top = 40
  24.236 +      Width = 20
  24.237 +      Height = 131
  24.238 +      Kind = sbVertical
  24.239 +      LargeChange = 10
  24.240 +      Max = 0
  24.241 +      PageSize = 0
  24.242 +      TabOrder = 1
  24.243 +      OnChange = vsb_EnterYPosChange
  24.244 +    end
  24.245 +  end
  24.246 +  object gbx_ShowTill: TGroupBox
  24.247 +    Left = 250
  24.248 +    Top = 160
  24.249 +    Width = 211
  24.250 +    Height = 141
  24.251 +    TabOrder = 4
  24.252 +    object rbtn_DoShow: TRadioButton
  24.253 +      Left = 30
  24.254 +      Top = 30
  24.255 +      Width = 171
  24.256 +      Height = 17
  24.257 +      Caption = 'Show Welcome-Screen ...'
  24.258 +      Checked = True
  24.259 +      TabOrder = 0
  24.260 +      TabStop = True
  24.261 +      OnClick = rbtn_DoShowClick
  24.262 +    end
  24.263 +    object rbtn_NotShow: TRadioButton
  24.264 +      Left = 30
  24.265 +      Top = 100
  24.266 +      Width = 171
  24.267 +      Height = 17
  24.268 +      Caption = 'Don'#39't show Welcome-Screen'
  24.269 +      TabOrder = 1
  24.270 +      OnClick = rbtn_NotShowClick
  24.271 +    end
  24.272 +    object pan_ShowTill: TPanel
  24.273 +      Left = 60
  24.274 +      Top = 50
  24.275 +      Width = 141
  24.276 +      Height = 41
  24.277 +      BevelOuter = bvNone
  24.278 +      TabOrder = 2
  24.279 +      object rbtn_TillClick: TRadioButton
  24.280 +        Left = 0
  24.281 +        Top = 1
  24.282 +        Width = 131
  24.283 +        Height = 17
  24.284 +        Caption = '... till click'
  24.285 +        Checked = True
  24.286 +        TabOrder = 0
  24.287 +        TabStop = True
  24.288 +        OnClick = rbtn_TillClickClick
  24.289 +      end
  24.290 +      object rbtn_TillTime: TRadioButton
  24.291 +        Left = 0
  24.292 +        Top = 22
  24.293 +        Width = 141
  24.294 +        Height = 17
  24.295 +        Caption = '...                seconds'
  24.296 +        TabOrder = 1
  24.297 +        OnClick = rbtn_TillTimeClick
  24.298 +      end
  24.299 +      object cobx_Delay: TComboBox
  24.300 +        Left = 30
  24.301 +        Top = 20
  24.302 +        Width = 41
  24.303 +        Height = 21
  24.304 +        Style = csDropDownList
  24.305 +        Enabled = False
  24.306 +        ItemHeight = 13
  24.307 +        TabOrder = 2
  24.308 +        Items.Strings = (
  24.309 +          '1'
  24.310 +          '2'
  24.311 +          '3'
  24.312 +          '5'
  24.313 +          '7'
  24.314 +          '10'
  24.315 +          '15'
  24.316 +          '20')
  24.317 +      end
  24.318 +    end
  24.319 +  end
  24.320 +  object OpenDialog1: TOpenPictureDialog
  24.321 +    Filter = 'JPEG Image File (*.jpg)|*.jpg;*.jpeg'
  24.322 +    OptionsEx = [ofExNoPlacesBar]
  24.323 +    Left = 440
  24.324 +  end
  24.325 +end
    25.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
    25.2 +++ b/unit_Editor_ws.pas	Sun Dec 03 21:54:43 2006 +0100
    25.3 @@ -0,0 +1,408 @@
    25.4 +unit unit_Editor_ws;
    25.5 +
    25.6 +interface//####################################################################################
    25.7 +
    25.8 +uses
    25.9 +  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   25.10 +  Dialogs, StdCtrls, ExtCtrls, jpeg, ExtDlgs;
   25.11 +
   25.12 +type
   25.13 +  Tform_Editor_ws = class(TForm)
   25.14 +    btn_cancel: TButton;
   25.15 +    btn_Apply: TButton;
   25.16 +    gbx_BilderLaden: TGroupBox;
   25.17 +    btn_bp: TButton;
   25.18 +    lbl_1: TLabel;
   25.19 +    tbx_BackgroundPath: TEdit;
   25.20 +    tbx_EnterPath: TEdit;
   25.21 +    btn_ep: TButton;
   25.22 +    lbl_2: TLabel;
   25.23 +    gbx_EnterPos: TGroupBox;
   25.24 +    hsb_EnterXPos: TScrollBar;
   25.25 +    tbx_XPos: TEdit;
   25.26 +    lbl_3: TLabel;
   25.27 +    tbx_YPos: TEdit;
   25.28 +    lbl_4: TLabel;
   25.29 +    vsb_EnterYPos: TScrollBar;
   25.30 +    gbx_ShowTill: TGroupBox;
   25.31 +    rbtn_DoShow: TRadioButton;
   25.32 +    rbtn_NotShow: TRadioButton;
   25.33 +    pan_ShowTill: TPanel;
   25.34 +    rbtn_TillClick: TRadioButton;
   25.35 +    rbtn_TillTime: TRadioButton;
   25.36 +    cobx_Delay: TComboBox;
   25.37 +    lbl_5: TLabel;
   25.38 +    lbl_6: TLabel;
   25.39 +    OpenDialog1: TOpenPictureDialog;
   25.40 +    procedure FormClose(Sender: TObject; var Action: TCloseAction);
   25.41 +    procedure FormCreate(Sender: TObject);
   25.42 +    procedure hsb_EnterXPosChange(Sender: TObject);
   25.43 +    procedure vsb_EnterYPosChange(Sender: TObject);
   25.44 +    procedure rbtn_NotShowClick(Sender: TObject);
   25.45 +    procedure rbtn_DoShowClick(Sender: TObject);
   25.46 +    procedure btn_bpClick(Sender: TObject);
   25.47 +    procedure btn_epClick(Sender: TObject);
   25.48 +    procedure FormShow(Sender: TObject);
   25.49 +    procedure btn_ApplyClick(Sender: TObject);
   25.50 +    procedure btn_cancelClick(Sender: TObject);
   25.51 +    procedure rbtn_TillTimeClick(Sender: TObject);
   25.52 +    procedure rbtn_TillClickClick(Sender: TObject);
   25.53 +    procedure tbx_BackgroundPathChange(Sender: TObject);
   25.54 +    procedure tbx_EnterPathChange(Sender: TObject);
   25.55 +  private
   25.56 +    { Private declarations }
   25.57 +  public
   25.58 +    { Public declarations }
   25.59 +  end;
   25.60 +
   25.61 +var
   25.62 +  form_Editor_ws: Tform_Editor_ws;
   25.63 +
   25.64 +implementation//###############################################################################
   25.65 +uses unit_Editor;
   25.66 +{$R *.dfm}//###################################################################################
   25.67 +
   25.68 +//------------------------------------------------------------------------------ form create
   25.69 +procedure Tform_Editor_ws.FormCreate(Sender: TObject);
   25.70 +begin
   25.71 +  // set language
   25.72 +    if form_editor.englisch = true then
   25.73 +      begin // English
   25.74 +        form_Editor_ws.Caption := 'Welcome-Screen Settings';
   25.75 +        btn_cancel.Caption := 'Cancel Changes';
   25.76 +        btn_Apply.Caption := 'Apply Changes';
   25.77 +        btn_bp.Caption := 'Browse';
   25.78 +        btn_ep.Caption := 'Browse';
   25.79 +        lbl_1.Caption := 'Background-Picture:  (600x450 px)';
   25.80 +        lbl_2.caption := 'Enter-Picture:  (150x40 px recommended)';
   25.81 +        lbl_5.Caption := '... of the Enter-Picture';
   25.82 +        lbl_6.Caption := '(You can move by Drag n Drop too)';
   25.83 +        rbtn_DoShow.Caption := 'Show Welcome-Screen ...';
   25.84 +        rbtn_NotShow.Caption := 'Do not show Welcome-Screen';
   25.85 +        rbtn_TillClick.Caption := '... till click';
   25.86 +        rbtn_TillTime.Caption := '...                seconds';
   25.87 +      end
   25.88 +    else
   25.89 +      begin // German
   25.90 +        form_Editor_ws.Caption := 'Begrüßungsbild Optionen';
   25.91 +        btn_cancel.Caption := 'Abbrechen';
   25.92 +        btn_Apply.Caption := 'Übernehmen';
   25.93 +        btn_bp.Caption := 'Durchsuchen';
   25.94 +        btn_ep.Caption := 'Durchsuchen';
   25.95 +        lbl_1.Caption := 'Hintergrundbild:  (600x450 px)';
   25.96 +        lbl_2.caption := 'Enterbild:  (150x40 px empfohlen)';
   25.97 +        lbl_5.Caption := '... des Enterbilds';
   25.98 +        lbl_6.Caption := '(Drag n Drop ist auch möglich)';             
   25.99 +        rbtn_DoShow.Caption := 'Begrüßungsbild anzeigen ...';
  25.100 +        rbtn_NotShow.Caption := 'Kein Begrüßungsbild anzeigen';
  25.101 +        rbtn_TillClick.Caption := '... bis Klick';
  25.102 +        rbtn_TillTime.Caption := '...                Sekunden';
  25.103 +      end;
  25.104 +
  25.105 +  // set standard path
  25.106 +  opendialog1.InitialDir := extractfilepath(paramstr(0));
  25.107 +end;//--------------------------------------------------------------------------
  25.108 +//------------------------------------------------------------------------------ form show
  25.109 +procedure Tform_Editor_ws.FormShow(Sender: TObject);
  25.110 +begin
  25.111 +  // disable drag'n'drop
  25.112 +    form_editor.draggingstatus := 3;
  25.113 +  // disable menu
  25.114 +    form_editor.mnu_Tutorial.enabled := false;
  25.115 +    form_editor.mnu_WelcomeScreen.Enabled := false;
  25.116 +    form_editor.mnu_Autorun.Enabled := false;
  25.117 +    form_editor.mnu_CreateAR.enabled := false;
  25.118 +    form_editor.mnu_Sprache.enabled := false;
  25.119 +
  25.120 +  // init
  25.121 +    // set picture path
  25.122 +      tbx_BackgroundPath.text := form_Editor.PfadHG_alt;
  25.123 +      tbx_EnterPath.text := form_Editor.PfadEnter_alt;
  25.124 +    // set 'img_button'-positon
  25.125 +      tbx_XPos.text := inttostr(form_Editor.xEnter_alt);
  25.126 +      tbx_YPos.text := inttostr(form_Editor.yEnter_alt);
  25.127 +    // kind of welcome action
  25.128 +      if form_Editor.Welcomekind_alt = 'none' then
  25.129 +        begin
  25.130 +          rbtn_notshow.checked := true;
  25.131 +
  25.132 +          rbtn_tillclick.Enabled := false;
  25.133 +          rbtn_tilltime.Enabled := false;
  25.134 +        end
  25.135 +      else
  25.136 +        begin
  25.137 +          if form_Editor.Welcomekind_alt = 'click' then
  25.138 +            begin
  25.139 +              rbtn_tillClick.checked := true;
  25.140 +              rbtn_doshow.Checked := true;
  25.141 +            end
  25.142 +          else
  25.143 +            begin
  25.144 +              rbtn_tilltime.Checked := true;
  25.145 +              rbtn_doshow.Checked := true;              
  25.146 +            end;
  25.147 +        end;
  25.148 +    // delay
  25.149 +    cobx_delay.ItemIndex := form_Editor.Delay_alt;
  25.150 +
  25.151 +  // set scrollbar values
  25.152 +    hsb_enterXpos.Max := form_editor.img_Background.Width - form_editor.img_button.Width;
  25.153 +    hsb_enterXpos.Position := form_editor.img_button.Left;
  25.154 +    vsb_enterYpos.Max := form_editor.img_Background.height - form_editor.img_button.height;
  25.155 +    vsb_enterYpos.Position := form_editor.img_button.top;
  25.156 +end;//--------------------------------------------------------------------------
  25.157 +//------------------------------------------------------------------------------ form close
  25.158 +procedure Tform_Editor_ws.FormClose(Sender: TObject;
  25.159 +  var Action: TCloseAction);
  25.160 +begin
  25.161 +  // reenable drag'n'drop
  25.162 +    form_editor.draggingstatus := 0;
  25.163 +  // reenable menu
  25.164 +    form_editor.mnu_Tutorial.enabled := true;
  25.165 +    form_editor.mnu_WelcomeScreen.Enabled := true;
  25.166 +    form_editor.mnu_Autorun.Enabled := true;
  25.167 +    form_editor.mnu_CreateAR.enabled := true;
  25.168 +    form_editor.mnu_Sprache.enabled := true;
  25.169 +end;//--------------------------------------------------------------------------
  25.170 +
  25.171 +//#############################################################################################
  25.172 +
  25.173 +//------------------------------------------------------------------------------ change x-position
  25.174 +procedure Tform_Editor_ws.hsb_EnterXPosChange(Sender: TObject);
  25.175 +begin
  25.176 +  tbx_xpos.Text := inttostr(hsb_enterXpos.Position);
  25.177 +  form_editor.img_button.Left := hsb_enterXpos.position;
  25.178 +end;//--------------------------------------------------------------------------
  25.179 +//------------------------------------------------------------------------------ change y-position
  25.180 +procedure Tform_Editor_ws.vsb_EnterYPosChange(Sender: TObject);
  25.181 +begin
  25.182 +  tbx_ypos.Text := inttostr(vsb_enterYpos.Position);
  25.183 +  form_editor.img_button.top := vsb_enterYpos.position;
  25.184 +end;//--------------------------------------------------------------------------
  25.185 +
  25.186 +//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  25.187 +
  25.188 +//------------------------------------------------------------------------------ NotShow
  25.189 +procedure Tform_Editor_ws.rbtn_NotShowClick(Sender: TObject);
  25.190 +begin
  25.191 +  //
  25.192 +    rbtn_tillclick.Enabled := false;
  25.193 +    rbtn_tilltime.Enabled := false;
  25.194 +    cobx_Delay.enabled := false;
  25.195 +
  25.196 +    tbx_BackgroundPath.Enabled := false;
  25.197 +    btn_bp.Enabled := false;
  25.198 +    tbx_EnterPath.Enabled := false;
  25.199 +    btn_ep.Enabled := false;
  25.200 +    hsb_EnterXPos.Enabled := false;
  25.201 +    vsb_EnterYPos.Enabled := false;
  25.202 +end;//--------------------------------------------------------------------------
  25.203 +//------------------------------------------------------------------------------ Show
  25.204 +procedure Tform_Editor_ws.rbtn_DoShowClick(Sender: TObject);
  25.205 +begin
  25.206 +  //
  25.207 +    rbtn_tillclick.Enabled := true;
  25.208 +    rbtn_tilltime.Enabled := true;
  25.209 +    if rbtn_tilltime.Checked = true then
  25.210 +      begin
  25.211 +        cobx_Delay.Enabled := true;   // time
  25.212 +
  25.213 +        tbx_BackgroundPath.Enabled := true;
  25.214 +        btn_bp.Enabled := true;
  25.215 +        tbx_EnterPath.Enabled := false;
  25.216 +        btn_ep.Enabled := false;
  25.217 +        hsb_EnterXPos.Enabled := false;
  25.218 +        vsb_EnterYPos.Enabled := false;
  25.219 +      end
  25.220 +    else
  25.221 +      begin
  25.222 +        cobx_Delay.enabled := false;   // click
  25.223 +
  25.224 +        tbx_BackgroundPath.Enabled := true;
  25.225 +        btn_bp.Enabled := true;
  25.226 +        tbx_EnterPath.Enabled := true;
  25.227 +        btn_ep.Enabled := true;
  25.228 +        hsb_EnterXPos.Enabled := true;
  25.229 +        vsb_EnterYPos.Enabled := true;
  25.230 +      end;
  25.231 +end;//--------------------------------------------------------------------------
  25.232 +//------------------------------------------------------------------------------ TillClick
  25.233 +procedure Tform_Editor_ws.rbtn_TillClickClick(Sender: TObject);
  25.234 +begin
  25.235 +  cobx_Delay.Enabled := false;
  25.236 +
  25.237 +  tbx_BackgroundPath.Enabled := true;
  25.238 +  btn_bp.Enabled := true;
  25.239 +  tbx_EnterPath.Enabled := true;
  25.240 +  btn_ep.Enabled := true;
  25.241 +  hsb_EnterXPos.Enabled := true;
  25.242 +  vsb_EnterYPos.Enabled := true;
  25.243 +end;//--------------------------------------------------------------------------
  25.244 +//------------------------------------------------------------------------------ TillIime
  25.245 +procedure Tform_Editor_ws.rbtn_TillTimeClick(Sender: TObject);
  25.246 +begin
  25.247 +  cobx_Delay.Enabled := true;
  25.248 +
  25.249 +  tbx_BackgroundPath.Enabled := true;
  25.250 +  btn_bp.Enabled := true;
  25.251 +  tbx_EnterPath.Enabled := false;
  25.252 +  btn_ep.Enabled := false;
  25.253 +  hsb_EnterXPos.Enabled := false;
  25.254 +  vsb_EnterYPos.Enabled := false;
  25.255 +end;//--------------------------------------------------------------------------
  25.256 +
  25.257 +//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  25.258 +
  25.259 +//------------------------------------------------------------------------------ Back-Pic
  25.260 +procedure Tform_Editor_ws.btn_bpClick(Sender: TObject);
  25.261 +begin
  25.262 +  // Browse Background-Picture
  25.263 +    if opendialog1.Execute then
  25.264 +      begin
  25.265 +          tbx_backgroundpath.Text := opendialog1.FileName;
  25.266 +        // load picture
  25.267 +          form_editor.img_Background.Picture.LoadFromFile(tbx_backgroundpath.text);
  25.268 +      end;
  25.269 +end;//--------------------------------------------------------------------------
  25.270 +//------------------------------------------------------------------------------ Enter-Pic
  25.271 +procedure Tform_Editor_ws.btn_epClick(Sender: TObject);
  25.272 +begin
  25.273 +  // Browse Enter-Picture
  25.274 +    if opendialog1.Execute then
  25.275 +      begin
  25.276 +          tbx_enterpath.Text := opendialog1.FileName;
  25.277 +        // load picture
  25.278 +          form_editor.img_button.Picture.LoadFromFile(tbx_enterpath.text);
  25.279 +        // if enter-button gets to large
  25.280 +          if form_editor.img_button.Width > form_editor.img_Background.Width then
  25.281 +            begin
  25.282 +              form_editor.img_button.Picture := nil;
  25.283 +              tbx_enterpath.Text := '';
  25.284 +              form_editor.img_button.Width := 0;
  25.285 +              form_editor.img_button.Height := 0;
  25.286 +            end;
  25.287 +          if form_editor.img_button.height > form_editor.img_Background.height then
  25.288 +            begin
  25.289 +              form_editor.img_button.Picture := nil;
  25.290 +              tbx_enterpath.Text := '';
  25.291 +              form_editor.img_button.Width := 0;
  25.292 +              form_editor.img_button.Height := 0;              
  25.293 +            end;
  25.294 +        // config scrollbars
  25.295 +          hsb_enterXpos.Max := form_editor.img_Background.Width - form_editor.img_button.Width;
  25.296 +          hsb_enterXpos.Position := form_editor.img_button.Left;
  25.297 +          vsb_enterYpos.Max := form_editor.img_Background.height - form_editor.img_button.height;
  25.298 +          vsb_enterYpos.Position := form_editor.img_button.top;
  25.299 +        // if enter-button is fullscreen, then dont use a background-pic
  25.300 +          if form_editor.img_button.Width = form_editor.img_Background.Width then
  25.301 +            begin
  25.302 +              if form_editor.img_button.Height = form_editor.img_Background.Height then
  25.303 +                begin
  25.304 +                  tbx_BackgroundPath.Enabled := false;
  25.305 +                  btn_bp.Enabled := false;
  25.306 +                end
  25.307 +              else
  25.308 +                begin
  25.309 +                  tbx_BackgroundPath.Enabled := true;
  25.310 +                  btn_bp.Enabled := true;
  25.311 +                end;
  25.312 +            end;
  25.313 +      end;
  25.314 +end;//--------------------------------------------------------------------------
  25.315 +
  25.316 +//------------------------------------------------------------------------------ no pic
  25.317 +procedure Tform_Editor_ws.tbx_BackgroundPathChange(Sender: TObject);
  25.318 +begin
  25.319 +  if tbx_BackgroundPath.Text = '' then
  25.320 +    begin
  25.321 +      form_editor.img_Background.Picture := nil;
  25.322 +    end;
  25.323 +end;//--------------------------------------------------------------------------
  25.324 +//------------------------------------------------------------------------------ no pic
  25.325 +procedure Tform_Editor_ws.tbx_EnterPathChange(Sender: TObject);
  25.326 +begin
  25.327 +  if tbx_EnterPath.Text = '' then
  25.328 +    begin
  25.329 +      form_editor.img_Button.Picture := nil;
  25.330 +      tbx_BackgroundPath.Enabled := true;
  25.331 +      btn_bp.Enabled := true;
  25.332 +    end;
  25.333 +end;//--------------------------------------------------------------------------
  25.334 +
  25.335 +//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  25.336 +
  25.337 +//------------------------------------------------------------------------------ apply
  25.338 +procedure Tform_Editor_ws.btn_ApplyClick(Sender: TObject);
  25.339 +begin
  25.340 +  // set new data to '*_neu'
  25.341 +    form_Editor.pfadHG_neu := tbx_backgroundpath.text;
  25.342 +    form_Editor.pfadEnter_neu := tbx_Enterpath.text;
  25.343 +    form_Editor.xEnter_neu := strtoint(tbx_xpos.text);
  25.344 +    form_Editor.yEnter_neu := strtoint(tbx_ypos.text);
  25.345 +    form_Editor.Delay_neu := cobx_Delay.ItemIndex;
  25.346 +    // kind of welcome action
  25.347 +      if rbtn_notshow.checked then
  25.348 +        begin
  25.349 +          form_Editor.Welcomekind_neu := 'none';
  25.350 +        end
  25.351 +      else
  25.352 +        begin
  25.353 +          if rbtn_tillClick.checked then
  25.354 +            begin
  25.355 +              form_Editor.Welcomekind_neu := 'click';
  25.356 +            end
  25.357 +          else
  25.358 +            begin
  25.359 +              form_Editor.Welcomekind_neu := 'time';
  25.360 +            end;
  25.361 +        end;
  25.362 +
  25.363 +  // '*_neu' to '*_alt'
  25.364 +    with form_Editor do
  25.365 +    begin
  25.366 +      PfadHG_alt := PfadHG_neu;
  25.367 +      PfadEnter_alt := PfadEnter_neu;
  25.368 +      xEnter_alt := xEnter_neu;
  25.369 +      yEnter_alt := yEnter_neu;
  25.370 +      WelcomeKind_alt := WelcomeKind_neu;
  25.371 +      Delay_alt := Delay_neu;
  25.372 +    end;
  25.373 +
  25.374 +  // delay
  25.375 +    form_Editor.Delay := cobx_Delay.text;
  25.376 +
  25.377 +
  25.378 +  // close
  25.379 +    form_editor_ws.Close;
  25.380 +end;//--------------------------------------------------------------------------
  25.381 +//------------------------------------------------------------------------------ cancel
  25.382 +procedure Tform_Editor_ws.btn_cancelClick(Sender: TObject);
  25.383 +begin
  25.384 +  // restore old settings
  25.385 +    // background-pic
  25.386 +      if form_Editor.PfadHG_alt = '' then
  25.387 +        begin
  25.388 +          form_Editor.img_background.Picture := nil;
  25.389 +        end
  25.390 +      else
  25.391 +        begin
  25.392 +          form_editor.img_Background.Picture.LoadFromFile(form_Editor.PfadHG_alt);
  25.393 +        end;
  25.394 +    // enter-pic
  25.395 +      if form_Editor.PfadEnter_alt = '' then
  25.396 +        begin
  25.397 +          form_Editor.img_button.Picture := nil;
  25.398 +        end
  25.399 +      else
  25.400 +        begin
  25.401 +          form_editor.img_button.Picture.LoadFromFile(form_Editor.PfadEnter_alt);
  25.402 +        end;
  25.403 +    // button-pos
  25.404 +      form_editor.img_button.Left := form_Editor.xEnter_alt;
  25.405 +      form_editor.img_button.top := form_Editor.yEnter_alt;
  25.406 +
  25.407 +  // close
  25.408 +    form_editor_ws.Close;
  25.409 +end;//--------------------------------------------------------------------------
  25.410 +
  25.411 +end.//#########################################################################################
    26.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
    26.2 +++ b/unit_Start.dfm	Sun Dec 03 21:54:43 2006 +0100
    26.3 @@ -0,0 +1,892 @@
    26.4 +object form_Start: Tform_Start
    26.5 +  Left = 358
    26.6 +  Top = 114
    26.7 +  BorderIcons = [biSystemMenu]
    26.8 +  BorderStyle = bsSingle
    26.9 +  Caption = 'CD-Autorunner 2.3        http://prog.marmaro.de/cdar/          '
   26.10 +  ClientHeight = 340
   26.11 +  ClientWidth = 640
   26.12 +  Color = clSkyBlue
   26.13 +  Font.Charset = DEFAULT_CHARSET
   26.14 +  Font.Color = clWindowText
   26.15 +  Font.Height = -11
   26.16 +  Font.Name = 'MS Sans Serif'
   26.17 +  Font.Style = []
   26.18 +  FormStyle = fsStayOnTop
   26.19 +  Icon.Data = {
   26.20 +    0000010001002020100000000000E80200001600000028000000200000004000
   26.21 +    0000010004000000000080020000000000000000000000000000000000000000
   26.22 +    000000008000008000000080800080000000800080008080000080808000C0C0
   26.23 +    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
   26.24 +    0000000000000000000000000000000000000000000000000000000000000000
   26.25 +    0000000000000000000000000000000000000000000000000000000000000000
   26.26 +    000000000000BBBBBBBB000000000000000000000BBBBBBBBBBBBB0000000000
   26.27 +    0000000BBBBBBBBBBB0000000000000000000BBBBBBBBBB000BBBB0000000000
   26.28 +    0000BBBBBBBBB00BBBBBB00000000000000BBBBBBBB00BBBBBB0000000000000
   26.29 +    000BBBBBBB0BBBBBB00000000000000000BBBBBBB0BBBBB00000000000000000
   26.30 +    00BBBBBB0BBBBB0000000000000000000BBBBBB0BBBB00000000000000000000
   26.31 +    0BBBBB0BBBB0000000000000000000000BBBB0BBBB0000000000000000000000
   26.32 +    BBBB0BBBB00000000000000000000000BBBB0BBB000000000000000000000000
   26.33 +    BBB0BBB0000000000000000000000000BBB0BB00000000000000000000000000
   26.34 +    BB0BBB00000000000000000000000000BB0BB000000000000000000000000000
   26.35 +    0B0BB0000000000000000000000000000B0B0000000000000000000000000000
   26.36 +    0000000000000000000000000000000000000000000000000000000000000000
   26.37 +    0000000000000000000000000000000000000000000000000000000000000000
   26.38 +    0000000000000000000000000000000000000000000000000000000000000000
   26.39 +    000000000000000000000000000000000000000000000000000000000000FFFF
   26.40 +    FFFFFFFFFFFFFFFFFFFFFFFF00FFFFF8003FFFE0001FFF80000FFF00000FFE00
   26.41 +    001FFC00007FFC0001FFF80007FFF8001FFFF0003FFFF000FFFFF001FFFFE003
   26.42 +    FFFFE007FFFFE00FFFFFE01FFFFFE01FFFFFE03FFFFFE03FFFFFF07FFFFFF07F
   26.43 +    FFFFF8FFFFFFF8FFFFFFF8FFFFFFF8FFFFFFFCFFFFFFFFFFFFFFFFFFFFFF}
   26.44 +  OldCreateOrder = False
   26.45 +  Position = poScreenCenter
   26.46 +  OnCreate = FormCreate
   26.47 +  PixelsPerInch = 96
   26.48 +  TextHeight = 13
   26.49 +  object img_Logo: TImage
   26.50 +    Left = 20
   26.51 +    Top = 20
   26.52 +    Width = 600
   26.53 +    Height = 100
   26.54 +    Picture.Data = {
   26.55 +      0A544A504547496D616765B73B0000FFD8FFE000104A46494600010101004800
   26.56 +      480000FFDB0043000B08080809080C09090C110B0A0B11140F0C0C0F14171212
   26.57 +      121212171813141414141318161A1B1C1B1A162222242422222E2E2E2E2E3030
   26.58 +      3030303030303030FFDB0043010C0C0C1010101711111718141314181E1B1C1C
   26.59 +      1B1E241E1E1F1E1E242923202020202329262824242428262B2B29292B2B3030
   26.60 +      30303030303030303030303030FFC00011080064025803011100021101031101
   26.61 +      FFC4001B00000203010101000000000000000000000005030406020107FFC400
   26.62 +      4D10000103030203040507080609040300000102030400051112210613312241
   26.63 +      51611432718191152333425292A107166272B1C1D1D21724435363A234445482
   26.64 +      93A3B2E1E225C2D3F03573F1FFC4001A01010003010101000000000000000000
   26.65 +      0000020304010506FFC4003E1100020102030408040405030403000000000102
   26.66 +      031104122131415161051322718191A1D11432B1C1334252E115236272F092A2
   26.67 +      F1243453634382B2FFDA000C03010002110311003F00B7C4B79BDDB65C366DF1
   26.68 +      9975B98A0CA56E93F4A7384E011B63BE809AD4E7172A566EED446E2849C86356
   26.69 +      BD5DDD54AA02827F28B602EE92892968101520B5F369CF4CE15ABF0A01DDC2FF
   26.70 +      0068B6B4CBD36486DB903532AC29616060EDA02BED0A03CB57105AAF0A705BDD
   26.71 +      2F06B054AD0B40DF3D3584E7A5014E4F1A70D467971DD97F3CDA8A14D86DD51D
   26.72 +      493829D918CE680751DF6E4C76E435BB6F212E2323074A8646C7A50125018247
   26.73 +      17F154C53D3ED96C448B4B2B281D4B8A03BC6159CE3C1240A0367E9EDB7004E9
   26.74 +      A3D091A02DD4BA47CDE7B9446DD680AD0388AC97177930E636EBBDCDFAAA3EC0
   26.75 +      AC13EEA03CBA712596D2E866E12432EA921613A56A3A49233D84ABBC1A02BFE7
   26.76 +      870F7A2266AA494475BA59438A6DCDD60051DB4E7183D680853C77C2CA38130E
   26.77 +      72401CA74938FD541A01C7CA507D3FE4DE727D334734B3DE13B7F1A038BADD62
   26.78 +      5A61AA6CC243295252748C9ED1C74A02BDCF88ADB6CB635747CAD719FD3C9D09
   26.79 +      ED2B5A4AD3B2B4F70EFA019B4EB6F34879A56B6DC4852143A149DC1A032C7F28
   26.80 +      9610F29B2DC9084101C7B95D84E7A6AED6AFC280753AFF0068B7C66654B921B6
   26.81 +      240CB2BC29416319DB403DC680E6D5C4369BBB8B45BDD2F72C6A51D0B40DF6EA
   26.82 +      B4A6806740140140140140140140140140140140140140140140140140140140
   26.83 +      1401401401401401401401401401401401401401401401401401401401401401
   26.84 +      401401401401401401401401401401401401401406478FB99CAB4F29DE439E9E
   26.85 +      DE87B19D07070AC1D8E3AD00DECD68B8C075C7265CDDB80712004B89D2124778
   26.86 +      ED1A03E7170B9484DDAF36ED696604F9A1A9729482B2DE16AC6371E07E1B501B
   26.87 +      3E26408966B426DE52BF4797111154A3949091846549EE38DF1403DB67CB5A1C
   26.88 +      F95FD182F57CD7A2EBC69FD2E677D019C6D77EFCE6BEB566113015154E7A5733
   26.89 +      195323D50D7B0E680D80CE06AEBDF8A03DA031367B7ACBB320D92FFCA8719D2B
   26.90 +      5B098E92A6F593D9E639E1A7BA80A372B8DC67F045C54B74C84B130B29938092
   26.91 +      F474AD385909DBA9EEA00E238F093C116B9F112965E63D1D4D3A8D961453DB19
   26.92 +      1BE756E7CC500CEEEFDCCDC786A446434673CD3E0F3F296F52DA6C9D5A77F1C5
   26.93 +      01A488C4A7A2A3E596E3392924FD082A6C0CEDA79A339C75A010F062D3E9B7F6
   26.94 +      46068B8BA703C14A50FF00DB4077C5B05D6171B89212732AD872F247F691FEB8
   26.95 +      F7027DD9A032771BD7E702A459D95957A5DD1B2C1FF00A4B79F60D20FBE807BC
   26.96 +      672586E7D96D423B8FA10E878B0DA73A909EC2529CE013D7BE80B3C0772598CF
   26.97 +      D92485224DB544250E7AFCA276CE3BD276F850192BBDD24B37BBDC34292DC2B8
   26.98 +      486D89725482B2D01A86DB8FD2F86D406BB889B6E170D5BD36F525D119F88233
   26.99 +      84E42B4A8695653E38EEA01F5AFE5BC39F2B88A0E4727D179876EFD7CCC7E140
  26.100 +      5FA00A00A00A00A00A00A00A00A00A00A00A00A00A00A00A00A00A00A00A00A0
  26.101 +      0A00A00A00A00A00A00A00A00A00A00A00A00A00A00A00A00A00A00A00A00A00
  26.102 +      A00A00A00A00A00A00A00A00A00A00A00A0175E2CB0EF0CB6D4A2B4F25C0EB6A
  26.103 +      6CE0858F6822806340246B84ECE8727AD6853E2E6AD725B70E53AB529794E002
  26.104 +      305471BD0123DC31677AD2DD9D4D110DA3A9094A88215B9CEAEFF58D00AE0F00
  26.105 +      DBEDF3D8991654801856BE4AD40A4F96C134059BBF04D96ED31739FE6B525CD3
  26.106 +      A9C6978F54048D94143A01405BE1FB0376361D61B7DC901D5EBCBBD46D8C500D
  26.107 +      E80CFDC7832CF3E62A6E5E8CF3BB3FE8EBD01D07A858C1EBDF8C66806EDDBA13
  26.108 +      5045B90CA44308E5F271D9D27A83EDEFA01235C0D656DC465721C8CD2F98D417
  26.109 +      1D2A8E95788463F7D00E25DB234B931653BA83B09456C949C7AC30A047782280
  26.110 +      B9402FB7D9A1DBA5CC951B505DC161C7D24E53AB2A3948EECEADE80BE4050295
  26.111 +      0C83B10680416FE0DB45BE44392C025E85CDC2D58CAF9BAB1AF000EC6ADA80B7
  26.112 +      3AC11A6DDE1DD5C71C0EC2F51B18D07AF5DB3DFE34076CD82DCCDDDEBC212AF4
  26.113 +      C7C614AD474818093848DB7D3DF4057470ADA132273EE214F7CA5FE90DB8728E
  26.114 +      BABB23008C1E9BD01DAF862CEBB40B3F28A6103A82428E7567567575EFEFA015
  26.115 +      45FC9FDB614E625C495213C8712E7294A052749CE3609A035940140140140140
  26.116 +      1401401401401401401401401401401401401401401401401401401401401401
  26.117 +      4014014014014014014014014014014014014014014014014014014014014014
  26.118 +      014014014014014014014014014044B90D23BF27C05688616A4B7597320EA451
  26.119 +      515735056395B78EAFDD8AD8BA378CFD3F72BEBF9151FBC4B6FA06F1EC3FCD5A
  26.120 +      23D1945EF9F9AF62B75E5C8F1AE2663584C86CB60FD749D43E1B1AAEA7444D2B
  26.121 +      D3966E4F424B12B7AB0CD53518CB4358F1E83DD5961819BF9DE5F5658EAADDA9
  26.122 +      45EBA4A49EC8463CC1FE615B23D1D49ED73F35EC54EB4B9109BC4C03A37F755F
  26.123 +      CD53FE19478CFCD7B1CEBE5C8E51C4C942B4C96BFDE6FF0094FF001A8D4E88DF
  26.124 +      4E5E12F73AB13C5790E22CD8B2D1AE3B81C1DF8EA3DA3A8AF26AD0A949DA7168
  26.125 +      D119296C27AA890500501ED4A107276471BB14A63CFA0760E8F3EBFB6BD3A184
  26.126 +      A7F9BB5E8512A8F76823917A9D1BB5CDD58EE52538FC0035E82E8EC3CBF2DBB9
  26.127 +      BFB94F5D35BC6164E218D75D4D7D1C96F7537E23ED26BC9C6E0658777F9A0F63
  26.128 +      FB334D2AAA7DE38AC05A14014078480324E079D7545BD12B8B95977284DAB4AD
  26.129 +      CC7B958F8E315A9606BB5751F5457D6C38961B71B75016DA82D27A292722B34A
  26.130 +      2E2ED24D3E6589DF61D5440500500500500500500500500500500500501E1200
  26.131 +      C9381E75D516F44AE2E565DCA136AD2B731EE563E38C56A581AED5D47D515F5B
  26.132 +      0E2586DC6DD405B6A0B49E8A49C8ACD28B8BB4934F996277D875510140140140
  26.133 +      14014014014014014014014014014014014014014014046E3EDB7D4EFE02AFA7
  26.134 +      86A93D8B4E645CD22A3B7309194364FEB1C7ECD55AE1D1CDFCD34BB95FD8A9D6
  26.135 +      E08ACABEA93D581F7FFF001ABBF857FECFF6FEE47E2397A92238820938735B5E
  26.136 +      6A1B7E049FC2A99F45575B32CBBB6FA925888F70C9B71B75016DA82D07A29272
  26.137 +      2BCF945C5DA49A7CCBD3BEC3AA880A2570557E7B4C9C14A95FAB8FDE456DA781
  26.138 +      A935F9577FEC54EAC5712072EBA4650D6A1FA4AD3FB02AAF8F46B7F34EDDCAFE
  26.139 +      C45D7E443F2DAFFB81F7FF00F0A9FF000A5FF93FDBFB91F88E5EA78ABEA93D58
  26.140 +      1F7FFF001AEFF0AFFD9FEDFDC7C472F5246B886DEA56970964F8AFD5F88CFE35
  26.141 +      454E8BAF157569AE5B7C89C6BC5F21A0208C8DC1AF38B82802802802BB18B93B
  26.142 +      200E23B35E8D1A51877944A5710DCEEF020AB0EB835FD91D6B52A8B62D5F0443
  26.143 +      299795C64CEB3CA47B0FFF00CAD90A38892D216EF6732A16BDC5B25DDB4271DC
  26.144 +      6AD8E1B14BFF001F9BF638E312ABB7A5C83A40D247854E35DA93A7356944AA54
  26.145 +      CDA3DC4712DD6C8C871B25D2819AC138D4756D15772DC5D1B58CCCAE2F7DC2A0
  26.146 +      DA4247D523FEF5AE384C4BDAE31F5164554F13CC19D5DAF23567C1D75B2717DE
  26.147 +      ADEE72C8905F50E9F9C1A73DF5DCF529FE246CBF52D515BA7C099172763381F8
  26.148 +      CE142C74526AD9429D58DA494A2CAD3717A68CDDF0E5F53778A7580892CECEA4
  26.149 +      77F828791AF97C7613E1E7A6B096CF637D2A99D731CD612D0A029BD2F43E53F6
  26.150 +      3F7EF5EAE128FF002F37EAFB19EA4B5B70321C53C5325891C8630001F1AD786C
  26.151 +      34EACE494B2A8F8ED39A58C7BD7998E9CAD4483D456FA9467878E7527349F6BB
  26.152 +      8838A658813DF8529B98C1C2D073ED1DE0F91A9D58C6B53717B248A22DC5DF81
  26.153 +      F5B87363CC88DCB65596DC19F61EF07CC1DABE4DD09AA9D53F993FF19E8E656C
  26.154 +      C733C39CACA1440FD138FC457A387A34D3B349BE7A944E4CCE9BA4C8EF6CF288
  26.155 +      CEE16750FF00366BD3782A138EB04BBB4FA1475B24F68FB9A9545F487D4120EF
  26.156 +      93582D1A4F2AD122ED65A992BC5EE08572DB5EA51EF1D2B6E1EB46E5538338B1
  26.157 +      CA9CD9529874A1B5EEA18041FBC0D68C4D0A352DD647335B3FC4421392D8CD0A
  26.158 +      A54971BED3AACF883A7FE9C5618E1A8C5E908F8EBF5B96B9C9EF2937719C9569
  26.159 +      43CAC7E9615FF566AF9E0E84B5705E1A7D2C45549F12672E93D09CF38FDD47F2
  26.160 +      D54B01877F93D65EE77AE9F126877D90FA3496D3AC7D7EEFBBFF007AA2AF45D3
  26.161 +      8BBA94B2F0FDC9C7112E04AF5C2568CA541047D91FCDAA90C0514F54E5DEFDAC
  26.162 +      1D5915537E9A9F58214075C8209F81C7E1564BA2A8BD8E4BC48FC44B917E05F1
  26.163 +      998AE5E82877B87507DF58AB745CE1AE64E3C77F91746BA7BB5269FCE4804294
  26.164 +      07E8923F655D428D25A654FBF521394B88A2429B56EB20ABCFAD6E8351D16854
  26.165 +      CA0B7F96ACB2BD0AF141C1FC2B4A8C66AD2B4973D486AB668491389A4C77D2D3
  26.166 +      E79CD138DFD61EC3FC6B2623A2E94D5E1D8972D9E4590AF25B75468A4990A8FA
  26.167 +      F2519DFB271F88AC5468528BB594BBCB65293E421374991DED9E5119DC2CEA1F
  26.168 +      E6CD7A2F054271D6097769F428EB649ED1F7352A8BE90FA8241DF26B05A349E5
  26.169 +      5A245DACB532578BDC10AE5B6BD4A3DE3A56DC3D68DCAA7064566993990B5B0E
  26.170 +      96DB5EE460107DCA06B4E230F46ADBAC8E66BC3E84213947631F5B3885E9127D
  26.171 +      0DC485B87D458DBEF0AF3311D174E3DB8B6A3BD7B17C2BBD8CBB725BCDE09714
  26.172 +      8F628A7F662942951FD31F157FA894A5C589DE9EFA374C85E7F5C9FDF5B2387A
  26.173 +      32D3243C91539C96F65A66E73DC6B5177181D4253BFC45512C061D3F97D5FB93
  26.174 +      5567C4853C4B223C84B6FE1D6D47076015EEC6052A74552946F0EC4BCD08E224
  26.175 +      9EBA8EE529F31F984F2C1DFB271F8D65A542945DACA5DE592949F211B931D00E
  26.176 +      242FFE22BF8D7A11A345FE487FA514B94B8BF33A87759EB1A39B903EB6013F12
  26.177 +      2A1570187BDF2FAB48EC6ACF8939B84ECFD31FBA8FE5AAFE0B0FFA3D65EE77AD
  26.178 +      9F10F94677F7C7EEA3F96BBF0387FD1EB2F71D6CF89126FF002997825D507127
  26.179 +      B9400F869C527D194651ECA707C9DFEA157927AEA3492B905A4B85453DFD9253
  26.180 +      FB2A8A542945DB2A7DFA9394A42C90A6D5BAC82AF3EB5B20D4745A153282DFE5
  26.181 +      AB2CAF42BC50707F0AD2A319AB4AD25CF521AAD9A1EB5C552A1AC07FFAC35DF9
  26.182 +      F5C7B0FF001AC95FA2E9545787625E9E4591C4496DD51AD892E3CD8E893197AD
  26.183 +      A5F43FB8F9D7CED5A52A72709AB346D8C935744D559D0A25707AA6F28ADF4692
  26.184 +      8EAF5653295C4572B8C28408796350FAA3AD6E55122ACA6664718441F468D43F
  26.185 +      1AD3185797CB4DF8E9F5399799457C56DAF6E555EA1885FF00C7EA8E645C4F4D
  26.186 +      EA23C9C674FB6A6ABA8BEDA70EF456E9B3A6AF1260283B15DD3E23AA55ED1565
  26.187 +      5A14ABC6D349F3DFE0C8C6728BD0DD592F71EEF1B98DF61E46CF35DE93FC0F75
  26.188 +      7CAE2F092C3CECF58BD8F89BE9D45345C5CC6DB7B413D3AFEDABF0B87BC33F1D
  26.189 +      846A4F5B19BBDF12DAD9794D6FAD3D6B6D194EF65194ADC15CADC6E24778BE30
  26.190 +      ECA5BC8F1AD4A1886F4A6EDCDA4472F328AF8B1CD5D84809F3CD59D462BF4C57
  26.191 +      88CA8EBF3A829202D1BF7915254F111DB04FB9A38E08AF22ECDC84E11B1F0ABA
  26.192 +      955BE8D38CB8329945A341C1DC42E87D16A92AD4D2FE8147AA55D74FB0F75795
  26.193 +      D29848B4EB4347F9B9F32FA151FCAFC0DD57806C0A00A02BBEF84AF467A75AF4
  26.194 +      70747B2E7C74453525B841C47C569B6B05967B5215B7B2B652C3BAB532474DED
  26.195 +      F04411F31952DD90E29E7D79528E4D7B6A343090BE915C77BF739AB20054AE83
  26.196 +      E358E5D27297E1C34E32F6163AD2E795163B11BE307E68E5D1E36A285E55E39A
  26.197 +      F3FAC9759294B6C9DC93D4773A599CC25206F8D8D7AB3A4AA414A3A4B6A66652
  26.198 +      CAC4EB6D6856958C55F86AF39CA509A49C52D9EA5FBAE7084294B233B560AD2A
  26.199 +      FF001128758D474B789D6D2448B65C46E7A771AD946B5452EAEAEAA5B1FD9915
  26.200 +      24CF5B74A0EFEA9A8568750F3C7E4968D707C4E4A37EF1D592E6AB6DCD99293D
  26.201 +      8CE97478A15B1FE35462A0AB5271DFB57790A6F2CAE7D72BE50F4028045256AE
  26.202 +      738A57DA3F0076FC2BE8E824A9457F4AFDCC52F99F79F34BEBC5DB8387AEFB1A
  26.203 +      F43A3A3D99CBF54BE84C5B5750ABD6F5917AE59B8F8064D1DCFA87DD59237A55
  26.204 +      1D27B36C5F22AA91DE6C384EE2F2039033F344F34791C608F7ED50AD422E7D6E
  26.205 +      FB6539193B652F714DDE447801A69C2852FBC795657473D48435599EEE05B166
  26.206 +      18DCE5EA056E13DD5B2B52586CB25393BBB599C71B8F27CF96ED8A3A75129ED6
  26.207 +      4D53284675E9DD5E327A883B233493975055BF686735B71C94694546CBB6BEE7
  26.208 +      4D04EE207987CB31004348C04E2B361E855AC9C9CF2F69AD82D1293DC4573753
  26.209 +      A799A47955EBA3FB579546D704ADEA34396AFD3DA1EBE7DB496172E9D7655B93
  26.210 +      FF0093965C0F5EE239EB4E0AFDD545451A517255A326B769AFA9DC89EE34B0AF
  26.211 +      116DF646A4AF2B92FE76EE18AA2A559D494631B76B6118C1095FE2C9EE7ABD9F
  26.212 +      2AD51C0D6DF512EE57F62564468E2390061635559D46223B1C67E845C116235F
  26.213 +      C3721B71BCA540E48AE758A5FCB9ACB2E0CA9C5C7519F1271149530DF21CC05F
  26.214 +      7563F855D6C6326D4657D85D09DCC8AE7CA59D45C3F1ADF1C161AD9F6ADB7CCE
  26.215 +      C4AECE5135F0750709F7D2386C34F5A52FF4CAFEE1F3276EE0F29C1ACE71B835
  26.216 +      0CD3A53EAE7AA7B194CE1BD1B1BF5F2526CCC842CB6B7539C8F65609D152AB18
  26.217 +      2BACD2DDC0B60F43186E72F502B709EEAD75A92C365929C9DDDACCE38DC793E7
  26.218 +      CB76C51D3A894F6B26A994233AF4EEAF193D441D919A0ACB892ADFB4339ADB8E
  26.219 +      4A34A2A364B3AFB9D1D5CAF0F25FD11BE699481A00F0ACB468CAA4A4A551A9AD
  26.220 +      8B971E67165B6C0B55E0B3311249C389AD19AFFCAA9A4BEBCD1538B8BBA2EF14
  26.221 +      5DE44975B750E65B2329DEB252C241D7C952F671BAD6C5D19DD19C54D93D759F
  26.222 +      8D5F89C3C2853CF4EE9A6B79DDA692E97F78408AD45EC0D0398A1D4AAA8EA9CA
  26.223 +      AACD3718CB677F0231B584EDDD1C71C4F3CF4E86B66B47B35358BD92FB32B9C3
  26.224 +      7A34776BF3F2ED084B6BC14ECB03F0AC35B0D1538B7F2396BDCC9D39EE32266C
  26.225 +      83F5CFC4D7A0F01452BABDEDC593B8FEDD7B7E2D935230A74ACF68F5E95E5AEB
  26.226 +      2AF57DACA9E8D9C4926CA3F9CD72EF556FF8394576AB5BC2DF7165C085CBF4E7
  26.227 +      0E4B847B0D41E1A96FAFEA8EF811B77379D7473179C2854215A319CA9C659D2B
  26.228 +      59EDDDC8AE70DE69F88F882488ED21873191822ABF865D74549B5195F61284AE
  26.229 +      8C92E7CA59D45C3F1ADD1C161AD9F6ADB7CCEC4AECE5135F0750709F7D2386C3
  26.230 +      4F5A52FF004CAFEE1F326139D755A5D39F0350CD3A53C93D53D8CA670DE8D4F0
  26.231 +      35C9C6AEBE859CB5252AECF82903567E00D79FD29153A79F7C3E8CB30EECEDC4
  26.232 +      FA2D7CF1B0A93A588E5B1F6F27EEE3F8D7A180A39DCA5FA6DEBFF0535A56B08E
  26.233 +      FF00C58981174B5BBCBE9E55B7E1E529AA71DB2F4457191F33953244B714E3CB
  26.234 +      2A2ADEBDDA185A54169B77C9ED0DDCAC547504A4649ACF8AC7F57250A694E4FC
  26.235 +      91D48B49B75C0B7CC0C28A3C40AAA38FACB59C22D72D08E840411D76AF429D4A
  26.236 +      75E9DD6B17B98246DF524849DD26B1D55F0F2597F0E4EDDCC84A37EF343C2B71
  26.237 +      5C4BDC7093D890A0CAC78859C0F81C564C7A5568CB8C7B4BC052ECCBBCD4F132
  26.238 +      DE87243E9FA37C7ADFA40631F0150E8A9C674B27E687D19DC426A57E260AF0B2
  26.239 +      EB9CE3DFD6B737F0F3CEBE49692F7234E57D056563BB7A9D5E91A50D237A8F96
  26.240 +      CF32DB161B8370751ADB8EA28FB559BF88D56F4A692EF1A1C38D3AD28A1D4942
  26.241 +      87506B761B14AB5D5AD28EDDE08F38237C1CD55D20D2845EC96656FB9C1C424B
  26.242 +      EDB8892DAB42DB214957811B8A2829C6D2D535A99EF67A1F40E1EE2844F57A24
  26.243 +      B2112FEA2BA25CFF00CABC0C7F47753DBA7AD3FA7EC6BA35B368F69A3AF28D01
  26.244 +      4067EE0EA933DE00F7A7FE84D7D160A3FF004F0F1FFF004CC557E767CDEF8EAD
  26.245 +      D9EE15FDA35BFA397E23DF989EE42C4B45D734F7F7566C653955C4E57B12597E
  26.246 +      E336543D8BC3A5D424A9DD24F762A4B0997794F58321C1FD8D5E91F85732AD87
  26.247 +      4AB22C7022A90A7753A1272B4E74EAF2CF7549E12335B6CF89CEB2C38762DA24
  26.248 +      3ADCBB7B61B61C40D4D7D970642863D98AEE13ADA7074EA6B28CB47FD3BBEE72
  26.249 +      A656EF1D8D19FE234212FA7427031BD5B41DB12FFAA0590F944AD64BC948EAAD
  26.250 +      857319D9AD097EA4D797FC9D7B0D471044660DBD86549F9F5272AF2ACF1ABD6D
  26.251 +      7A708EB695FC108C2DA99456C2BD0C7C92A12F0FA9244E8392077D79D19EC2A6
  26.252 +      8FBA57CC1BCE1D752DE327AF4AD186A3D64B922139590A6EEEC48F0D6F2D406C
  26.253 +      703C6BD475722D4A32DCF91C9505BEB50E84D7BB818E5C3C39ABF9EA1ED38424
  26.254 +      72C9270726B0E1615A38894B24B2CE52BEEE699D67392371D456FC5527385E3F
  26.255 +      3C355EC44756393A6732B1F58E93EFACB19AA90B94356631E3077B4DB24F766A
  26.256 +      AC3F6B12BFA62DFDBEE5D1D864BEB8F2A748CAF5610E09BF3FF825B8D6DD1011
  26.257 +      6067030302B97EDD2FEF4570DACC9F78F6D6AE91FC38FF007AFB961268E63B8D
  26.258 +      F26BCD51CD3CB792E57237B227910171D21C50C050DAB5D0A6A9E2525BE2C465
  26.259 +      7452D395FBAA9E90A69E213E30FBB277D0B7122194E06C27BF7AAA95155346AC
  26.260 +      572958677E4B71D2CC46B64B49C7C7AD69C2D24F11CA92D3BD925B3BC44A04E0
  26.261 +      0EFAB7A4E53CB1845D949BBF86E3A8B6880BF46F48E89159E8C7A88AAA9D95FB
  26.262 +      4B910CF7958ADFB7BABD3C4D1EB21FD4B58BE648736D613708EE870E7969D405
  26.263 +      79AEA2A942F257D0AF2DA5A09DC4804A53ECADD4A0E583505B654ADE68B779D9
  26.264 +      535CA4A1280163AABC6B3E0F053A73CF369595ACBEE75B2241D4F2509EBD3E35
  26.265 +      9F1B898CEB4610D725EEF9B16D0D2711A94DC68D156774A055987ED6257F4C5B
  26.266 +      FB7DC847619AFAE3CA9D232BD5843826FCFF00E096E35B744045819C0C0C0AE5
  26.267 +      FB74BFBD15C36B3267BBDB5ABA47F0E3FDEBEE5837B8A1A5418EEA06E46E7D95
  26.268 +      4C5FF3E93EF5E8CAE1BC51ABB58EFEA2B4559D2A951D09F664ACE2FD8B2DA16D
  26.269 +      52F991C30E0DD3EA2AB1D694A8CE0E6BE57A4B8ADE4631B6C2A2BA56EC7FFDBC
  26.270 +      BC3EA8921DB0CA5CB3B8B50C949DABCFAAEF872A8FCE2451D2707D95E8E22BD3
  26.271 +      865551762A697E1C2E5A916A3CC2D214D2C6A6D7F8563C45274E0FF3D27BF87E
  26.272 +      C432EB74573D6BD0C354EB29465C56BDE48BD6C6F9CC3AD1F542757C2BC5A493
  26.273 +      A2E32232F98A0E20674F502B655A2EB612928ABDB2BF2562CBEA593E8211B24E
  26.274 +      AAA3E0AAEE846DCD91F1224A12A214D0EBDD54469C5DA5038DBD8CD42ACAA7A0
  26.275 +      F3647D8D58ADB5E5195369ABE85504F319471201294FB2B4D283960D416D952B
  26.276 +      79A2FDE7654D729284A0058EAAF1ACF83C14E9CF3CDA5656B2FB9D6C802FE706
  26.277 +      3BAB3E371319D68C61AE4BDDF37B85B4355C0ACB8EF1034E247658438B59F229
  26.278 +      281F8AAB1632A7F25AFD565EB7394D76BB8FA9D78A6A155FE329E8A95B670B6C
  26.279 +      EDE615B115E9F4555CB55C5EC92FA14622378DF818D93C2D74B93B95E1A693FD
  26.280 +      A28D7AF899D2B6D77E467A6A426996BB2C271485BEA9053DC9DB7F2AC31A7D77
  26.281 +      C94E53E7BBCCBB55BC851718515455163A4103B2E2B73F8D6A582A91D66E9D24
  26.282 +      3CD91C8BFCD78FD211B6303A5472E113EDD49557C22B4FF3C4143E79E5652852
  26.283 +      CFFF007C2B4C71F18ACB4693B2E3A7B9CEF67AEC596D905D414F80C564AF3C45
  26.284 +      569C95A2B6243344D070ADBDD55C189EF24FA330AD7B632549DD3D48EFA84A9D
  26.285 +      49C1A565756D48A693377729D6C9D15716525C4215D1781D923A28609AA2860B
  26.286 +      13466AA53706D6EBBD796C272AB092B3B9F3FB95B2546CAF1CF8C7D490DEE857
  26.287 +      F03E46BD7F888D4595F667BE2F6FEFDE66C8D6BB5712BDAE2665A1C7192A693B
  26.288 +      918DAAB8514DF024E44D7CB8C90F16D0AD0D0F54276C7C2AA5468C672F88BDBF
  26.289 +      2EDF2D0B632BAD04CB79C78EA592A3D326B661F13868F629A704DED6B7F79D67
  26.290 +      35BE74E13F992977AB9C244C8791EAABDD592A6172F6A8E8FF004EE7EC71A4F6
  26.291 +      96DB7CF65C49D2A1B823A83508D55386BBF6A2871B33EB1C3D73F94ED4D4957D
  26.292 +      28EC3BFAE9EA7DFD6BE571747AAAAE2B66D5DC7A14E59A3719D6626653898AE2
  26.293 +      4A0F7D47C75FD24EC47C315F47D15353A5937C1FA3D4C5885695F8981BBAB98F
  26.294 +      73BC7AD6FBF513CFF925B7973234E57D05E0949C8EB5B2A528555AF835F66585
  26.295 +      F62F12DA01217B0F7D64783AAB4854F34732AE05977896E0B6F961671E3D3F8D
  26.296 +      56BA3EA37DBA9E48EE9C0ACBBB3EF612F1CF9D4DE6A0ED2D60F64B87795CA17D
  26.297 +      831B2C8D32C37D42C558E4995589789920A10A48F69AA16988A6F8DD7A1753DE
  26.298 +      66DB596DC4B89F590722B66270FD7452BE5B3BDC9934D9F22639CC90BD46A147
  26.299 +      0F4B0D172F3933B7B948AB51F215E363317D7CD5BF0E3B39BE24ED6349C1B693
  26.300 +      73BBA0AC663C5C3AEFBBD44FBCD64AD5B2C39BD0463767D6EBCB2F14DF0B88E4
  26.301 +      B89F546A07DA7047ECAF5FA2ACF3A7B747F533E237184E2876539A324F2BA57A
  26.302 +      2ED4ABC676CDB977B2A83BA32D5EE12065B7DF56940AF0638EC4D57D9CB15C97
  26.303 +      B9D7647A410707AF7D7B34279E9C65BDAD7BF79C268720B0FA159C6F9CF9D60A
  26.304 +      CBA9ABFD153D25FB91946EBB86BC48F739C6D79C829041AEE195B112FECD3CC4
  26.305 +      760B6D6D32ECF6D120E96C919F6567C4AB6224E7A5D2CBFE77927B34347C5D72
  26.306 +      84B4A2242396D1B62ABC1C255AAA93F929BBF7BDC4AD63227BBDB5BFA47F0E3F
  26.307 +      DEBEE707DC3AC36F4D3AC674A722B353D1DCA645DE2A484B2D62ACA6FF00EA21
  26.308 +      DCFE84A1B0CAA7E9135DC7AFE6537FDCBE84DEC63EB0BE96DF58206E339AE52E
  26.309 +      08A2471C4279AE25D1D3A54A3FCAAEA4F64D65F62CA6EEAC24EF07C2AEC75372
  26.310 +      8292DB077F0DE4CD2C7F46F909CD6E0E613D849AF37135538A843572234E3ADF
  26.311 +      819A511B9AF66AD454A9B9BFCA890FF871588133F56BC1A5F82EE725F30857EB
  26.312 +      2BDB5EED2BAA31B6D505F43A71B2D3E46AABD3C661F94978A677632FDB9E891D
  26.313 +      685B88EDA4ECAAF3D508E1ED9E1FFD96C212CCF632EF104A1294DBA939490315
  26.314 +      A70BF8F2E70D3CC4760BED6D32ECF6D120E96C919F6567C4AB6224E7A5D2CBFE
  26.315 +      77927B34347C5D7284B4A2242396D1B62ABC1C255AAA93F929BBF7BDC4AD6322
  26.316 +      7BBDB5BFA47F0E3FDEBEE707F259CD8D877C355655F8B49FF5108EF10606A19E
  26.317 +      FDAACE9082CF093DF78FDD13DC74B6D48F5BA771A946A69D562758BD92F7F722
  26.318 +      A57D872AE86AFC4C32E1651DB963F424B69A6B5B41EB1BC3BF39AF3A5DAA1E05
  26.319 +      6BE6334EFACAF235BB171CD85BFE95191623A2D9035A774FECACF46A4A92FD54
  26.320 +      9EEE1FB72239B73DA73DD5E861E108C5BA6FB12775CBB8E8DB87FF00D67C9B35
  26.321 +      E343E49AE0DA392F990AA46752B1E55B65D67C147ABBE6B47E5DA4F793262B4B
  26.322 +      C61D3E7B56294AB2DB2ADEA73C8710E15A62F6DD93CCC7763152A33852DADF89
  26.323 +      092721CB7716E4427D0DAB525B4EDECABEB6574DC96F4571BDEC6217EB2BDB5E
  26.324 +      8D2BAA31B6D505F42E38D969F23555E9E330FCA4BC533BB197222A1213879195
  26.325 +      7DAAF3D508D0B7590BFF0052D842599EC65E873D56E988970D5A5483EE50EF49
  26.326 +      F2357D6A74AA432BD8FF00CB9545C93B9F5E8EF2644769F47AAEA12B4FB14322
  26.327 +      BE4A51CB2717B53B1E9277295D64724B49EE56A3F0C7F1AF4BA369E6CEF85BD6
  26.328 +      FEC67AEED632BC557C7DB869659D82FD622BD0F86CF5A1097CAF6F810848C0A9
  26.329 +      4547528E49EFAF7A3151565A240B96B830E492E4C7B9607440EA457CC4A4AA4B
  26.330 +      ACA8DB93D8BEC4B5D8863CFB044C7258E71CFACE1E9EE15A2146ACBE4A56E72D
  26.331 +      3EA72DC5913B7F73711DB4B20F5D200AD51C05597CF351FED1A0BDC9F21C7353
  26.332 +      CAD63BC54EA529D0ED45B9C3F327B57320E29F79AC178896E831F40D61E4EAF6
  26.333 +      56695594EA65A71CCED7F03918685093C4887D3A423493574272835D641C6FB0
  26.334 +      E4A1C0BDC1B77718B9AE3A8E597D0B514F829B495E47B81ACBD2349568A6BE65
  26.335 +      24BC1BB12A32CAF91B07275BD2DADE920103751AA9C254E3D9D12257526616E9
  26.336 +      75B0B921651175782B3DFECAD30589A91F934E32D0E64485136EA8908086D843
  26.337 +      60780ABE1809B927564B2AFCB1F725A21657AC70F090064D5752AC29C734DD92
  26.338 +      07AD39B7B6BE7A9D7BE67B3349BB778944FAA700B2E3761D6B180F3CB711FAB8
  26.339 +      4A3F6A6BCDC74F354EE8DBEE5D495A269AB116952E56E8F728AA8CF8D8EE950E
  26.340 +      A9577115761F113A13CF0FF95C08CE0A4ACCF97DDED326D924C792320EEDB9F5
  26.341 +      569F115F5943114F114F32F15C0F3A7070761338C6F941C7955569D377A52B2F
  26.342 +      D2F616467C4874B83EAD4D63AAAF9A9DFB9965D1E1D7F66B92E9196EA7E6C687
  26.343 +      2428F53EEAC15ABD6ABF33B4782257433B1B8BF4F49C121009563B8789A961AA
  26.344 +      B735165738E831BECC0F321B6B720EF5B711192CB28EAE32B95D36AFA99DC39E
  26.345 +      18AAE58EAEF64631F52FD0E4A33EB6F582AB9D4D6A49CBE9E476E31B358A75E6
  26.346 +      506232708FED5E23B081E67C7C0565A92505A924AE7D76D168876886989153B0
  26.347 +      DD6B3EB2D5F6955E7CE6E4EECB92B17EA274537D783696757A87567DA318FDF5
  26.348 +      EB74546EE7C7433E21EC309C513DA5B486DB19F1AF526B25484A77CA9DFD8A69
  26.349 +      BDA65350AD8FA4285BE6D7B9FB16586362752DBBDAEF4E2BCDE8F7B9EF442B15
  26.350 +      E702990AC6E09DAB54710F0C9C1C5CBB578DB81D8B4CAA759F2AC789C555AD1C
  26.351 +      AD4631BF7BF326AC5E52D72184857AC81815AA9DE51535A54894DF2BE4543AD3
  26.352 +      D41F7558F169AB56A57EEB497A9626B733925C5E71D7C4D533C7CDC72D1864E6
  26.353 +      FEC8969BC15AB6C8AAF158A9548A8B865B34EF738AC37B1CDE44C07B94306A54
  26.354 +      279A56E25535645ABFCCF4A4A423EAD699C5C251A91D5C777791848CEA8A8286
  26.355 +      D8C562C5E29D5CAB238B8B342B5879C3B0DEB8DC44760E15A16ACF77646D9F69
  26.356 +      C0A8FC546976DECBA2BEAF36813D2EA5C5C7908285A0E1483D41AF53B156175D
  26.357 +      A8C919F58BE6295B4B49DB715446BD6A3A35D64777134292671ADCC6307D951F
  26.358 +      8E8279A347B5E0BD49F891A828F5F8579F89AF56BBEDE915B22892B0FE138DB5
  26.359 +      6771B07E75DDCF8D6985072C3F3652E5DB122D47513A4D69FE22A0ADD5CDD972
  26.360 +      2CF13C69194F82ABCFC2B94758F665E9E224CF16973A7E35A3118BAF2864B28D
  26.361 +      F6C97009A2746A71AD24FABD2A34335934FB51D9EC41BB3223AD3D41F756B78B
  26.362 +      4D5AB52BF75A4BD4926B733925C5E71D7C4D533C7CDC72D1864E6FEC8969BC15
  26.363 +      AF6C8A862B152A915170CB669DEE715870B981DB4A2327AA77AB62B342335B62
  26.364 +      EF6EE2ABE5909D64A7A8DEABC663233A795C6519A69AE1E65CB52DB4A4BA9D06
  26.365 +      ADA3255639599E4B2EA40FB2A6C607681A85594E9539527DB84A2D2E2B87816C
  26.366 +      257195AA706A33CC9DB58C5470F6A94DC1E9A109E8EE2C741493A86D573C5463
  26.367 +      4FAAAB16965CB75AEEB162D761246776093DF59B095B451642A44F5E634F691F
  26.368 +      76B5352C3BCF4F58BDB1F63909DF46496C98632D631B3808358A94D4A538DACA
  26.369 +      726D5C9CF890381CD59C66B5D3C4D4A5150C9992DF7B1DCC991EFF0064D5ABA4
  26.370 +      57E684D7933A79A854DF48D1B3D5A7C1A62C32B6C84A20BED9385AC0C5797453
  26.371 +      9D171DE465A4AE2F5A8EA2749ADDFC45415BAB9BB2E44BC4F1A4653E0AAF3F0A
  26.372 +      E51D63D997A788933C5A5CE9F8D68C462EBCA192CA37DB25C02689E1B5225486
  26.373 +      E2B092B75D212848F1358D57CAB5D8865B9F6F871FD1A2311B39E4B686F3FAA0
  26.374 +      27F7578D3966939717734A565617711B0B542E7B7EB31B9FD53EB57A3D155942
  26.375 +      AE47B2A69E3B8A7111BC6FC0F9E5DDCE7B3B9ED0E95F415A0ECA50F9A3AA3242
  26.376 +      56667B50A97F11A2B6E6BF0B334580ACE3A1C554B1D421F2D3978452FB80049E
  26.377 +      8934FE277D94E5E2C076FECD425D2353752FF77EC34E27BA5CF2AE7C6E237461
  26.378 +      EA72E8E8738A0209D86E0566A2EAD39BA8946EEEADBBC0EB92383AD2A04F414C
  26.379 +      4622ACDC732494780D0D2F044754BBE236CB6DB6E170F80520B7FB5559ABE22D
  26.380 +      4EFBEEADE0EFF61086A31B92DD65C762BDD504A55FC7DF5ECD3C95A9A92D9246
  26.381 +      6778BB7031AF8D2EA801B7754218B5423D5CD49E5D96E0685AEA45951E89A84B
  26.382 +      A4A6FE4A7E6FEC7743DD2E78E2A8962F132DF18F72F7B8BA39D03BF7AC738B93
  26.383 +      BCDB93E676E3AE1DE19997A92300B50D3F4AFE36FD54F8AAB3D4A8A9F7F02495
  26.384 +      CFAFB0C351D86D864696DA484213E006C2BCE6EEEECBC92B80280AD3ADF0EE0C
  26.385 +      F265B41D47767A83E208DC5594AB4E93CD0766465152DA64677E4FB275409381
  26.386 +      F61E1FFB93FC2BD4874A7FE48F8C7D8A1E1F83123BC15C449514A63A5C1F692E
  26.387 +      231FE650357FC7506BE6B77A643AA97022FCCAE243FEA9FF0031BFE7A8BC5D0F
  26.388 +      D7E8FD8EF572E03581F93890BC2AE124343FBB686A57DE381FB6B14F18BF2ABF
  26.389 +      796AA5C4D85BAC16AB7475C78CC0D2E8D2EA95DA52C7E91358DD69B9295F55B3
  26.390 +      9166556B19AB9700BAB74AADF212107FB37B3D9FF7920E7E15EB43A5AEAD556B
  26.391 +      C63EC67787FD22EFE8EEF07ABF1BEF2FFF008EA2F1F4B84FC97B9DEA65C86B03
  26.392 +      F27505BC2A7BEA90AEF423B09F8EE4FE159278C93F9558B153E26B62448D0D84
  26.393 +      C78ADA59651D109AC6E4DBBBD4B49AB80280A575B7A6E30D51F5685F56D7F654
  26.394 +      2B4E1712E854535AAD8D71442A433AB1F34B970FDEE2AD5CE8CB5A47F68D8D68
  26.395 +      C78E474F7D7D07C6D1AAB492EE7A33175528EE122D07A637AE4E37DC753195A3
  26.396 +      862F53C9763B250DA4642DCEC255E49CF53581578519DDBF22EC8E48E9EE1EBE
  26.397 +      EBE5982F95792091F786D5AEAE2A94D5F3C7CFEC5518496E63187F93EBCBE02A
  26.398 +      429B8A93DCA3AD7F04EDF8D79F2C6535B2ECBD5363399F93D5B6C836F91CC581
  26.399 +      DA43BD9C9FD123A7B0FC6A787E934B49AD38A233A1C0CF4AE19BF475695C2755
  26.400 +      E6D8E60FF266B6FC5519EC9AF1D3EA55D5C96E08BC21C43246A4C45363FC521B
  26.401 +      3F05106B34B134A2FE6F2D4B324B8137E64F1228E0C509F32E378FC14693C5D0
  26.402 +      B7CD7F07EC15397035160E058D099715712243EF274613EAB63AF64FDAF3AF3D
  26.403 +      E2A4A49D3D2CEE5DD5AB6A28B9703DD9B70FA16994D1F57B410B1EDD581F8D7A
  26.404 +      B1E94A735DBEC3F34677876B66A2E1C0FC46E2B498E96C1FACA71181F7544D53
  26.405 +      571545AD257F064A34E5C0DC70C70C33626544AB9D2DEFA473B801F553E5FB6B
  26.406 +      CAAB573F71A231B13DE787205DC6A772DC80309791D7D8A1DE2AEC3636A50D16
  26.407 +      B1E0C8CE9297798B99C0F7C69C298E9449477292A4A7E216457AABA468CD6B78
  26.408 +      3E7AFD0CFD4C97329FE65F12FF00B27FCC6BF9EA3F1743F5FA3F63BD5CB817ED
  26.409 +      BF93CB83CE6AB8AC4668754A085B87E1D9158EAE2E1F93B5F42C8D37BCBF76E0
  26.410 +      471275DA0828FEE1C3B8F628F5F7D68C2F49A51C957CD7B10A9435BC444782F8
  26.411 +      93FD93FE635FCF56CB1941FE7F47EC47AB9702DC3FC9F5E1C4A94FADB8C7EAA0
  26.412 +      9D649F3D1902B37C7538BD2F22CEA9B24FE8EEEEA3DA911C0F10564FC340A94F
  26.413 +      1F49EC52F25EE71519722CC9FC9E3CD30930E4875E03E710B1A413FA24671EFA
  26.414 +      8D0E91517DA8D9723B3A37D82195C337E8EAD2B84EABCDB1CC1FE4CD6EF8AA33
  26.415 +      D935E3A7D4A7AB92DC11784388648D4988A6C7F8A4367E0A20D669626945FCDE
  26.416 +      5A966497026FCC9E2451C18A13E65C6F1F828D7678BA16F9AFE0FD82A72E05B7
  26.417 +      B80AF31D94ADA5372178CADB49C107C06AC0351A18FA6B4778A13A3213B9C3D7
  26.418 +      C2AD1E80FE7FFD6AC7C718ABEAD6A5257CF1F344231970668ACBF93F7CC675CB
  26.419 +      8AF90FAD3861B4F6B41EBA97E3E18AC11C77553BC355BF9973A5996A5195C13C
  26.420 +      409594B6D25E4F72D2B481F05949ADF2E90A335B72F269FD8ABA9922467F27F7
  26.421 +      9F4753AA5B487BEAB19CE47EB0DB359618EA719EFB7126E9368592B872FAD2CB
  26.422 +      6A82F28F8A12563E28C8ADAF13466B49C7C5DBEA55924B73185838167C99297A
  26.423 +      E4831A2A4E4A0ECE2FC80EE1E66BCCA989507FCB777E8688C2FB4B172E06BB34
  26.424 +      E1F42D329A3EAF682163DBAB03F1ADF0E94A738F6FB0FCD14BA0D3D352087C01
  26.425 +      7A7964C9D1153FA4A0B24FB119FDB59A58DA71778F6BD3EA4D5293E471238238
  26.426 +      81B5E96DA4BC9FB6871207F9CA4D6858FA125ABCBDE9FDAE43A992E6507B872F
  26.427 +      AC2B42E0BC4FE824B83E28C8AB6388A325A4E3E2EDF539925C194244590C1E5B
  26.428 +      ED2DA5FD95A4A4FC0D4FB328F66D2EED48EA9972D7C337A9E14E468E43607AEE
  26.429 +      7602BC93ABAD62EBE9D296ACB72B922E1E0BE24FF64FF98D7F3D5AF1941FE7F4
  26.430 +      7EC47AB9702DC3FC9F5E1C4A94FADB8C7EAA09D649F3D1902B37C7538BD2F22C
  26.431 +      EA9B24FE8EEEEA3DA911C0F10564FC340A94F1F49EC52F25EE7151972353C3BC
  26.432 +      2B0AC60B80F3E5AC614FA86303C103B8579B56B39F245F18D87D54923C5252A4
  26.433 +      94A8652AD88F2AEA76D503E7D7EE11B830EA9D80832631DC206EB47963BEBE8B
  26.434 +      0FD2909C6D53B33F46629D069E9AA33A6C57ACFF00F8F91FF057FC2BB2AB4BF5
  26.435 +      C3FD4865970679F215EFFD824FFC15FF000A8BAB4FF5C3FD48657C1F916D9E10
  26.436 +      E23751AD30C807EDA9083F05281AABE2A8ADB35EBF625D5CB812A382388D6A01
  26.437 +      51D2D8FB4A71181F7544D4658BA3BA57F0675539702EFF0047779FEFE37DE5FF
  26.438 +      00F1D47E3E9709F92F73BD4CB91EFF0047777C7D3C7CFB57FC94FE214B84FC97
  26.439 +      B8EA65C813F939BA2958764B094F794EB51F814A7F6D4278EA6D68A5E36F73AA
  26.440 +      94B91B2B0F0FC2B1C62D47CADC73775E57ACAC74F601DC2BCDA951CD97A56297
  26.441 +      1370E2EE69F488842652460A4EC1C1EDEE35E8603A43A8EC4F583F4FD8A6B51C
  26.442 +      DAADA6064582F89594982F923ECB6A50F8A722BD29E2694F5538F9A450A125B9
  26.443 +      9331C1DC44F80A110A127FBC52507DE92757E1591E2A92FCDF52CEAE5C06D1BF
  26.444 +      2713D47FAD4A69A1FE185387F1D1544B1D0DC9BF4F727D531E5BB80ACD1485C8
  26.445 +      D531C1FDE6C8FB83F79ACB3C5CE5B3B24D5348D321086D010DA42109D92948C0
  26.446 +      1EC02B2961D5005005005005005005005005005005011C97C478EEC85254B0D2
  26.447 +      4ACA10352CE919C24779A011DA38CAD37590DC66D2F4779E054C264234F300EB
  26.448 +      A0A4A81E8680D067BBBE8028009C6E7A50050050050050050050050050050050
  26.449 +      0500500500500500500500500500500500500500500500500500500501E64648
  26.450 +      CEE3A8A03DA00A00A00A02A5C2E70EDAD21D98BD097169691805454B5740129C
  26.451 +      93405BA02A5BAE50EE71FD2612F98CEA5235E0804A7638CF51E6280B74014014
  26.452 +      014014014019A00A00A00271B9E940140140140140140140547EE70D89D1E038
  26.453 +      BFEB32828B4D804E423724E3381EDA02DD0050067F1A00A00A02A1B9C317116C
  26.454 +      D79965BE772C02708CE3248D87BE8099726336B5216EA12B4A39AA495004363A
  26.455 +      AC8FB3E7400993196A4A10EA14A713CC4242812A47DA03BC79D00AB8B5F7E3D8
  26.456 +      9E7A32CB7212B6792A074F6CBA8033E23C4785009AD7C43327F14462EB4A8F15
  26.457 +      E8EEC6432BDBFAC35A1C7FEE91A7DD404F122A2E16294A79D7B54691348E5B8B
  26.458 +      46E16BC025246401DD4030E148D1D36789311ACBD263B45E5ADD5B99501BE35A
  26.459 +      9406F9D8501D717305DE1F96A4A9685B082F2742948F53720E9EA31DD4023331
  26.460 +      B7AD179F4075E5DAE330DB91DCE639A92F0056E368749D440C273BEDD280716F
  26.461 +      8B1CDB2634B67921F4AB527D2D728A91A31AB98A5653E1B50199FC9DBCD2E614
  26.462 +      B7FD5744601D64AD44CA5A959E7842B61A40C6DE3406F6728A614850EA969647
  26.463 +      DD3407CD2D4B7AD91AC97CB90448808D4C45436AD2B64AD4BD4B2923B7D0F7D0
  26.464 +      0D6F775545E2C72E2DA5C5376B4C66251093A032F15973579F6D253ECA01CDD6
  26.465 +      54B66F915703E7D2FC5714EC6D5B3E86D48C72F7C0580B241EFE9406739E9778
  26.466 +      4635BDC53AF2655CBD1F20294E29B4BBACF5DF381B0A01BFCAEECDE0C7A4B8B5
  26.467 +      3370B7F624149C2D0F30A1B91E7D48E9DD40790DD94FF161626EA6DC76DEB69E
  26.468 +      4B6A506D785A74BEC9CEDA927DA0E680B1C1C12B8CCCA5B652EBB1DB1CF54B5B
  26.469 +      E5D3D55F34B2423719DA80D4D005005005005005005005005005005005005005
  26.470 +      005005005005005005005005005005005009B8B64AE370E4E751AB5728A4149C
  26.471 +      14EBECE7391D33402AB5BAE4DBEDC23C94AA39B8428EFE10E76F09CB7A8293EA
  26.472 +      93ABBA8092C16D882ED734153CE2A0C847275BEEAB014D24EE92BC1DF3D45011
  26.473 +      8B3424F14080E2E43ACAE097F0B92F6EB0E84F72C771E9D2808F8862C87B88DA
  26.474 +      88D2D6B5CD8EA31B5C97996D875AEAB406BA9D3BE2807D158658B8203B715BF3
  26.475 +      4454B6B8AA713A54138CC8E4F50491D7A500AADE3F386FCABB2B7B6DB0A99803
  26.476 +      B9C7BFB47BD83A0A027E2896FBE59E1F80AC4CB9643ABFEE630FA459F6F41407
  26.477 +      1C4B0DBB7F0B68865C69AB7F2D41B6D65BE6202825685A91BE1409CF9EF402AB
  26.478 +      BDB5D6383EE2EBEBF9970B6F448E979C792CA494A7675CC295AB574E940538D3
  26.479 +      5D47095E655B498987121A829716A7222414A167270A055BABC3F1A01DC67645
  26.480 +      B6F2DC182F3B3624A82A92843CB2E90E23D55051DC05F874CD009D1758D1E3C6
  26.481 +      BD7A47CA13C91E928765964B2EAC8416D31529394A751F86680D37154E2D59A4
  26.482 +      988F84CD6171F484AF0A4AD6EA34EB1E07C0F514029B5F10CC9FC5118BAD2A3C
  26.483 +      57A3BB190CAF6FEB0D6871FF00BA469F750152C777E4F11BF24858877794F47E
  26.484 +      62C108D6D1F98C67BC8CA48F650146F1E8CC718C9652390F3CEC52DDC0B8B488
  26.485 +      C48D6E7883CCE983B500E6E37EB843BE5CA2444A9F12030CC6DF506A5BAD8D1B
  26.486 +      7D54A93B9FD5F3A029C99E27F055A233DCC5AA63CCC67020152C8657857FBD84
  26.487 +      501665CFF95780E5AA5ED321A4B525392087992064E31D7AD00BED935C470C5E
  26.488 +      E4DB7314A02435052E2D4B8FA400E3B9382356756DB6D403BB6ADC8178B6C48D
  26.489 +      25D950AE3114EAD2F2CBBA5480141C4956480ACE31D280938ACC27A240B817CA
  26.490 +      A1B729B4BCB69E525B2D38AD0B24B4A1EA9EFCED40517A4AE45990F15BAF464D
  26.491 +      C3950965E5B0A7A39EC8D6E820E32480A3DC280D0C1762DBAD05D7522336C05B
  26.492 +      8EA39C6468DC9FA45124E7FED402FE188AF4B75FE249C9D3227ED15B3FD8C51E
  26.493 +      A27DAAEA6805B6C36EB83BF295DEECA6E7A1FF00F41E78650C143984B5CA3827
  26.494 +      38DCF7D01D7112A241BEB9224487992F4352E2943AE6D25B504A528403A4EA04
  26.495 +      76482280A9C473E77A5DB1CE5AFE51B742F4F75B424E94AC96B9815FA3A52B49
  26.496 +      F6D01371ACAB7C98168BA724CC65C772190A29D685A0A8A7B3DF903BB2280696
  26.497 +      6B9C7B7708377093203EDB4DA97D95156352894300AB7CA7211BD013F0BDB643
  26.498 +      4CBB74B80FFD4AE679AF7F868FECDA1FAA3FFBB500E1C8711D5A9C7586D6E2DB
  26.499 +      2CAD6A40254D1DCB6491BA4F874A0044388DAD0E36C3685B68E536A4A40296FE
  26.500 +      C2481B27CA80E66C18B3E398D2DBE6B2A2094E48DD27237183D6808E45AA1499
  26.501 +      5165B88F9E84A5A982925382E635E40EB9C77D012B30A2B0D38CB4D84B6EA94B
  26.502 +      713DC54BF58FBE80EE3C7622B088F1D01B65B18420740280E9C6DB75B534EA42
  26.503 +      DB58295A1432140EC4107A8340466245318C4E523D18A7416748D1A4F769E98A
  26.504 +      017C4E18B14290A9316225A75682DAB49560A15D469CE9FC280B51ED16C8BC93
  26.505 +      1E336D98C14961413BA02C92A093D7724D0169684B88536B194AC14A87883B1A
  26.506 +      011C7E0BE198D25129986038D9D48CADC5242BAE74A944500C5567B6AD72D6B6
  26.507 +      02D53F4095A8921CE5EC8C8271B7950129810F9B1DEE5242E18298E53D9D0950
  26.508 +      D25200C0C63BA80E1EB55BDE5B6B719054D3DE908C653877EDF648DE803E4AB7
  26.509 +      72E435E8E8D130932401F4855D4A8F53404C98CC27944206584E8695D4A53B02
  26.510 +      3277EE1402D6B85787D996DCC66121A7D93A9B520A9201FD5074FE14037A00A0
  26.511 +      0A00A00A00A00A00A00A00A00A00A00A00A00A00A00A00A00A00A00A00A00A00
  26.512 +      A00A021990E34E8CB8B291CD61DD9683919C1CF763C2808916B8289889C86F4C
  26.513 +      96D9F474AC13F459CE9C67077A0256A24665E79F69B08764105E58EAB291819F
  26.514 +      750018918CA4CC2D8F494A0B6977EB6827253ECCD01CBD021BF21994EB414FC6
  26.515 +      CF25CFAC9D5D718F1A0076042796B75C6505D71B2CA9EC61CE59EA9D63B58F7D
  26.516 +      01D43871A0C66E245406986469420770F7D01C376F86DCE76E096FFAD3E94B6E
  26.517 +      3B924E94F4032703DD404B223B12985C79080E32E0D2B42BA114042E5B60BB00
  26.518 +      5B9C642E184A501939234A30523DD81407A8B6DBDB2E2911DB05F406DE3A476D
  26.519 +      091A4255E231B6F40456FB2DAEDAA5AA0C6430A77D729EB8F0DF381E428024D9
  26.520 +      2CF2CAD522130E2DDF5D65B4EB3DFEBE357E340752AD36D968790FC742BD20A0
  26.521 +      BE40D2A596FD4D4A4E1474F76F40122D50A4CA8B2DC47CF4252D4C14929C1731
  26.522 +      AF2075CE3BE80E1BB25A9B650C08C82D36E99084AF2BC3A73DBEDE77DE80E9DB
  26.523 +      35A9E75F75E8ADB8B941297CA867584634E73E18A0246ADD09992F4A69A097E4
  26.524 +      68E6ABC7940A51B7418071B501523F0EDA63B4D34864E88EF7A4B395A8E974FD
  26.525 +      6EB405855A2D8A6A4326337CB98AD72463E9159CE547BF7A03A6ADB6F654A537
  26.526 +      1DB4A96D8656424654DA460255E231404502C96AB738B760C6430B7365293E1D
  26.527 +      7033D067B85013FC9F03D1844F466BD153BA58D09E5839D5B2318EBBD004B810
  26.528 +      E647F4694CA5E636F9B50DB6E9F0A01737C27C3ED31223B71025997A0BE80B5E
  26.529 +      15CA24A3EB77134039000181B01D0500BE4D86CD2E409526132EBE3EBA90093F
  26.530 +      ADE3EFA02DAE2C65BA8796D214EB5B36E1482A467AE93D474A0225DB60B92D53
  26.531 +      56D6A90B64C652C93BB24EA28C671D7CA80E3E47B5F2E337E8CD86E128391920
  26.532 +      6036A073A92077E680E5CB1DA5C692C98C80D21E124369EC279A3EB14A700FBE
  26.533 +      80BF407FFFD9}
  26.534 +  end
  26.535 +  object img_Copyright: TImage
  26.536 +    Left = 90
  26.537 +    Top = 144
  26.538 +    Width = 457
  26.539 +    Height = 26
  26.540 +    Picture.Data = {
  26.541 +      0A544A504547496D6167653B0D0000FFD8FFE000104A46494600010101004800
  26.542 +      480000FFDB0043000B08080809080C09090C110B0A0B11140F0C0C0F14171212
  26.543 +      121212171813141414141318161A1B1C1B1A162222242422222E2E2E2E2E3030
  26.544 +      3030303030303030FFDB0043010C0C0C1010101711111718141314181E1B1C1C
  26.545 +      1B1E241E1E1F1E1E242923202020202329262824242428262B2B29292B2B3030
  26.546 +      30303030303030303030303030FFC0001108001A01C903012200021101031101
  26.547 +      FFC4001B00000202030100000000000000000000000006040501030702FFC400
  26.548 +      3F10000103030302040304060807000000000102030400051106122113311422
  26.549 +      4151326171152342810724335291A116536272C1D1F0F125347492A2B1C2FFC4
  26.550 +      0014010100000000000000000000000000000000FFC400141101000000000000
  26.551 +      00000000000000000000FFDA000C03010002110311003F0063B8DD6DF6B683D3
  26.552 +      DF4B0DA8ED4956793EC00C9A8E8D45695252E1716D34BC6D75E65E65B39ED871
  26.553 +      D4253FCEAB353B697AED6569F4F522A5721F5B5FBEE32D6F6D38F5F5A936465F
  26.554 +      9D151719B30CB4CE672A8836786425783B4271B8948F29C9A0BD073C8ED58529
  26.555 +      2949528ED4A7924F60297F46AD7F67498A5456D4198FC68CB573965B23673F2C
  26.556 +      E2B46BE7568B2B6CEF2D332A4B4CC9707E169592A3FF0088A0928D6BA79D9EDC
  26.557 +      061F2F3CEAC36928428A3728E079BFC7B55FD43836CB6438EDB50D86D0D23050
  26.558 +      4007E8ADDDC9F9D2F5C7C55CB588B509B26146621F5F11DCE9F51CDF8FCF857F
  26.559 +      2A06DA290DF9D72B9697BA32F485B73ACCFAD0EBCD1D85E4B59F8B691DC673F4
  26.560 +      A9DA76229D7E42EDA99506CCFC5096FACA56F53EBE7AECF50A880127BF62681B
  26.561 +      AB05494E371033C0CFBD73C94F5DD5018D1CA5ABED3F1211E239F34447DEA1FC
  26.562 +      FCBFF9C77AC6B88B6A8D7580F5C52E484AE33ADAC83E75ADB480D1E3033B95CD
  26.563 +      0745A293650B845B1E9B666A8F8A3708887B272AC6547693EBC000D66E91D779
  26.564 +      957172648908B65AD41944389FB575CDA95A96A1EBF1E123FD1071AF21682A52
  26.565 +      02815231B939E467B645254ABD411A3273513C4B021FEA49549C21E53BC653C1
  26.566 +      CEE19E7B54AB4CF8F3F53DC4472E21B9B09A585290A695E425BDC9DE01FC7C1C
  26.567 +      5036D148ED69D8C8D50AB639326BCD18024657215BD47AC5182A46DF2E3D29DD
  26.568 +      080842503B240033C9E3E7410EE778B6DA590F5C1F4B0957C20E4A95FDD4A724
  26.569 +      D47B56A6B2DDD65B83242DD48C96D40A158F7014067F2AA7D45174FF00DB71A4
  26.570 +      4FEBCDB8AB6F84B7B585821073F0600C6724EE5579569EB95C2FF12F2B619B52
  26.571 +      22104A10ADEF3B839C2F6008191C77340C93EEB6DB7252A9D25B8E17F0EF5609
  26.572 +      FA0EE6B746931E53297E338979A5FC2B41DC0FE6293E22912FF48F39125B4A84
  26.573 +      689B590A19FEA8E467DF79FCAA258E5B96BB86A7811D3F75192F4B8CD0F85253
  26.574 +      9F28C7BE523F2A07055FECA897E0953591273B7A7BC6777EEFD7E55EAEB7AB6D
  26.575 +      A194BD7077A2859DA83B54AC9F6F28348D6F811647E8DA438A6D25E1D578B981
  26.576 +      BB7B6BCE73DF3B463E94CB62446D43A5EDEBB9B624803242FD56CA94DEE3EF9C
  26.577 +      7341981AE34ECF94988CBEA4BAE1DADF510A48528F600FF9D30D738D711E5C19
  26.578 +      312E4DC08CC4480FA432A41F33BD969DE94EDC246D2314E1A6AFADDFAD899A94
  26.579 +      7496145B791DC05A402707DB041A0917B98EC1B6BB2DA71A68B5B495BF9D9B77
  26.580 +      00AF879CE3B7CEB5D9EFF6EBCA5C54152CF4B1BF7A148F8BE123230738AAAFD2
  26.581 +      0BB1D3A7D4D3A4F51F75B4C703182E03BBCD9E36E01CD31444C94C66D328A14F
  26.582 +      848EA16814A33FD9049A0DD452DA6F53A26A536D9AB6A44799FF002818FDA304
  26.583 +      0ECF239560FEF76FA0ECC9405468F71B7CA714D4694CBEE23E2436E25647D424
  26.584 +      9A935CAE37D9CDDED0E210612635DDF2BB814A90CF482B298FBC71923DF181F5
  26.585 +      A0EA9452E5F4CCB7DD61DF12EA956F6C7879CC7E16DB70FED80F91C6EFA569D1
  26.586 +      C99B2953EF7216B0CDC9DDD1983D8368F2A578F72001F97D281867CD620437A6
  26.587 +      48CF498495AF68C9C0F6143D3A3B30573CAB31D0D17B70F5401BB23EA2A2EA15
  26.588 +      84586E2A3CFEAAF7079FC0715CD977D98EE92469FC2BC627CEAFFA34B7E281CF
  26.589 +      D31F95075869C4BAD21D47C2E24293F43CD7BA4971E6A6689B548796F042151D
  26.590 +      A73C3A9416A01623AC797957D3DEAD60A60C7D3935CB7B6FB4D943CE112B7F50
  26.591 +      AC378CFDE1CE3CA281868A4475520DB748142D4373F1C2CE4F2309241FA8156F
  26.592 +      AF94EA34C495B44A5495347724E08FBC48EE281928AAFBABEE42B24A90325D62
  26.593 +      3AD408FDE4A0F3FC694589972B3DA2D57C33DF9A89AE2133987D7BD1B5DC9FBB
  26.594 +      CF2928C7A1A07EA28A2831B93BB6E46EF6F5ACD72CBFC38A8D4F708D11B70DD6
  26.595 +      42D85DB96DA8A763ABFBC7544E40C57524EEDA3772AC727E7419A294753B503E
  26.596 +      D960CEF18EB4E4759E8C52E1F3216800EC6FE4B3934D10DB69A88C34C829690D
  26.597 +      A12DA559DC1200001CF39C506EA2ABEED6845D10DA17264460D2B77EACE74CAB
  26.598 +      E4A383C551E86B730AB443BA175E71F5A169F3BAB28185A90404138FC340D95A
  26.599 +      A44A8F1929548712D05A8213B8E32A570123DC9AD5747BA16D96FF006E932E2F
  26.600 +      3FDD49349739A537A5B4CF50952CCC88BDC793F7816BEFF9D03F56372776DC8D
  26.601 +      DDF1EB8ACD72BBAC38E8D557287010E0BBBB223396D710A2036A5A7AD20AB9C6
  26.602 +      39A0EA94514AD7D9F2AD7A8234A8E14EB2E4670CD601F89A6549F3B69FDF46F2
  26.603 +      7E63340D34529E87436D39786982151FC5F51850EC5B753B907FEDC54DD6087D
  26.604 +      CB63484757C3AA4B42774325CF0FCEFC04F3DF1417F45516985C26D8720C65CB
  26.605 +      3D23D40DCD4A92E25B73213B378076794E2AF68205E2D69B9C50D07151DF6961
  26.606 +      D8D211F136EA7B2B1EA3D08A5B8BA52E2C4B5C861A8B0A5B80A553D971D2005F
  26.607 +      C4A6E294848511FDAC0F4A73A2822DB6DD1AD909A851461A68719E492792A27D
  26.608 +      C9A2E76E8B7482EC1969DCCBC3071DC11C8503EE0D4AA281099D077D61F69B66
  26.609 +      F4B4C165416DA72BCA769C8C379D9FEBB530DD6C931DB847BBDB1E435708E82C
  26.610 +      ABAC92A6DD6CFA2B6608C139E2AF28A0A089A6D4C5927C171E0ECCB9F59721FD
  26.611 +      B84F55F046427D9353AC3064DBED11A0CA5A5C763A766E46769482767700FC38
  26.612 +      AB1A282AA15BDC55DA55DA5A70F1FD5A22739D91D1EBC719715E6FA63E750AFB
  26.613 +      A63ED9BA467DE527C1B6CBAD3CDF3BFCE0ED5238C642B0698A8A0597F4D5C5CB
  26.614 +      5DBE12E6F897604C6E4759D1B72D35B80471939C1EE6A4DC34F48767AAE36AB8
  26.615 +      2ED929D01323084BADBBB7849536AC0DC0719ABDA2813D7A46E62C776B609487
  26.616 +      DDB83E990DBCE651E6DC85385612158276FA55835669CCEA2877105063B70043
  26.617 +      7B04EEDC92559C60646714C1450552AD4F7F4913784B83A42218AA6BF167A9D4
  26.618 +      07E956B45140A379D3F7C5EA56EF5685B014967A67C495612AC293C0483E87F8
  26.619 +      D453A4755CA96DCC9D7BC3ACA82DBD895290923D91F769FE54F14502EDCB4F4C
  26.620 +      55D9ABE5ADF6D9B8251D3792EA4965E1DB9DA770FF006ADD63D3BE0153254E71
  26.621 +      32A75C544C9581846DE7C8907D39ABCA28138690BBC68926CF067349B4CB5151
  26.622 +      EA2145F6D2AF892820E0E40F5A68B7C162DF099851C61A612109CF73EE4FCC9E
  26.623 +      6A4D1408D71D117ABC5C1D72E574FD4C38A31DB00A884678F2F910938E3229AA
  26.624 +      CD668765829850C1D8095294A3952947BA8F6F6A9F450575F2C90EF704C39790
  26.625 +      33BDB5A7E242C7008FE355768B25E6D9734F5EE2F5C612D952087301282929D8
  26.626 +      08529449209E47B734CB450545874D5BAC6DABC30DEFB9FB590BE56AF97C87CA
  26.627 +      ADE8A280A4591A57531626DB197618B75C652A4B8E1DE5D4EE2938C631F847F9
  26.628 +      D3D51415173B73EEDAD8B4C727A4E6C624BD9C14C748FBCFCD613B3F3AB46196
  26.629 +      A3B286194ED69A484213EC948C015EE8A0AFBEC27EE167970A390975F6CA1254
  26.630 +      484F3EE403553174B251052EB89FF890B7180AE414E76ED07FC33ED4CD45027D
  26.631 +      A34F5E91A545ADD5A61CD62407A3B9C3A13B16979278C8F8B352A141D5CE0971
  26.632 +      6F1263BD19F8CE36D38D0C10E2B09048DA8E319A66A28155DD2739EB45AE1A27
  26.633 +      785936BF3A56847510A707C27CDB4F1FE358569CD4171B4CAB65E2E695F55682
  26.634 +      D3ADB693E4479B0A4ED6FF00160F7F4EF4D74502F5AED5A85B79F66F33D170B7
  26.635 +      3CCA9B08D810ADCAC03BB09CFC39FC550D8D2570088B6D9331B76CF05EEBB490
  26.636 +      821F5E09296D673B768CFA7FB36D1405145140A770D1AE5C2ED3E7AE4064BFD1
  26.637 +      5C375BCF519759404E4F6E3BFAD33C643CDC7690FB9D6792901C77013BD4072A
  26.638 +      C0E064D6DA2828AFB6BBD4894C4DB34B6E2C865B5B4A0EA3705A5650AC670AC7
  26.639 +      281E952AC49BDA222937B5B6E4A0E1D8A67E12DE138F41CE73E95674501555A6
  26.640 +      ED4F59ED0D5B9E703A592BC2D3C0C296563BFD6AD68A0D3323225C47E239F048
  26.641 +      6D4D2B1ECB0527FF0074A6BD2DA8259B7B536647F0F69536584B495E5D0D91E6
  26.642 +      733D95B538E334E545014A333463D2EE7709E64861D7D6CBB05E6F3BDA5B4929
  26.643 +      F376E0E7D0D375141E194B886508757D57129016E600DCA039560703355D3EDB
  26.644 +      25FBC5B2E0CA921B87D74BE85672A4BC900638F429AB4A282A6D16266D32A6AE
  26.645 +      31C4698A438967FAB50C8581F23C62A4DDE1489D056C4692B86FF0A6DE47B8E7
  26.646 +      0AC63293EB5368A0ADB5C196D3AF4DB8388726C80842BA4086D0DB79DA846EC9
  26.647 +      EEA24FD6ACA8A283FFD9}
  26.648 +  end
  26.649 +  object img_ThanksJuFo: TImage
  26.650 +    Left = 240
  26.651 +    Top = 254
  26.652 +    Width = 150
  26.653 +    Height = 20
  26.654 +    Picture.Data = {
  26.655 +      0A544A504547496D616765CE040000FFD8FFE000104A46494600010101004800
  26.656 +      480000FFDB0043000B08080809080C09090C110B0A0B11140F0C0C0F14171212
  26.657 +      121212171813141414141318161A1B1C1B1A162222242422222E2E2E2E2E3030
  26.658 +      3030303030303030FFDB0043010C0C0C1010101711111718141314181E1B1C1C
  26.659 +      1B1E241E1E1F1E1E242923202020202329262824242428262B2B29292B2B3030
  26.660 +      30303030303030303030303030FFC00011080014009603012200021101031101
  26.661 +      FFC4001A000100030101010000000000000000000000040506030102FFC4002F
  26.662 +      1000010304010204040603000000000000010203040005111213213106144151
  26.663 +      153261712223244281916372A1FFC40014010100000000000000000000000000
  26.664 +      000000FFC40014110100000000000000000000000000000000FFDA000C030100
  26.665 +      02110311003F00D24CB9DBE016C4D90DC72F1D5BE4504EC7F9FBD73917AB4C59
  26.666 +      298B225B4D485E30DA9601EBDB3ED9F4CD55F891B6D12A3CA5077AB6E32A5B6C
  26.667 +      264A7AEAB4A342158528A700E31EFE950E4C17E5DE61C79FB329B8C148B82594
  26.668 +      A421D7993BF1A96527A753D8E7141A14DE6D4B9BE41129B54CCA93C01595E520
  26.669 +      950C7D00AF5776B6B735301725B12D7F2B1B7E3F7EDE9540ABC356CF10CC6E64
  26.670 +      875965E7DBE26783669CDD8651B074249F9876AF8B6498D6CB8AA04BB6BEBB8B
  26.671 +      F256AF3E9643897038B252E72770024E08F4FEE8342F5DEDCC36975C78042DFF
  26.672 +      002A15D4FE76C51A1C0E9820D77725C669F6A338E252F48DB85B3DD7A0CAB5FB
  26.673 +      0AC34F8F32725AB4B6848F3173B92829CD86350E949E83FC848EBED531CB93EA
  26.674 +      4F87AF33224957021FF3450CA9450A5238B623D028F5FB506CEAB1BF11D89D7D
  26.675 +      31DA9CCADE528212DA5592544E0015361CA6E6456E535B06DE4EC9D86A707DC1
  26.676 +      AAC8EC867C4F278DBD1A72132760309D92EBA31ED9C114161F108864371C3997
  26.677 +      1E2E2500038CB38E419F423348B7087339FCBB9BF95754C3DD08D5C6FE61D71D
  26.678 +      AB136F72622E7165BCBD93F159AC046BA0CBA8560E4EC704FD7FBA91E0E727B5
  26.679 +      35B75D6FF4F7769E7494051D5D6DF5AB2E1206321CC7F02835BF13B7EF1D1CE9
  26.680 +      2A9892B8C075E44A46CA29C77C0EB5CD8BCDB1F86A9CDC8479642775ACFE1D52
  26.681 +      7B1505608CFA66B2B6A853112AD129082B8CDC896952159CC75A83CD11F442F0
  26.682 +      93F43F7A85E1B8AD9F0FCF8AB88EAE6250D3E5E6C6E5E4A485B484EDD3F01463
  26.683 +      4F5FAE6837F126459AC26444752FB2AECB41C8A8B2EFD6684F98F2E634CBC3BA
  26.684 +      16A008C8C8CFF15C3C3EE3AE32F9CED1B93F4EE299E02BC805C3C6027A6E4F52
  26.685 +      33DEBE6F4C8132D521B6F6589A02D491FB54CBA9CA88F4ED4137E2F6BE565932
  26.686 +      9A0EC8485B2D9580A5A55F29093D7AFA54CAC5F889B4B33AEC2532A77E270DB4
  26.687 +      5B5696CAFF003DBDC068148383B90AAD6C54C8442652F1DA425B48709F5584F5
  26.688 +      FF00B419F77C5376135B8ADD95D1CCB534DADF703495A920ABA1293D309CD5CA
  26.689 +      AE6D30C2953B566432C192FB0957214B69CEC41C276EDED59BF8EAAEC6DD11C6
  26.690 +      F86F4C4F429F8801FCB436541C5927F6F19EFF005AEBE219022CFB8171A71C76
  26.691 +      65B931A0A50852B915B3DC89C8040C6C9273E941A98CFA24C76A4379D1E425C4
  26.692 +      E7BE1432334A8F680536984950C111DA041FF414A0994A52814A52814A52814A
  26.693 +      52814A52814C52940A52940A52941E6A33B63AFBD7B4A50294A507FFD9}
  26.694 +  end
  26.695 +  object img_Easteregg: TImage
  26.696 +    Left = 365
  26.697 +    Top = 256
  26.698 +    Width = 13
  26.699 +    Height = 16
  26.700 +    Cursor = crArrow
  26.701 +    OnClick = img_EastereggClick
  26.702 +  end
  26.703 +  object btn_close: TBitBtn
  26.704 +    Left = 480
  26.705 +    Top = 300
  26.706 +    Width = 150
  26.707 +    Height = 33
  26.708 +    TabOrder = 0
  26.709 +    OnClick = btn_CloseClick
  26.710 +    Glyph.Data = {
  26.711 +      66070000424D660700000000000036040000280000002D000000110000000100
  26.712 +      08000000000030030000120B0000120B00000001000011000000000000009098
  26.713 +      A80051555E0024262A00757B88003F424900121214006C727E0033333300878E
  26.714 +      9D00636873001B1C1F0008090A005A5F69007E85930036393F00484C54000000
  26.715 +      0000000000000000000000000000000000000000000000000000000000000000
  26.716 +      0000000000000000000000000000000000000000000000000000000000000000
  26.717 +      0000000000000000000000000000000000000000000000000000000000000000
  26.718 +      0000000000000000000000000000000000000000000000000000000000000000
  26.719 +      0000000000000000000000000000000000000000000000000000000000000000
  26.720 +      0000000000000000000000000000000000000000000000000000000000000000
  26.721 +      0000000000000000000000000000000000000000000000000000000000000000
  26.722 +      0000000000000000000000000000000000000000000000000000000000000000
  26.723 +      0000000000000000000000000000000000000000000000000000000000000000
  26.724 +      0000000000000000000000000000000000000000000000000000000000000000
  26.725 +      0000000000000000000000000000000000000000000000000000000000000000
  26.726 +      0000000000000000000000000000000000000000000000000000000000000000
  26.727 +      0000000000000000000000000000000000000000000000000000000000000000
  26.728 +      0000000000000000000000000000000000000000000000000000000000000000
  26.729 +      0000000000000000000000000000000000000000000000000000000000000000
  26.730 +      0000000000000000000000000000000000000000000000000000000000000000
  26.731 +      0000000000000000000000000000000000000000000000000000000000000000
  26.732 +      0000000000000000000000000000000000000000000000000000000000000000
  26.733 +      0000000000000000000000000000000000000000000000000000000000000000
  26.734 +      0000000000000000000000000000000000000000000000000000000000000000
  26.735 +      0000000000000000000000000000000000000000000000000000000000000000
  26.736 +      0000000000000000000000000000000000000000000000000000000000000000
  26.737 +      0000000000000000000000000000000000000000000000000000000000000000
  26.738 +      0000000000000000000000000000000000000000000000000000000000000000
  26.739 +      0000000000000000000000000000000000000000000000000000000000000000
  26.740 +      0000000000000000000000000000000000000000000000000000000000000000
  26.741 +      0000000000000000000000000000000000000000000000000000000000000000
  26.742 +      0000000000000000000000000000000000000000000000000000000000000000
  26.743 +      0000000000000000000000000000000000000000000000000000000000000000
  26.744 +      0000000000000000000000000000000000000000000000000000010101010101
  26.745 +      0101010101010101010101010101010101010101010101010101010101010101
  26.746 +      010101010101010990A801010101010101010101010101010101010101010101
  26.747 +      0101010101010101010101010101010101010101070E010990A8010101010E02
  26.748 +      10100A0101010101090A1003000101010708030F090101010902100401010104
  26.749 +      020F0B000005010990A8010101050000000000060401020B00000000000E010D
  26.750 +      000000000609010E0600000C04010103000000000003010990A801010F000000
  26.751 +      000000000B010300000000000C04090C00080E0600100108000B070C03010103
  26.752 +      000B0303100D010990A80107000000000000000C0E0107000007090101010D00
  26.753 +      00040105000B010506100105000E0103000101010101010990A8010F00000B0A
  26.754 +      010E050A0101070000010101010105000001011000000101040E010700070103
  26.755 +      000401010101010990A8010C000B090101010101010107000001010101010300
  26.756 +      0B0101100000010500000006000E0103000000030101010990A80100000A0101
  26.757 +      0101010101010700000701010101030003010108000C01000C100F030A010103
  26.758 +      000F030D0101010990A80100000D010101010101010107000007010101010500
  26.759 +      0601010C000F070003010101010101030B0101010101010990A8010B000B0101
  26.760 +      01010101010107000007010101010A0000100F000C0E0900000A080B09010E0B
  26.761 +      030101010101010990A80110000003090101010101010A000007010101010700
  26.762 +      0000000C0401010B000000000A011000000000000101010990A801090600000C
  26.763 +      0F10060A01011000030401010101010410100D09010101040C00060A01010703
  26.764 +      030300000101010990A801010406000000000010010101010101010101010101
  26.765 +      01010101010101010101010101010101010101010101010990A801010109100C
  26.766 +      0000000301010101010101010101010101010101010101010101010101010101
  26.767 +      010101010101010990A801010101010104070709010101010101010101010101
  26.768 +      01010101010101010101010101010101010101010101010990A8010101010101
  26.769 +      0101010101010101010101010101010101010101010101010101010101010101
  26.770 +      010101010101010990A8}
  26.771 +  end
  26.772 +  object btn_Editor: TBitBtn
  26.773 +    Left = 10
  26.774 +    Top = 300
  26.775 +    Width = 150
  26.776 +    Height = 33
  26.777 +    TabOrder = 1
  26.778 +    OnClick = btn_EditorClick
  26.779 +    Glyph.Data = {
  26.780 +      42090000424D420900000000000036040000280000004A000000110000000100
  26.781 +      0800000000000C050000120B0000120B00000001000011000000000000009098
  26.782 +      A800484C54001B1C1F006C727E00333333005A5F6900757B880008090A003F42
  26.783 +      49007E85930024262A0036393F0051555E0012121400878E9D00636873000000
  26.784 +      0000000000000000000000000000000000000000000000000000000000000000
  26.785 +      0000000000000000000000000000000000000000000000000000000000000000
  26.786 +      0000000000000000000000000000000000000000000000000000000000000000
  26.787 +      0000000000000000000000000000000000000000000000000000000000000000
  26.788 +      0000000000000000000000000000000000000000000000000000000000000000
  26.789 +      0000000000000000000000000000000000000000000000000000000000000000
  26.790 +      0000000000000000000000000000000000000000000000000000000000000000
  26.791 +      0000000000000000000000000000000000000000000000000000000000000000
  26.792 +      0000000000000000000000000000000000000000000000000000000000000000
  26.793 +      0000000000000000000000000000000000000000000000000000000000000000
  26.794 +      0000000000000000000000000000000000000000000000000000000000000000
  26.795 +      0000000000000000000000000000000000000000000000000000000000000000
  26.796 +      0000000000000000000000000000000000000000000000000000000000000000
  26.797 +      0000000000000000000000000000000000000000000000000000000000000000
  26.798 +      0000000000000000000000000000000000000000000000000000000000000000
  26.799 +      0000000000000000000000000000000000000000000000000000000000000000
  26.800 +      0000000000000000000000000000000000000000000000000000000000000000
  26.801 +      0000000000000000000000000000000000000000000000000000000000000000
  26.802 +      0000000000000000000000000000000000000000000000000000000000000000
  26.803 +      0000000000000000000000000000000000000000000000000000000000000000
  26.804 +      0000000000000000000000000000000000000000000000000000000000000000
  26.805 +      0000000000000000000000000000000000000000000000000000000000000000
  26.806 +      0000000000000000000000000000000000000000000000000000000000000000
  26.807 +      0000000000000000000000000000000000000000000000000000000000000000
  26.808 +      0000000000000000000000000000000000000000000000000000000000000000
  26.809 +      0000000000000000000000000000000000000000000000000000000000000000
  26.810 +      0000000000000000000000000000000000000000000000000000000000000000
  26.811 +      0000000000000000000000000000000000000000000000000000000000000000
  26.812 +      0000000000000000000000000000000000000000000000000000000000000000
  26.813 +      0000000000000000000000000000000000000000000000000000010101010101
  26.814 +      0101010101010101010101010101010101010101010101010101010101010101
  26.815 +      0101010101010101010101010101010101010101010101010101010101010101
  26.816 +      0101010101010101010101010101010101010101010101010101010101010101
  26.817 +      01010101040D0401010101010101010101010101010101010101010101010101
  26.818 +      0101010101010101010101010101010101010101010101010101010101010101
  26.819 +      0101010101010101010101040D0C030000000201010101010101010101020B07
  26.820 +      01010101060C070101010101060B0B02010101070B0B06010410010101010101
  26.821 +      0101010101010104030701010101010101010101010102000000000000000C01
  26.822 +      010103080C0A01010100000401010101000004010101010C0000000005010104
  26.823 +      0000020C00080F0101010101010101010101010D000804010101010101010101
  26.824 +      010102000000000000000B010101000000080701010000040101010100000401
  26.825 +      0101040000020700000401040000030000081001010101010101010101010105
  26.826 +      000000060101010101010101010102000504040701010101010100000800080F
  26.827 +      01000004010101010000040101010C000801010300090104000000000E0F0101
  26.828 +      0101010101010101010101070C0800000C010101010101010101020002010101
  26.829 +      01010101010A00000F0E000D010000040101010100000101010103000B01010B
  26.830 +      000B010400000000040101010101010B0B0B0800000E0101010F060000090101
  26.831 +      01010101010102000C0401010101010101040003010D000B0100000A01010101
  26.832 +      00000101010100000901010B000B010400000000060101010101010000000000
  26.833 +      000C0101010A0B0008070101010101010101020000000000010101010104000B
  26.834 +      0104000B01000001010101010000010101010000020101080005010A00000E00
  26.835 +      000A01010101010602020202050401010D080000070101010101010101010200
  26.836 +      0E00000001010101010D00020106000C01000001010101010008010101010300
  26.837 +      0C010700000601010000010B0002010101010101010101010101010102000006
  26.838 +      01010101010101010101020002010F04010101010F0B00060F03000401000001
  26.839 +      010B020C00030701010109000806030003010101000001050002010101010101
  26.840 +      0101010101010101010602010101010101010101010102000401010101010101
  26.841 +      0C00000E0E00090101000001010000000000000000010200000000030F010108
  26.842 +      00000E0000060101010101010101010101010101010101010101010101010101
  26.843 +      010A0B000D040F0101010101090300000310010101080001010B090C000B050B
  26.844 +      0B0101100202100101010100000000000B010101010101010101010101010101
  26.845 +      0101010101010101010101010102000000000000050101010101010101010101
  26.846 +      01010101010101010101010101010101010101010101010A1002021001010101
  26.847 +      01010101010101010101010101010101010101010101010101060B0E00000000
  26.848 +      0201010101010101010101010101010101010101010101010101010101010101
  26.849 +      0101010101010101010101010101010101010101010101010101010101010101
  26.850 +      010101010101010101010A040A01010101010101010101010101010101010101
  26.851 +      0101010101010101010101010101010101010101010101010101010101010101
  26.852 +      0101010101010101010101010101010101010101010101010101010101010101
  26.853 +      0101010101010101010101010101010101010101010101010101010101010101
  26.854 +      010101010101}
  26.855 +  end
  26.856 +  object License: TMemo
  26.857 +    Left = 125
  26.858 +    Top = 184
  26.859 +    Width = 393
  26.860 +    Height = 49
  26.861 +    BevelInner = bvNone
  26.862 +    BevelOuter = bvNone
  26.863 +    Color = clInfoBk
  26.864 +    Lines.Strings = (
  26.865 +      
  26.866 +        'This program is free software; you can redistribute it and/or mo' +
  26.867 +        'dify it under the '
  26.868 +      
  26.869 +        'terms of the GNU General Public License as published by the Free' +
  26.870 +        ' Software '
  26.871 +      
  26.872 +        'Foundation; either version 2 of the License, or (at your option)' +
  26.873 +        ' any later version.'
  26.874 +      ''
  26.875 +      
  26.876 +        'This program is distributed in the hope that it will be useful, ' +
  26.877 +        'but WITHOUT ANY '
  26.878 +      
  26.879 +        'WARRANTY; without even the implied warranty of MERCHANTABILITY o' +
  26.880 +        'r '
  26.881 +      'FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public '
  26.882 +      'License for more details.'
  26.883 +      ''
  26.884 +      
  26.885 +        'You should have received a copy of the GNU General Public Licens' +
  26.886 +        'e along '
  26.887 +      
  26.888 +        'with this program; if not, write to the Free Software Foundation' +
  26.889 +        ', Inc., 51 Franklin '
  26.890 +      'Street, Fifth Floor, Boston, MA 02110-1301 USA.')
  26.891 +    ReadOnly = True
  26.892 +    ScrollBars = ssVertical
  26.893 +    TabOrder = 2
  26.894 +  end
  26.895 +end
    27.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
    27.2 +++ b/unit_Start.pas	Sun Dec 03 21:54:43 2006 +0100
    27.3 @@ -0,0 +1,116 @@
    27.4 +unit unit_Start;
    27.5 +
    27.6 +interface//####################################################################################
    27.7 +
    27.8 +uses
    27.9 +  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   27.10 +  Dialogs, jpeg, ExtCtrls, StdCtrls, shellapi, ComCtrls, Buttons;
   27.11 +
   27.12 +type
   27.13 +  Tform_Start = class(TForm)
   27.14 +    img_Logo: TImage;
   27.15 +    img_Copyright: TImage;
   27.16 +    img_ThanksJuFo: TImage;
   27.17 +    btn_close: TBitBtn;
   27.18 +    btn_Editor: TBitBtn;
   27.19 +    img_Easteregg: TImage;
   27.20 +    License: TMemo;
   27.21 +    procedure FormCreate(Sender: TObject);
   27.22 +    procedure btn_CloseClick(Sender: TObject);
   27.23 +    procedure btn_EditorClick(Sender: TObject);
   27.24 +    procedure img_EastereggClick(Sender: TObject);
   27.25 +  private
   27.26 +
   27.27 +  public
   27.28 +
   27.29 +  end;
   27.30 +
   27.31 +var
   27.32 +  form_Start: Tform_Start;
   27.33 +
   27.34 +  const ini = 'cdar.ini';
   27.35 +        welcome = 'welcome.jpg';
   27.36 +        enter = 'enter.jpg';
   27.37 +
   27.38 +  procedure shellexec(const Zielpfad :string);
   27.39 +
   27.40 +implementation//###############################################################################
   27.41 +uses unit_Welcome, unit_Editor, modul_allgemein, unit_Easteregg;
   27.42 +{$R *.dfm}//###################################################################################
   27.43 +
   27.44 +//------------------------------------------------------------------------------ Form Create
   27.45 +procedure Tform_Start.FormCreate(Sender: TObject);
   27.46 +begin
   27.47 +  // init
   27.48 +    form_start.Color := rgb(192,192,192);
   27.49 +
   27.50 +  // command line parameters
   27.51 +    if lowercase(paramstr(1)) = 'editor' then  // start editor
   27.52 +      begin
   27.53 +        application.CreateForm(tform_editor, form_editor);
   27.54 +        form_editor.Show;
   27.55 +      end
   27.56 +    else if lowercase(paramstr(1)) = 'welcome' then  // show welcome screen
   27.57 +      begin
   27.58 +        application.CreateForm(tform_welcome, form_welcome);
   27.59 +        form_welcome.Show;
   27.60 +      end
   27.61 +    else if lowercase(paramstr(1)) = 'marmaro' then  // easteregg ... bit boring in open source ;-)
   27.62 +      begin
   27.63 +        application.CreateForm(tform_easteregg, form_easteregg);
   27.64 +        form_easteregg.show;
   27.65 +        form_Start.hide;
   27.66 +      end
   27.67 +    else if lowercase(paramstr(1)) = '' then  // about window
   27.68 +      begin
   27.69 +        // do nothing special
   27.70 +      end
   27.71 +    else                                 // direct call
   27.72 +      begin
   27.73 +        shellexec(paramstr(1));
   27.74 +        application.Terminate;
   27.75 +      end;
   27.76 +end;//--------------------------------------------------------------------------
   27.77 +
   27.78 +//#############################################################################################
   27.79 +
   27.80 +//------------------------------------------------------------------------------ kill
   27.81 +procedure Tform_Start.btn_CloseClick(Sender: TObject);
   27.82 +begin
   27.83 +  application.Terminate;
   27.84 +end;//--------------------------------------------------------------------------
   27.85 +//------------------------------------------------------------------------------ editor
   27.86 +procedure Tform_Start.btn_EditorClick(Sender: TObject);
   27.87 +begin
   27.88 +  application.CreateForm(tform_editor, form_editor);
   27.89 +  form_Editor.show;
   27.90 +  form_Start.hide;
   27.91 +end;//--------------------------------------------------------------------------
   27.92 +
   27.93 +//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
   27.94 +
   27.95 +//------------------------------------------------------------------------------ easteregg
   27.96 +procedure Tform_Start.img_EastereggClick(Sender: TObject);
   27.97 +begin
   27.98 +  application.CreateForm(tform_easteregg, form_easteregg);
   27.99 +  form_Easteregg.show;
  27.100 +  form_Start.hide;
  27.101 +end;//--------------------------------------------------------------------------
  27.102 +
  27.103 +//#############################################################################################
  27.104 +
  27.105 +//------------------------------------------------------------------------------ shellexec
  27.106 +procedure shellexec(const Zielpfad :string);
  27.107 +begin
  27.108 +  if zielpfad <> '..\-' then // '..\-' means 'no action'
  27.109 +    begin
  27.110 +      try
  27.111 +        ShellExecute(application.Handle, 'open', pchar(zielpfad), nil, nil, sw_shownormal);
  27.112 +      except
  27.113 +        showmessage('could not execute file or open dir');
  27.114 +      end;
  27.115 +    end;
  27.116 +  application.Terminate;
  27.117 +end;//--------------------------------------------------------------------------
  27.118 +
  27.119 +end.//#########################################################################################
    28.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
    28.2 +++ b/unit_Welcome.dfm	Sun Dec 03 21:54:43 2006 +0100
    28.3 @@ -0,0 +1,71 @@
    28.4 +object form_Welcome: Tform_Welcome
    28.5 +  Left = 204
    28.6 +  Top = 165
    28.7 +  BorderIcons = [biSystemMenu]
    28.8 +  BorderStyle = bsSingle
    28.9 +  Caption = 
   28.10 +    'CD-Autorunner 2.3        http://prog.marmaro.de/cdar/          '
   28.11 +  ClientHeight = 450
   28.12 +  ClientWidth = 600
   28.13 +  Color = clBtnFace
   28.14 +  Font.Charset = DEFAULT_CHARSET
   28.15 +  Font.Color = clWindowText
   28.16 +  Font.Height = -11
   28.17 +  Font.Name = 'MS Sans Serif'
   28.18 +  Font.Style = []
   28.19 +  FormStyle = fsStayOnTop
   28.20 +  Icon.Data = {
   28.21 +    0000010001002020100000000000E80200001600000028000000200000004000
   28.22 +    0000010004000000000080020000000000000000000000000000000000000000
   28.23 +    000000008000008000000080800080000000800080008080000080808000C0C0
   28.24 +    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
   28.25 +    0000000000000000000000000000000000000000000000000000000000000000
   28.26 +    0000000000000000000000000000000000000000000000000000000000000000
   28.27 +    000000000000BBBBBBBB000000000000000000000BBBBBBBBBBBBB0000000000
   28.28 +    0000000BBBBBBBBBBB0000000000000000000BBBBBBBBBB000BBBB0000000000
   28.29 +    0000BBBBBBBBB00BBBBBB00000000000000BBBBBBBB00BBBBBB0000000000000
   28.30 +    000BBBBBBB0BBBBBB00000000000000000BBBBBBB0BBBBB00000000000000000
   28.31 +    00BBBBBB0BBBBB0000000000000000000BBBBBB0BBBB00000000000000000000
   28.32 +    0BBBBB0BBBB0000000000000000000000BBBB0BBBB0000000000000000000000
   28.33 +    BBBB0BBBB00000000000000000000000BBBB0BBB000000000000000000000000
   28.34 +    BBB0BBB0000000000000000000000000BBB0BB00000000000000000000000000
   28.35 +    BB0BBB00000000000000000000000000BB0BB000000000000000000000000000
   28.36 +    0B0BB0000000000000000000000000000B0B0000000000000000000000000000
   28.37 +    0000000000000000000000000000000000000000000000000000000000000000
   28.38 +    0000000000000000000000000000000000000000000000000000000000000000
   28.39 +    0000000000000000000000000000000000000000000000000000000000000000
   28.40 +    000000000000000000000000000000000000000000000000000000000000FFFF
   28.41 +    FFFFFFFFFFFFFFFFFFFFFFFF00FFFFF8003FFFE0001FFF80000FFF00000FFE00
   28.42 +    001FFC00007FFC0001FFF80007FFF8001FFFF0003FFFF000FFFFF001FFFFE003
   28.43 +    FFFFE007FFFFE00FFFFFE01FFFFFE01FFFFFE03FFFFFE03FFFFFF07FFFFFF07F
   28.44 +    FFFFF8FFFFFFF8FFFFFFF8FFFFFFF8FFFFFFFCFFFFFFFFFFFFFFFFFFFFFF}
   28.45 +  OldCreateOrder = False
   28.46 +  Position = poScreenCenter
   28.47 +  OnClose = FormClose
   28.48 +  OnCreate = FormCreate
   28.49 +  PixelsPerInch = 96
   28.50 +  TextHeight = 13
   28.51 +  object img_Background: TImage
   28.52 +    Left = 0
   28.53 +    Top = 0
   28.54 +    Width = 600
   28.55 +    Height = 450
   28.56 +    Stretch = True
   28.57 +  end
   28.58 +  object img_Enter: TImage
   28.59 +    Left = 0
   28.60 +    Top = 0
   28.61 +    Width = 150
   28.62 +    Height = 40
   28.63 +    Cursor = crHandPoint
   28.64 +    AutoSize = True
   28.65 +    OnClick = img_EnterClick
   28.66 +  end
   28.67 +  object timer_delay: TTimer
   28.68 +    Enabled = False
   28.69 +    Interval = 3000
   28.70 +    OnTimer = timer_delayTimer
   28.71 +    Left = 520
   28.72 +    Top = 20
   28.73 +  end
   28.74 +end
    29.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
    29.2 +++ b/unit_Welcome.pas	Sun Dec 03 21:54:43 2006 +0100
    29.3 @@ -0,0 +1,126 @@
    29.4 +unit unit_Welcome;
    29.5 +
    29.6 +interface//####################################################################################
    29.7 +
    29.8 +uses
    29.9 +  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   29.10 +  Dialogs, ExtCtrls, shellapi, jpeg;
   29.11 +
   29.12 +type
   29.13 +  Tform_Welcome = class(TForm)
   29.14 +    img_Background: TImage;
   29.15 +    img_Enter: TImage;
   29.16 +    timer_delay: TTimer;
   29.17 +    procedure FormClose(Sender: TObject; var Action: TCloseAction);
   29.18 +    procedure img_EnterClick(Sender: TObject);
   29.19 +    procedure FormCreate(Sender: TObject);
   29.20 +    procedure timer_delayTimer(Sender: TObject);
   29.21 +  private
   29.22 +
   29.23 +  public
   29.24 +    Zielpfad : string;
   29.25 +  end;
   29.26 +
   29.27 +var
   29.28 +  form_Welcome: Tform_Welcome;
   29.29 +
   29.30 +implementation//###############################################################################
   29.31 +uses unit_Start, modul_allgemein;
   29.32 +{$R *.dfm}//###################################################################################
   29.33 +
   29.34 +// Forwardings
   29.35 +  procedure ClickEnter(const x_enter:string; const y_enter:string; const zielpfad:string); forward;
   29.36 +  procedure Time(const delay :string; const zielpfad:string); forward;
   29.37 +  procedure None(const zielpfad:string); forward;
   29.38 +
   29.39 +//------------------------------------------------------------------------------ Form create
   29.40 +procedure Tform_Welcome.FormCreate(Sender: TObject);
   29.41 +  var txtfile : textfile;
   29.42 +      showscreentill : string;
   29.43 +      delay : string;
   29.44 +      x_enter : string;
   29.45 +      y_enter : string;
   29.46 +      //Zielpfad : string;
   29.47 +  begin
   29.48 +    // Form immer im Vordergrund
   29.49 +      SetWindowPos(handle, HWND_TopMost, left, top, width, height, SWP_ShowWindow);
   29.50 +
   29.51 +    //Daten aus ini laden
   29.52 +      assignfile (txtfile, fktcmd(0) + ini);
   29.53 +      reset (txtfile);
   29.54 +        readln (txtfile, showscreentill);
   29.55 +        readln (txtfile, delay);
   29.56 +        readln (txtfile, x_enter);
   29.57 +        readln (txtfile, y_enter);
   29.58 +        readln (txtfile, zielpfad);
   29.59 +      closefile (txtfile);
   29.60 +    //Fallunterscheidung
   29.61 +      if showscreentill = 'click' then
   29.62 +          begin
   29.63 +            clickenter(x_enter, y_enter, zielpfad);
   29.64 +          end
   29.65 +        else if showscreentill = 'time' then
   29.66 +          begin
   29.67 +            time(delay,zielpfad);
   29.68 +          end
   29.69 +        else if showscreentill = 'none' then
   29.70 +          begin
   29.71 +            none(zielpfad);
   29.72 +          end;
   29.73 +end;//--------------------------------------------------------------------------
   29.74 +//------------------------------------------------------------------------------ Form close
   29.75 +procedure Tform_Welcome.FormClose(Sender: TObject;                 
   29.76 +  var Action: TCloseAction);
   29.77 +begin
   29.78 +  // ShellExec trotzdem ausführen
   29.79 +    shellexec(zielpfad);
   29.80 +end;//--------------------------------------------------------------------------
   29.81 +
   29.82 +//#############################################################################################
   29.83 +
   29.84 +//------------------------------------------------------------------------------ Klick Enter
   29.85 +procedure Tform_Welcome.img_EnterClick(Sender: TObject);
   29.86 +begin
   29.87 +  shellexec(zielpfad);
   29.88 +end;//--------------------------------------------------------------------------
   29.89 +
   29.90 +//------------------------------------------------------------------------------ Delay vorbei
   29.91 +procedure Tform_Welcome.timer_delayTimer(Sender: TObject);                       
   29.92 +begin
   29.93 +  shellexec(Zielpfad);
   29.94 +end;//--------------------------------------------------------------------------
   29.95 +
   29.96 +//#############################################################################################
   29.97 +
   29.98 +//------------------------------------------------------------------------------ Klick ini
   29.99 +procedure ClickEnter(const x_enter:string; const y_enter:string; const zielpfad:string);
  29.100 +begin
  29.101 +  form_welcome.img_Enter.Picture.LoadFromFile(fktcmd(0) + enter);
  29.102 +  // Nur wenn das Enter-Bild <> 600x450 dann HG-Bild
  29.103 +    if form_welcome.img_enter.Width <> form_welcome.img_Background.Width then
  29.104 +      begin
  29.105 +        if form_welcome.img_enter.Height <> form_welcome.img_Background.Height then
  29.106 +          begin
  29.107 +            form_welcome.img_Background.picture.loadfromfile(fktcmd(0) + welcome);
  29.108 +          end
  29.109 +      end;
  29.110 +  form_welcome.img_Enter.Left := strtoint(x_enter);
  29.111 +  form_welcome.img_Enter.top := strtoint(y_enter);
  29.112 +end;//--------------------------------------------------------------------------
  29.113 +
  29.114 +//------------------------------------------------------------------------------ Time ini
  29.115 +procedure Time(const delay :string; const zielpfad:string);
  29.116 +begin
  29.117 +  form_welcome.img_Background.picture.loadfromfile(fktcmd(0) + welcome);
  29.118 +  form_welcome.img_Enter.Enabled := false;
  29.119 +  form_welcome.timer_delay.Interval := strtoint(delay) * 1000;
  29.120 +  form_welcome.timer_delay.Enabled := true;
  29.121 +end;//--------------------------------------------------------------------------
  29.122 +
  29.123 +//------------------------------------------------------------------------------ Direktaufruf
  29.124 +procedure None(const zielpfad:string);
  29.125 +begin
  29.126 +  shellexec(zielpfad);
  29.127 +end;//--------------------------------------------------------------------------
  29.128 +
  29.129 +end.//#########################################################################################