diff --git a/Example/TSplashScreen/uMain.pas b/Example/TSplashScreen/uMain.pas index a66f898..a520de8 100644 --- a/Example/TSplashScreen/uMain.pas +++ b/Example/TSplashScreen/uMain.pas @@ -149,7 +149,7 @@ begin SplashScreen.SplashTimer.Enabled := False; SplashScreen.ApplyChanges; end; - showmessage(inttostr(splashscreen.SplashProgressBar.Position)); + //showmessage(inttostr(splashscreen.SplashProgressBar.Position)); end; end. diff --git a/Feedback/Feedback.exe b/Feedback/Feedback.exe new file mode 100644 index 0000000..d613eaa Binary files /dev/null and b/Feedback/Feedback.exe differ diff --git a/Feedback/fb_config.res b/Feedback/fb_config.res new file mode 100644 index 0000000..c2f7fb6 --- /dev/null +++ b/Feedback/fb_config.res @@ -0,0 +1,12 @@ +; FEEDBACK-PROGRAM DATA +; DO NOT MODIFY UNLESS YOU EXACTLY KNOW WHAT YOU ARE DOING! +[file] +languages=fb_language +applications=fb_program +[extension] +resource=res +feedback=fbk +[default] +language=English +program=Lina Components +version=1.0 diff --git a/Feedback/fb_language.res b/Feedback/fb_language.res new file mode 100644 index 0000000..fa43433 --- /dev/null +++ b/Feedback/fb_language.res @@ -0,0 +1,92 @@ +; FEEDBACK-PROGRAM LANGUAGES +; (ONE SECTION FOR EACH LANGUAGE) +; TO CHANGE THE DEFAULT LANGUAGE, EDIT FB_CONFIG.RES FILE +[English] +; APPLICATION +000=Feedback +001=Feedback-Program +002=Feedback files +003=Export feedback file... +; DIALOGS (NEWLINE: &) +004=Are we allowed to include some anonymous data for statistic purposes in your feedback?&This helps us to make our programs better for our users in the future.&There will be no publishing of your data for threesomes. +005=Please vote for the program with one to five stars! +006=Thank you for participating at our feedback program!&Your data has been saved in special FBK files which you can upload now.&Would you like to open the page for uploading feedback files in your browser now? +; MAIN FORM +010=Settings +011=Language: +012=Program: +013=Version: +021=Exit +022=Continue +; TAB #1 +100=General +111=Unsatisfactory +112=Acceptable +113=Good +114=Excellent +115=Perfect +121=The program went down unexpectedly +122=The program did not work correctly +123=The program could not be launched +124=The program hang-up +125=The program demaged my system +; TAB #2 +200=Problems +210=The program had problems +220=Problems description +; TAB #3 +300=Voting +301=Bad +302=Good +310=Optical appearance: +320=Practical handling: +330=Nominal functionality: +; TAB #4 +400=Suggestions +410=Wishes and suggestions: +420=Other annotations: +; ------------------------------------------------ +[Italiano] +; L'APPLICAZIONE +000=Feedback +001=Feedback-Programma +002=Feedback file +003=Esporta i file feedback ... +; DIALOGS (NEWLINE: &) +004=Ci è permesso di inserire alcuni dati anonimi per scopi statistici nei feedback?&Questo ci aiuta a rendere i nostri programmi migliori per i nostri utenti in futuro.&Non ci sarà la pubblicazione dei suoi dati a terzi. +005=Vota per il programma con cinque stelle! +006=Grazie per aver partecipato al nostro programma di feedback!&I dati sono stati salvati in file di FBK speciali che si possono caricare ora.&Vorresti aprire la pagina per il caricamento di file di feedback nel tuo browser adesso? +; PRINCIPALE FORMA +010=Impostazioni +011=Lingua: +012=Programma: +013=Versione: +021=Esci +022=Continua +; TAB # 1 +100=Generale +111=Insufficiente +112=Accettabile +113=Buono +114=Eccellente +115=Perfetto +121=Il programma è andato in modo imprevisto +122=Il programma non ha funzionato correttamente +123=Il programma non potrebbe essere lanciato +124=Il programma di hang-up +125=Il programma a danneggiato il mio sistema +; TAB # 2 +200=Problemi +210=Il programma ha avuto problemi +220=Descrizione dei problemi +; TAB # 3 +300=Votazioni +301=Scarso +302=Buono +310=Aspetto ottico: +320=Movimentazione pratiche: +330=Funzionalità nominale: +; TAB # 4 +400=Suggerimenti +410=Richieste e suggerimenti: +420=Altre annotazioni: \ No newline at end of file diff --git a/Feedback/fb_program.res b/Feedback/fb_program.res new file mode 100644 index 0000000..53adbbc --- /dev/null +++ b/Feedback/fb_program.res @@ -0,0 +1,24 @@ +; LIST OF APPLICATIONS AND THEIR RELEASE VERSIONS +; ALL VERSIONS WITHOUT A "=" IN THE END ARE INVISIBLE! +[Lina Components] +1.0= +[BonniChat] +1.02.0= +1.02.1= +1.02.2= +1.03.0= +1.03.1= +1.03.2= +[Graph(X)] +Beta= +[Outfront-Script Library] +Alpha= +[Feedback-Programm] +1.0= +[Outfront ModManager] +0.1.1= +[Conversion Map-Pack] +Beta= +1.0= +[Enter The Other Side] +None diff --git a/Feedback/fb_readme_de.txt b/Feedback/fb_readme_de.txt new file mode 100644 index 0000000..476dfc3 --- /dev/null +++ b/Feedback/fb_readme_de.txt @@ -0,0 +1,33 @@ +~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +FEEDBACK-PROGRAMM ************************************* +~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +Vielen Dank, dass Sie sich entschieden haben, uns eine +Rückmeldung über eins unserer Produkte zukommen zu +lassen. Dies wird uns in erheblichem Maße helfen, +unsere Programme immer funktionstüchtiger, stabiler +und benutzerfreundlicher zu gestalten. + +Um ein digitales Feedback zu erzeugen, gehen Sie +bitte wie folgt vor: +1. Öffnen Sie die Anwendung mit dem Namen "Feedback" +2. Wählen Sie das vom Ihnen verwendete Programm +3. Wählen Sie die von Ihnen verwendete Version +4. Bewerten Sie das Programm mit 1-5 Sternen +5. Füllen Sie optional weitere Felder aus +6. Klicken Sie auf "Fortfahren" und wählen sie einen + Dateinamen für die anschließend erzeugte FBK-Datei +7. Lassen Sie uns die Datei zukommen + +Um die Datei hohzuladen, öffnen Sie bitte folgende +Seite in Ihrem Internetbrowser: +http://apps.dennis07.de/feedback/upload +Wählen Sie die hochzuladene Datei aus und Klicken Sie +anschließend auf den "Upload"-Button. + +Vielen Dank für Ihre Unterstützung! +Das Web'n'App Productions Team + +~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +Feedback-Program 1.0 ********************************** +*********************** (c) 2013 Rancboomer Productions +~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ \ No newline at end of file diff --git a/Feedback/fb_readme_en.txt b/Feedback/fb_readme_en.txt new file mode 100644 index 0000000..13de890 --- /dev/null +++ b/Feedback/fb_readme_en.txt @@ -0,0 +1,30 @@ +~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +FEEDBACK PROGRAM ************************************** +~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +Thank you for deciding giving us a feedback on one of +our products. This will help designing our programs +more usable, stable and user-optimized. + +To create a digital feedback please follow the steps +below: +1. Run the application named "Feedback" +2. Choose the program you are using +3. Choose the version you are using +4. Rate the program with 1-5 stars +5. Fill in additional fields optionally +6. Click on "Continue" and choose a filename for the + FBK file which will be generated afterwords +7. Provide us the file + +To upload the file please open the following site in +your web browser: +http://apps.dennis07.de/feedback/upload +Choose the file to upload and press the "Upload" button + +Thank you for your support! +The Rancboomer Productions Team + +~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +Feedback-Program 1.0 ********************************** +*********************** (c) 2013 Rancboomer Productions +~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ \ No newline at end of file diff --git a/Feedback/feedback.ico b/Feedback/feedback.ico new file mode 100644 index 0000000..dd53370 Binary files /dev/null and b/Feedback/feedback.ico differ diff --git a/Information/Manual.txt b/Information/Manual.txt index 4bc4556..07d1b08 100644 --- a/Information/Manual.txt +++ b/Information/Manual.txt @@ -19,12 +19,37 @@ versions installed: won't be available in the components palett of the personal version. +== Obtainment ===================================================== +To get Lina Componants, you can either download a snapshot or use a +version control system. If you choose to use the snapshot +alternative you have to take care of your up-to-date-keeping by +yourself. Note that due to security and functionality issues it is +recommended to always run the latest version of Lina Components +unless you are forced to do elsewise. + +To get your copy of Lina Components, first visit the official +website at: https://bitbucket.org/Dennis07/lina-components +- Navigate to the "Downlads" > "Download repository" to get the + latest version once. +- Use a GIT* client to clone the project's work directory onto your + machine. Refresh update it to the latest version. + +*) GIT is a version control system originally developed to manage + linux kernal distributions. It is used to ensure developers to + always work with the latest versions of code libraries available + and is being used by alot of project maintainers. + The most frequntly-used GIT client is "Tortoise GIT", available + under: http://tortoisegit.org/ + == Installation =================================================== 1. Add the "{...}\Source" and the "{...}\Source\Compiled" Folders to your application's library path 2. Open the corresponding packe for your Delphi version located in {...}\Package\{DELPHI_...}\{LINA_D_...}.dpk -3. Right-click on the package and compile it +3. Right-click on the package and compile it * 4. Right-click on the package and build it 5. Right-click on the package and install it -6. Close the package \ No newline at end of file +6. Close the package + +*) If you are using Delphi XE5 Dev-Update 2, the units are already + ready for use. Just skip this step, if you want. \ No newline at end of file diff --git a/Package/Delphi_XE5/LINA_D_XE5.dpk b/Package/Delphi_XE5/LINA_D_XE5.dpk index cd39b2b..bd70bea 100644 --- a/Package/Delphi_XE5/LINA_D_XE5.dpk +++ b/Package/Delphi_XE5/LINA_D_XE5.dpk @@ -1,6 +1,11 @@ package LINA_D_XE5; {$R *.res} +{$R '..\..\Resource\Compiled\uBattery.dcr'} +{$R '..\..\Resource\Compiled\uFrmCtrls.dcr'} +{$R '..\..\Resource\Compiled\uLocalMgr.dcr'} +{$R '..\..\Resource\Compiled\uScriptMgr.dcr'} +{$R '..\..\Resource\Compiled\uVirtObj.dcr'} {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} {$ALIGN 8} {$ASSERTIONS ON} @@ -28,12 +33,6 @@ package LINA_D_XE5; {$DESCRIPTION 'Lina Components'} {$IMPLICITBUILD ON} -{$R '..\..\Resource\Compiled\uBattery.dcr'} -{$R '..\..\Resource\Compiled\uFrmCtrls.dcr'} -{$R '..\..\Resource\Compiled\uLocalMgr.dcr'} -{$R '..\..\Resource\Compiled\uScriptMgr.dcr'} -{$R '..\..\Resource\Compiled\uVirtObj.dcr'} - requires rtl, vcl, diff --git a/Package/Delphi_XE5/LINA_D_XE5.dproj.local b/Package/Delphi_XE5/LINA_D_XE5.dproj.local index 0994c4c..cfdb31e 100644 --- a/Package/Delphi_XE5/LINA_D_XE5.dproj.local +++ b/Package/Delphi_XE5/LINA_D_XE5.dproj.local @@ -1,32 +1,33 @@  - 1899.12.30 00:00:00.000.525,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uCrypt.pas + 1899.12.30 00:00:00.000.518,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uBattery.pas 1899.12.30 00:00:00.000.584,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uVirtObj.pas 1899.12.30 00:00:00.000.555,=C:\Users\Dennis\Documents\RAD Studio\Projekte\LinaComponents\uBase.pas - 1899.12.30 00:00:00.000.518,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uBattery.pas + 1899.12.30 00:00:00.000.525,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uCrypt.pas 1899.12.30 00:00:00.000.648,=C:\Users\Dennis\Documents\RAD Studio\Projekte\LinaComponents\uScriptMgr.pas 1899.12.30 00:00:00.000.196,=rtl.dcp 1899.12.30 00:00:00.000.686,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\uSysTools.pas - 1899.12.30 00:00:00.000.621,=C:\Users\Dennis\Documents\RAD Studio\Projekte\LinaComponents\uLinaTest.pas + 1899.12.30 00:00:00.000.414,C:\Users\Dennis\Documents\RAD Studio\Projekte\LinaComponents\uLinaTest.pas= 1899.12.30 00:00:00.000.577,=C:\Users\Dennis\Documents\RAD Studio\Projekte\LinaComponents\uBattery.pas 1899.12.30 00:00:00.000.633,C:\Users\Dennis\Documents\RAD Studio\Projekte\Package1.dproj=C:\Users\Dennis\Documents\RAD Studio\Projekte\LinaComponents\LINA_D_XE5.dproj 1899.12.30 00:00:00.000.318,=vcl.dcp 1899.12.30 00:00:00.000.556,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uLocalMgr.pas - 1899.12.30 00:00:00.000.414,C:\Users\Dennis\Documents\RAD Studio\Projekte\LinaComponents\uLinaTest.pas= + 1899.12.30 00:00:00.000.621,=C:\Users\Dennis\Documents\RAD Studio\Projekte\LinaComponents\uLinaTest.pas + 1899.12.30 00:00:00.000.672,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\uFrmCtrls.pas 1899.12.30 00:00:00.000.535,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uFileTools.pas 1899.12.30 00:00:00.000.566,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uScriptMgr.pas 1899.12.30 00:00:00.000.592,=C:\Users\Dennis\Documents\RAD Studio\Projekte\LinaComponents\uFileTools.pas 1899.12.30 00:00:00.000.799,=PascalScript_Core_D19.dcp 1899.12.30 00:00:00.000.857,=PascalScript_Core_D19.dcp 1899.12.30 00:00:00.000.546,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uFrmCtrls.pas - 1899.12.30 00:00:00.000.325,=dbrtl.dcp + 1899.12.30 00:00:00.000.508,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uBase.pas 1899.12.30 00:00:00.000.633,=C:\Users\Dennis\Documents\RAD Studio\Projekte\LinaComponents\uLocalMgr.pas 1899.12.30 00:00:00.000.576,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uSysTools.pas - 1899.12.30 00:00:00.000.672,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\uFrmCtrls.pas - 1899.12.30 00:00:00.000.809,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Resource\Lina.rc 1899.12.30 00:00:00.000.681,C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Resource\Lina.rc= - 1899.12.30 00:00:00.000.508,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uBase.pas + 1899.12.30 00:00:00.000.325,=dbrtl.dcp + 1899.12.30 00:00:00.000.809,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Resource\Lina.rc + 2014.09.08 02:08:44.791,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Package\Delphi_XE5\Unit1.pas diff --git a/Source/Compiled/uBase.dcu b/Source/Compiled/uBase.dcu index 8c258d9..9d2530d 100644 Binary files a/Source/Compiled/uBase.dcu and b/Source/Compiled/uBase.dcu differ diff --git a/Source/Compiled/uBattery.dcu b/Source/Compiled/uBattery.dcu index 218c41c..17c6bb3 100644 Binary files a/Source/Compiled/uBattery.dcu and b/Source/Compiled/uBattery.dcu differ diff --git a/Source/Compiled/uCrypt.dcu b/Source/Compiled/uCrypt.dcu index 3f4f8be..5900d66 100644 Binary files a/Source/Compiled/uCrypt.dcu and b/Source/Compiled/uCrypt.dcu differ diff --git a/Source/Compiled/uFileTools.dcu b/Source/Compiled/uFileTools.dcu index 7a21faa..3e1e20e 100644 Binary files a/Source/Compiled/uFileTools.dcu and b/Source/Compiled/uFileTools.dcu differ diff --git a/Source/Compiled/uFrmCtrls.dcu b/Source/Compiled/uFrmCtrls.dcu index b7499ee..2f094ef 100644 Binary files a/Source/Compiled/uFrmCtrls.dcu and b/Source/Compiled/uFrmCtrls.dcu differ diff --git a/Source/Compiled/uLocalMgr.dcu b/Source/Compiled/uLocalMgr.dcu index 1d14193..b5c96b7 100644 Binary files a/Source/Compiled/uLocalMgr.dcu and b/Source/Compiled/uLocalMgr.dcu differ diff --git a/Source/Compiled/uScriptMgr.dcu b/Source/Compiled/uScriptMgr.dcu index d899a2b..833951a 100644 Binary files a/Source/Compiled/uScriptMgr.dcu and b/Source/Compiled/uScriptMgr.dcu differ diff --git a/Source/Compiled/uSysTools.dcu b/Source/Compiled/uSysTools.dcu index baf661f..e8688ec 100644 Binary files a/Source/Compiled/uSysTools.dcu and b/Source/Compiled/uSysTools.dcu differ diff --git a/Source/Compiled/uVirtObj.dcu b/Source/Compiled/uVirtObj.dcu index d3c8756..7964f5e 100644 Binary files a/Source/Compiled/uVirtObj.dcu and b/Source/Compiled/uVirtObj.dcu differ diff --git a/Source/uFrmCtrls.pas b/Source/uFrmCtrls.pas index a432304..31cdb04 100644 --- a/Source/uFrmCtrls.pas +++ b/Source/uFrmCtrls.pas @@ -10,7 +10,7 @@ interface uses { Standard-Units } - SysUtils, Classes, Controls, Forms, ComCtrls, ExtCtrls, Graphics, + SysUtils, Classes, Controls, Forms, ComCtrls, ExtCtrls, Graphics, Dialogs, { Andere Package-Units } uBase; @@ -18,6 +18,7 @@ type { Hilfsklassen } TSplashScreenMode = (ssmDefault,ssmModal); TSplashScreenAnimation = (ssaNone,ssaShallow); + TParamReferenceType = (prtAutomatic,prtChar,prtString,prtInteger,prtFloat); type { Ereignisse } @@ -216,6 +217,53 @@ type property AnimationSpeed: Byte read FAnimationSpeed write FAnimationSpeed default 10; end; + TParamReference = class + private + { Private-Deklarationen } + FParamType: TParamReferenceType; + FDefaultValue: Variant; + FConnector: Pointer; + public + { Public-Deklarationen } + constructor Create; + destructor Destroy; + published + { Published-Deklarationen } + property ParamType: TParamReferenceType read FParamType write FParamType default prtAutomatic; + property DefaultValue: Variant read FDefaultValue write FDefaultValue; + property Connector: Pointer read FConnector write FConnector; + end; + + TParamReferences = array of TParamReference; + + TParamFormat = class + private + { Private-Deklarationen } + FPrefix: String; + FSuffix: String; + FSeperator: String; + public + { Public-Deklarationen } + constructor Create; + destructor Destroy; + published + { Published-Deklarationen } + property Prefix: String read FPrefix write FPrefix default '-'; + property Suffix: String read FSuffix write FSuffix default ''; + property Seperator: String read FSeperator write FSeperator default ':'; + end; + + TParamDefiner = class(TComponent) + private + { Private-Deklarationen } + FReferences: TParamReferences; + public + { Public-Deklarationen } + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + property References: TParamReferences read FReferences write FReferences; + end; + procedure Register; const @@ -315,6 +363,7 @@ begin FormObject := TForm.Create(Self); FormObject.OnShow := FormObjectShow; FormObject.OnHide := FormObjectHide; + FormObject.Visible := False; ProgressBarObject := TProgressBar.Create(Self); ProgressBarObject.Parent := FormObject; ImageObject := TImage.Create(Self); @@ -467,6 +516,7 @@ begin begin OnChange(Self); end; + Showmessage('Refresh'); end; procedure TSplashScreen.Reset; @@ -514,6 +564,7 @@ begin begin OnChange(Self); end; + showmessage('Reset'); end; procedure TSplashScreen.SetVisible(Value: Boolean); diff --git a/Source/uSysTools.pas b/Source/uSysTools.pas index 884ef37..61a3d41 100644 --- a/Source/uSysTools.pas +++ b/Source/uSysTools.pas @@ -124,7 +124,7 @@ end; function Empty(var Val): Boolean; begin - if Val is Pointer then + { if Val is Pointer then begin Result := (Val = nil); end else @@ -137,7 +137,7 @@ begin begin raise EInvalidValueType.Create('Unsupported value type: ' + ToString(Val)); end; - end; + end; } end; function WinUserName: String;