systools: Rearrange units and packages

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6159 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2018-01-30 16:17:37 +00:00
parent f6fdbc97c6
commit 543cdf06d9
117 changed files with 739 additions and 285 deletions
--- a/components/systools/source/general/design/stproped.pas
+++ b/components/systools/source/general/design/stproped.pas
@@ -0,0 +1,137 @@
+(* ***** BEGIN LICENSE BLOCK *****
+ * Version: MPL 1.1
+ *
+ * The contents of this file are subject to the Mozilla Public License Version
+ * 1.1 (the "License"); you may not use this file except in compliance with
+ * the License. You may obtain a copy of the License at
+ * http://www.mozilla.org/MPL/
+ *
+ * Software distributed under the License is distributed on an "AS IS" basis,
+ * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
+ * for the specific language governing rights and limitations under the
+ * License.
+ *
+ * The Original Code is TurboPower SysTools
+ *
+ * The Initial Developer of the Original Code is
+ * TurboPower Software
+ *
+ * Portions created by the Initial Developer are Copyright (C) 1996-2002
+ * the Initial Developer. All Rights Reserved.
+ *
+ * Contributor(s):
+ *
+ * ***** END LICENSE BLOCK ***** *)
+
+{*********************************************************}
+{* SysTools: StPropEd.pas 4.04                           *}
+{*********************************************************}
+{* SysTools: Property Editors                            *}
+{*********************************************************}
+
+{$IFDEF FPC}
+  {$mode DELPHI}
+{$ENDIF}
+
+//{$I StDefine.inc}
+
+unit StPropEd;
+
+interface
+
+uses
+  Dialogs,
+{$IFDEF FPC}
+  PropEdits,
+{$ELSE}
+ {$IFDEF VERSION6}
+  DesignIntf,
+  DesignEditors,
+ {$ELSE}
+  DsgnIntf,
+ {$ENDIF}
+{$ENDIF}
+  Forms,
+  Controls;
+
+type
+  TStFileNameProperty = class(TStringProperty)
+  public
+    function GetAttributes: TPropertyAttributes; override;
+    procedure Edit; override;
+  end;
+
+  TStGenericFileNameProperty = class(TStringProperty)
+  public
+    function GetAttributes: TPropertyAttributes; override;
+    procedure Edit; override;
+  end;
+
+implementation
+
+function TStFileNameProperty.GetAttributes: TPropertyAttributes;
+begin
+  Result := [paDialog];
+end;
+
+procedure TStFileNameProperty.Edit;
+var
+  Dlg : TOpenDialog;
+begin
+  Dlg := TOpenDialog.Create(Application);
+  try
+    Dlg.DefaultExt := '*.exe';
+    Dlg.Filter := 'Executable Files (*.exe)|*.exe' +
+                  '|Dynamic Link Libraries (*.dll)|*.dll';
+    Dlg.FilterIndex := 0;
+    Dlg.Options := [];
+    if GetName = 'ShortcutFileName' then
+      Dlg.Options := [ofNoDereferenceLinks];
+    {$IFDEF FPC}
+    Dlg.FileName := GetValue;
+    if Dlg.Execute then
+      SetValue(Dlg.Filename);
+    {$ELSE}
+    Dlg.FileName := Value;
+    if Dlg.Execute then
+      Value := Dlg.FileName;
+    {$ENDIF}
+  finally
+    Dlg.Free;
+  end;
+end;
+
+
+function TStGenericFileNameProperty.GetAttributes: TPropertyAttributes;
+begin
+  Result := [paDialog];
+end;
+
+procedure TStGenericFileNameProperty.Edit;
+var
+  Dlg : TOpenDialog;
+begin
+  Dlg := TOpenDialog.Create(Application);
+  try
+    Dlg.DefaultExt := '*.*';
+    Dlg.Filter := 'Text files (*.txt)|*.txt' +
+                  '|Pascal files (.pas)|*.pas' +
+                  '|C++ files (*.cpp)|*.cpp' +
+                  '|All files (*.*)|*.*';
+    Dlg.FilterIndex := 0;
+    Dlg.Options := [];
+    {$IFDEF FPC}
+    Dlg.FileName := GetValue;
+    if Dlg.Execute then
+      SetValue(Dlg.FileName);
+    {$ELSE}
+    Dlg.FileName := Value;
+    if Dlg.Execute then
+      Value := Dlg.FileName;
+    {$ENDIF}
+  finally
+    Dlg.Free;
+  end;
+end;
+
+end.