initial import of the rx component version 1.0.12.38

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@232 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2007-08-09 21:36:59 +00:00
parent 22093d6e75
commit a3d4d0d2fd
116 changed files with 25654 additions and 0 deletions
--- a/components/rx/rxapputils.pas
+++ b/components/rx/rxapputils.pas
@ -0,0 +1,142 @@
+unit rxapputils;
+
+{$I rx.inc}
+
+interface
+
+uses
+  Classes, SysUtils, Controls, IniFiles;
+
+const
+  {$IFNDEF LINUX}
+  AllMask = '*.*';
+  {$ELSE}
+  AllMask = '*';
+  {$ENDIF}
+
+var
+  DefCompanyName: string = '';
+  RegUseAppTitle: Boolean = False;
+
+
+function GetDefaultSection(Component: TComponent): string;
+procedure GetDefaultIniData(Control: TControl; var IniFileName,
+  Section: string; UseRegistry: Boolean = false);
+function GetDefaultIniName: string;
+
+type
+  TOnGetDefaultIniName = function: string;
+
+const
+  OnGetDefaultIniName: TOnGetDefaultIniName = nil;
+
+procedure IniWriteString(IniFile: TObject; const Section, Ident,
+  Value: string);
+function GetDefaultIniRegKey: string;
+implementation
+uses Registry, Forms;
+
+function GetDefaultSection(Component: TComponent): string;
+var
+  F: TCustomForm;
+  Owner: TComponent;
+begin
+  if Component <> nil then begin
+    if Component is TCustomForm then Result := Component.ClassName
+    else begin
+      Result := Component.Name;
+      if Component is TControl then begin
+        F := GetParentForm(TControl(Component));
+        if F <> nil then Result := F.ClassName + Result
+        else begin
+          if TControl(Component).Parent <> nil then
+            Result := TControl(Component).Parent.Name + Result;
+        end;
+      end
+      else begin
+        Owner := Component.Owner;
+        if Owner is TForm then
+          Result := Format('%s.%s', [Owner.ClassName, Result]);
+      end;
+    end;
+  end
+  else Result := '';
+end;
+
+function GetDefaultIniName: string;
+begin
+  if Assigned(OnGetDefaultIniName) then
+    Result:= OnGetDefaultIniName()
+  else
+    Result := ExtractFileName(ChangeFileExt(Application.ExeName, '.INI'));
+end;
+
+procedure GetDefaultIniData(Control: TControl; var IniFileName,
+  Section: string; UseRegistry: Boolean );
+var
+  I: Integer;
+begin
+  IniFileName := EmptyStr;
+{  with Control do
+    if Owner is TCustomForm then
+      for I := 0 to Owner.ComponentCount - 1 do
+        if (Owner.Components[I] is TFormPropertyStorage) then
+        begin
+          IniFileName := TFormPropertyStorage(Owner.Components[I]).IniFileName;
+          Break;
+        end;}
+  Section := GetDefaultSection(Control);
+  if IniFileName = EmptyStr then
+    if UseRegistry then IniFileName := GetDefaultIniRegKey
+    else
+      IniFileName := GetDefaultIniName;
+end;
+
+procedure IniWriteString(IniFile: TObject; const Section, Ident,
+  Value: string);
+var
+  S: string;
+begin
+  if IniFile is TRegIniFile then
+    TRegIniFile(IniFile).WriteString(Section, Ident, Value)
+  else begin
+    S := Value;
+    if S <> '' then begin
+      if ((S[1] = '"') and (S[Length(S)] = '"')) or
+        ((S[1] = '''') and (S[Length(S)] = '''')) then
+        S := '"' + S + '"';
+    end;
+    if IniFile is TIniFile then
+      TIniFile(IniFile).WriteString(Section, Ident, S);
+  end;
+end;
+
+function GetDefaultIniRegKey: string;
+begin
+  if RegUseAppTitle and (Application.Title <> '') then
+    Result := Application.Title
+  else Result := ExtractFileName(ChangeFileExt(Application.ExeName, ''));
+  if DefCompanyName <> '' then
+    Result := DefCompanyName + '\' + Result;
+  Result := 'Software\' + Result;
+end;
+
+{
+procedure IniWriteString(IniFile: TIniFile; const Section, Ident,
+  Value: string);
+var
+  S: string;
+begin
+    S := Value;
+    if S <> '' then
+    begin
+      if ((S[1] = '"') and (S[Length(S)] = '"')) or
+        ((S[1] = '''') and (S[Length(S)] = ''''))  then
+        S := '"' + S + '"';
+    end;
+    if IniFile is TIniFile then
+      TIniFile(IniFile).WriteString(Section, Ident, S);
+end;
+}
+end.
+