Version 1.0 DEV 1.02a

Signed-off-by: Dennis07 <den.goehlert@t-online.de>
2025-08-24 21:49:04 +02:00 · 2014-09-08 04:14:45 +02:00
parent 93182ccbbc
commit 3360df48a3
22 changed files with 287 additions and 20 deletions
--- 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.
--- a/Feedback/Feedback.exe
+++ b/Feedback/Feedback.exe
--- a/Feedback/fb_config.res
+++ 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
--- a/Feedback/fb_language.res
+++ 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:
--- a/Feedback/fb_program.res
+++ 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
--- a/Feedback/fb_readme_de.txt
+++ 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
+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
--- a/Feedback/fb_readme_en.txt
+++ 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
+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
--- a/Feedback/feedback.ico
+++ b/Feedback/feedback.ico
--- 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
+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.
--- 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,
--- a/Package/Delphi_XE5/LINA_D_XE5.dproj.local
+++ b/Package/Delphi_XE5/LINA_D_XE5.dproj.local
@@ -1,32 +1,33 @@
 <?xml version="1.0" encoding="utf-8"?>
 <BorlandProject>
 	<Transactions>
-    <Transaction>1899.12.30 00:00:00.000.525,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uCrypt.pas</Transaction>
+    <Transaction>1899.12.30 00:00:00.000.518,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uBattery.pas</Transaction>
    <Transaction>1899.12.30 00:00:00.000.584,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uVirtObj.pas</Transaction>
    <Transaction>1899.12.30 00:00:00.000.555,=C:\Users\Dennis\Documents\RAD Studio\Projekte\LinaComponents\uBase.pas</Transaction>
-    <Transaction>1899.12.30 00:00:00.000.518,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uBattery.pas</Transaction>
+    <Transaction>1899.12.30 00:00:00.000.525,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uCrypt.pas</Transaction>
    <Transaction>1899.12.30 00:00:00.000.648,=C:\Users\Dennis\Documents\RAD Studio\Projekte\LinaComponents\uScriptMgr.pas</Transaction>
    <Transaction>1899.12.30 00:00:00.000.196,=rtl.dcp</Transaction>
    <Transaction>1899.12.30 00:00:00.000.686,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\uSysTools.pas</Transaction>
-    <Transaction>1899.12.30 00:00:00.000.621,=C:\Users\Dennis\Documents\RAD Studio\Projekte\LinaComponents\uLinaTest.pas</Transaction>
+    <Transaction>1899.12.30 00:00:00.000.414,C:\Users\Dennis\Documents\RAD Studio\Projekte\LinaComponents\uLinaTest.pas=</Transaction>
    <Transaction>1899.12.30 00:00:00.000.577,=C:\Users\Dennis\Documents\RAD Studio\Projekte\LinaComponents\uBattery.pas</Transaction>
    <Transaction>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</Transaction>
    <Transaction>1899.12.30 00:00:00.000.318,=vcl.dcp</Transaction>
    <Transaction>1899.12.30 00:00:00.000.556,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uLocalMgr.pas</Transaction>
-    <Transaction>1899.12.30 00:00:00.000.414,C:\Users\Dennis\Documents\RAD Studio\Projekte\LinaComponents\uLinaTest.pas=</Transaction>
+    <Transaction>1899.12.30 00:00:00.000.621,=C:\Users\Dennis\Documents\RAD Studio\Projekte\LinaComponents\uLinaTest.pas</Transaction>
+    <Transaction>1899.12.30 00:00:00.000.672,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\uFrmCtrls.pas</Transaction>
    <Transaction>1899.12.30 00:00:00.000.535,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uFileTools.pas</Transaction>
    <Transaction>1899.12.30 00:00:00.000.566,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uScriptMgr.pas</Transaction>
    <Transaction>1899.12.30 00:00:00.000.592,=C:\Users\Dennis\Documents\RAD Studio\Projekte\LinaComponents\uFileTools.pas</Transaction>
    <Transaction>1899.12.30 00:00:00.000.799,=PascalScript_Core_D19.dcp</Transaction>
    <Transaction>1899.12.30 00:00:00.000.857,=PascalScript_Core_D19.dcp</Transaction>
    <Transaction>1899.12.30 00:00:00.000.546,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uFrmCtrls.pas</Transaction>
-    <Transaction>1899.12.30 00:00:00.000.325,=dbrtl.dcp</Transaction>
+    <Transaction>1899.12.30 00:00:00.000.508,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uBase.pas</Transaction>
    <Transaction>1899.12.30 00:00:00.000.633,=C:\Users\Dennis\Documents\RAD Studio\Projekte\LinaComponents\uLocalMgr.pas</Transaction>
    <Transaction>1899.12.30 00:00:00.000.576,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uSysTools.pas</Transaction>
-    <Transaction>1899.12.30 00:00:00.000.672,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\uFrmCtrls.pas</Transaction>
-    <Transaction>1899.12.30 00:00:00.000.809,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Resource\Lina.rc</Transaction>
    <Transaction>1899.12.30 00:00:00.000.681,C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Resource\Lina.rc=</Transaction>
-    <Transaction>1899.12.30 00:00:00.000.508,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Source\uBase.pas</Transaction>
+    <Transaction>1899.12.30 00:00:00.000.325,=dbrtl.dcp</Transaction>
+    <Transaction>1899.12.30 00:00:00.000.809,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Resource\Lina.rc</Transaction>
+    <Transaction>2014.09.08 02:08:44.791,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Package\Delphi_XE5\Unit1.pas</Transaction>
  </Transactions>
 	<ProjectSortOrder AutoSort="0" SortType="0">
    <File Path="..\..\..\LinaComponents"/>
--- a/Source/Compiled/uBase.dcu
+++ b/Source/Compiled/uBase.dcu
--- a/Source/Compiled/uBattery.dcu
+++ b/Source/Compiled/uBattery.dcu
--- a/Source/Compiled/uCrypt.dcu
+++ b/Source/Compiled/uCrypt.dcu
--- a/Source/Compiled/uFileTools.dcu
+++ b/Source/Compiled/uFileTools.dcu
--- a/Source/Compiled/uFrmCtrls.dcu
+++ b/Source/Compiled/uFrmCtrls.dcu
--- a/Source/Compiled/uLocalMgr.dcu
+++ b/Source/Compiled/uLocalMgr.dcu
--- a/Source/Compiled/uScriptMgr.dcu
+++ b/Source/Compiled/uScriptMgr.dcu
--- a/Source/Compiled/uSysTools.dcu
+++ b/Source/Compiled/uSysTools.dcu
--- a/Source/Compiled/uVirtObj.dcu
+++ b/Source/Compiled/uVirtObj.dcu
--- 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);
--- 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;