开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
spSkinShellCtrls.pas
资源名称：qqdelphiprog.rar　[点击查看]
上传用户：hylc_2004
上传日期：2014-01-23
资源大小：46800k
文件大小：106k
源码类别：

Delphi控件源码

开发平台：

Delphi

spSkinShellCtrls.pas：源码内容
  1. {*******************************************************************}
  2. {                                                                   }
  3. {       Almediadev Visual Component Library                         }
  4. {       DunamicSkinForm                                             }
  5. {       Version 4.98                                                }
  6. {                                                                   }
  7. {       Copyright (c) 2000-2002 Almediadev                          }
  8. {       ALL RIGHTS RESERVED                                         }
  9. {                                                                   }
  10. {       Home:  http://www.almdev.com                                }
  11. {       Support: support@almdev.com                                 }
  12. {                                                                   }
  13. {*******************************************************************}
  15. unit spSkinShellCtrls;
  17. {$WARNINGS OFF}
  18. {$HINTS OFF}                                                   
  20. interface
  22. uses
  23.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  24.   Dialogs, StdCtrls, ExtCtrls, ComCtrls, CommCtrl, ShellAPI, ShlObj, ActiveX,
  25.   Menus, ImgList, SkinCtrls, DynamicSkinForm, SkinData, SkinBoxCtrls,
  26.   spFileCtrl;
  28. type
  29.   TDiskSign = String[2];
  31.   TMediaType = (dtUnknown, dtNotExists, dtRemovable, dtFixed, dtRemote, dtCDROM, dtRAMDisk);
  33.   TFileFlag = (fsCaseIsPreserved, fsCaseSensitive, fsUnicodeStoredOnDisk,
  34.                fsPersistentAcls, fsFileCompression, fsVolumeIsCompressed,
  35.                fsLongFileNames,
  36.                fsEncryptedFileSystemSupport, fsObjectIDsSupport, fsReparsePointsSupport,
  37.                fsSparseFilesSupport, fsDiskQuotasSupport);
  38.   TFileFlags = set of TFileFlag;
  40.   TDiskInfo = record
  41.     Sign: TDiskSign;
  42.     MediaType: TMediaType;
  43.     FileFlags: TFileFlags;
  44.     SectorsPerCluster,
  45.     BytesPerSector,
  46.     FreeClusters,
  47.     TotalClusters,
  48.     Serial: DWORD;
  49.     Capacity,
  50.     FreeSpace: Int64;
  51.     VolumeLabel,
  52.     SerialNumber,
  53.     FileSystem: String;
  54.   end;
  56.   TObjectType = (otFile, otDirectory, otDisk);
  57.   TObjectTypes = set of TObjectType;
  59.   TFileAttr = (ftReadOnly, ftHidden, ftSystem, ftArchive, ftNormal);
  60.   TFileType = Set of TFileAttr;
  62.   TspSkinFileListView = class(TspSkinListView)
  63.   private
  64.     FDirectory: String;
  65.     FDirectorySize: integer;
  66.     FFileName: String;
  67.     FFileType: TFileType;
  68.     FMask: String;
  69.     FContextMenu: Boolean;
  70.     FSortColumn: integer;
  71.     FSortForward: boolean;
  72.     LImageList, SImageList: TImageList;
  73.     FContextAction: Boolean;
  74.     FSelectedFiles :tStringlist;
  75.     function GetSelectedNum: Integer;
  76.     function GetSelectedSize: Integer;
  77.     procedure Createimages;
  78.     procedure CompareFiles(Sender: TObject; Item1,Item2: TListItem; Data: Integer; var Compare: Integer);
  79.     procedure ColumnClick(Sender: TObject; Column: TListColumn);
  80.     procedure WMRButtonDown(var Message: TWMRButtonDown); message WM_RBUTTONDOWN;
  81.     procedure DoMouseDown(var Message: TWMMouse; Button: TMouseButton;
  82.       Shift: TShiftState);
  83.     function GetSelectedFilenames: String;
  84.     function GetObjectTypes: TObjectTypes;
  85.     function GetDiskCap: Int64;
  86.     function GetDiskFree: Int64;
  87.   protected
  88.     function AddFile(FileMask: String; Attr: DWORD): Boolean;
  89.     function GetFileName: String;
  90.     function GetDirectory: String;
  91.     procedure AddDrives;
  92.     procedure Click; override;
  93.     procedure DblClick; override;
  94.     procedure Keydown(var Key: Word; Shift: TShiftState); override;
  95.     procedure SetFileName(NewFile: String);
  96.     procedure SetDirectory(NewDir: String);
  97.     procedure SetFileType(NewFileType: TFileType);
  98.     procedure SetMask(const NewMasks: String);
  99.     function GetDiskInfo(Value: TDiskSign): TDiskInfo;
  100.   public
  101.     constructor Create(AOwner: TComponent); override;
  102.     destructor Destroy; override;
  103.     procedure CreateWnd; override;
  104.     procedure OneLevelUp;
  105.     procedure UpdateFileList;
  106.     property FileName: String read GetFileName write SetFileName;
  107.     property DiskCapacity: Int64 read GetDiskCap;
  108.     property DiskFree: Int64 read GetDiskFree;
  109.     function GetMediaTypeStr(MT: TMediaType): String;
  110.     function IsFile(Item: TListItem): Boolean;
  111.   published
  112.     property HScrollBar;
  113.     property VScrollBar;
  114.     property Directory: String read GetDirectory write SetDirectory;
  115.     property FileType: TFileType read FFileType write SetFileType;
  116.     property Mask: String read FMask write SetMask;
  117.     property ContextMenu: Boolean read FContextMenu write FContextMenu;
  118.     property ContextAction: Boolean read FContextAction write FContextAction;
  119.     property SelectedCount: Integer read GetSelectedNum;
  120.     property SelectedSize: Integer read GetSelectedSize;
  121.     property SelectedFilenames :String read GetSelectedFilenames;
  122.     property SelectedTypes :TObjectTypes read GetObjectTypes;
  123.     property Align;
  124.     property BorderStyle;
  125.     property Color;
  126. //    property Dragmode;
  127.     property DragCursor;
  128.     property Font;
  129.     property HideSelection;
  130.     property IconOptions;
  131.     property MultiSelect;
  132.     property ParentShowHint;
  133.     property ReadOnly;
  134.     property RowSelect;
  135.     property ShowColumnHeaders;
  136.     property ShowHint;
  137.     property TabOrder;
  138.     property TabStop;
  139.     property ViewStyle;
  140.     property Visible;
  141.     property OnChange;
  142.     property OnChanging;
  143.     property OnClick;
  144.     property OnColumnClick;
  145.     property OnCompare;
  146.     property OnDblClick;
  147.     property OnDeletion;
  148.     property OnDragDrop;
  149.     property OnDragOver;
  150.     property OnEdited;
  151.     property OnEditing;
  152.     property OnEndDrag;
  153.     property OnEnter;
  154.     property OnExit;
  155.     property OnInsert;
  156.     property OnKeyDown;
  157.     property OnKeyPress;
  158.     property OnKeyUp;
  159.     property OnMouseDown;
  160.     property OnMouseMove;
  161.     property OnMouseUp;
  162.     property OnStartDrag;
  163.   end;
  165.   TDirChangeEvent = procedure(Sender: TObject; SelectedPath: string) of object;
  167.   TspSkinDirTreeView = class(TspSkinCustomTreeView)
  168.   private
  169.     FPreviousPath: string;
  170.     FSelectedPath: string;
  171.     TreeViewPath: string;
  172.     FIsNewFolder: Boolean;
  173.     FInitialDir: String;
  174.     FisCutCopy: Boolean;
  175.     FOpMode: integer;
  176.     FSrcPath: string;
  177.     FDestPath: String;
  178.   protected
  179.     function GetDirectory: String;
  180.     procedure SetDirectory(Value: String);
  181.     procedure CreateWnd; override;
  182.     procedure Expanding(Sender: TObject; Node: TTreeNode;
  183.       var AllowExpansion: Boolean);
  184.     procedure LoadRoot;
  185.     procedure LoadDrives;
  186.     procedure Loaded; override;
  187.     procedure AddSubs(Path: string; Node: TTreeNode);
  188.     procedure MakePath(Node: TTreeNode);
  189.     procedure MouseDown(Button: TMouseButton;
  190.       Shift: TShiftState; X, Y: Integer); override;
  191.     procedure KeyUp(var Key: Word; Shift: TShiftState); override;
  192.     procedure SetInitialDir(Value: string);
  193.     procedure SetSelectedPath(Value: string);
  194.     function CanEdit(Node: TTreeNode): Boolean; override;
  195.     procedure Edit(const Item: TTVItem); override;
  196.     function GetPathFromNode(Node: TTreeNode): string;
  197.   public
  198.     constructor create(AOwner: TComponent); override;
  199.     destructor destroy; override;
  200.     property InitialDir: string read FInitialDir Write SetInitialDir;
  201.     procedure ReLoad;
  202.     procedure OpenPath(dPath: string);
  203.     function AddNewNode(ParentNode: TTreeNode; NodeName: string):
  204.       Boolean;
  205.     function DeleteNode(Node: TTreeNode): Boolean;
  206.     procedure CutOrCopyNode(Mode: integer);
  207.     procedure PasteNode;
  208.     property Images;
  209.     property Items;
  210.     property Directory: String read GetDirectory write SetDirectory;
  211.   published
  212.     property HScrollBar;
  213.     property VScrollBar;
  214.     property Align;
  215.     property BorderStyle;
  216.     property Color;
  217.     property DragCursor;
  218. //    property DragMode;
  219.     property Enabled;
  220.     property Font;
  221.     property Height;
  222.     property HelpContext;
  223.     property HideSelection;
  224.     property Hint;
  225.     property Indent;
  226.     property Left;
  227.     property Name;
  228.     property ParentColor;
  229.     property ParentFont;
  230.     property ParentShowHint;
  231.     property PopupMenu;
  232.     property ReadOnly;
  233.     property ShowButtons;
  234.     property ShowHint;
  235.     property ShowLines;
  236.     property ShowRoot;
  237.     property SortType;
  238.     property TabOrder;
  239.     property TabStop;
  240.     property Tag;
  241.     property Top;
  242.     property Visible;
  243.     property Width;
  244.     property OnClick;
  245.     property OnChange;
  246.     property OnCollapsed;
  247.     property OnCollapsing;
  248.     property OnDblClick;
  249.     property OnDeletion;
  250.     property OnDragDrop;
  251.     property OnDragOver;
  252.     property OnEdited;
  253.     property OnEditing;
  254.     property OnEndDrag;
  255.     property OnEnter;
  256.     property OnExit;
  257.     property OnExpanded;
  258.     property OnExpanding;
  259.     property OnKeyDown;
  260.     property OnKeyPress;
  261.     property OnKeyUp;
  262.     property OnMouseDown;
  263.     property OnMouseMove;
  264.     property OnMouseUp;
  265.     property OnStartDrag;
  266.     property Anchors;
  267.     property BiDiMode;
  268.     property Constraints;
  269.   end;
  271.   TspSkinShellDriveComboBox = class(TspSkinComboBox)
  272.   private
  273.     Drives: TStrings;
  274.     DriveItemIndex: Integer;
  275.     Images: TImagelist;
  276.     FDrive: Char;
  277.     FOnChange: TNotifyEvent;
  278.   protected
  279.     procedure CreateWnd; override;
  280.     procedure DrawItem(Cnvs: TCanvas; Index: Integer;
  281.       ItemWidth, ItemHeight: Integer; TextRect: TRect; State: TOwnerDrawState);
  282.     procedure BuildList; virtual;
  283.     procedure SetDrive(Value: Char);
  284.   public
  285.     constructor Create(AOwner: TComponent); override;
  286.     destructor Destroy; override;
  287.     procedure UpdateDrives;
  288.     procedure Change; override;
  289.   published
  290.     property Drive: Char read FDrive write SetDrive;
  291.     property OnChange: TNotifyEvent read FOnChange write FOnChange;
  292.   end;
  294.   { Dialogs }
  296.  TspSelDirDlgForm = class(TForm)
  297.   public
  298.     DSF: TspDynamicSkinForm;
  299.     DirTreeViewPanel, BottomPanel: TspSkinPanel;
  300.     DirTreeView: TspSkinDirTreeView;
  301.     VScrollBar, HScrollBar: TspSkinScrollBar;
  302.     OkButton, CancelButton: TspSkinButton;
  303.     constructor Create(AOwner: TComponent); override;
  304.   end;
  306.   TspSkinSelectDirectoryDialog = class(TComponent)
  307.   private
  308.     FSD: TspSkinData;
  309.     FCtrlFSD: TspSkinData;
  310.     FDefaultFont: TFont;
  311.     FTitle: String;
  312.     FDlgFrm: TspSelDirDlgForm;
  313.     FOnChange: TNotifyEvent;
  314.     FDirectory: String;
  315.     FAlphaBlend: Boolean;
  316.     FAlphaBlendValue: Byte;
  317.     FAlphaBlendAnimation: Boolean;
  318.     function GetTitle: string;
  319.     procedure SetTitle(const Value: string);
  320.     procedure SetDefaultFont(Value: TFont);
  321.   protected
  322.     procedure Notification(AComponent: TComponent;  Operation: TOperation); override;
  323.     procedure Change;
  324.   public
  325.     DialogWidth, DialogHeight: Integer;
  326.     constructor Create(AOwner: TComponent); override;
  327.     destructor Destroy; override;
  328.     function Execute: Boolean;
  329.   published
  330.     property AlphaBlend: Boolean read FAlphaBlend write FAlphaBlend;
  331.     property AlphaBlendValue: Byte read FAlphaBlendValue write FAlphaBlendValue;
  332.     property AlphaBlendAnimation: Boolean
  333.       read FAlphaBlendAnimation write FAlphaBlendAnimation;
  334.     property SkinData: TspSkinData read FSD write FSD;
  335.     property CtrlSkinData: TspSkinData read FCtrlFSD write FCtrlFSD;
  336.     property DefaultFont: TFont read FDefaultFont write SetDefaultFont;
  337.     property Title: string read GetTitle write SetTitle;
  338.     property Directory: String read FDirectory write FDirectory;
  339.   end;
  341.   TspOpenDlgForm = class(TForm)
  342.   private
  343.     FromFLV: Boolean;
  344.     FromFTV: Boolean;
  345.     FromDCB: Boolean;
  346.     SaveMode: Boolean;
  347.   public
  348.     FileName: String;
  349.     DSF: TspDynamicSkinForm;
  350.     DirTreeViewPanel: TspSkinExPanel;
  351.     FileListViewPanel,
  352.     BottomPanel: TspSkinPanel;
  353.     Splitter: TspSkinSplitter;
  354.     DTVHScrollBar, DTVVScrollBar,
  355.     FLVHScrollBar, FLVVScrollBar: TspSkinScrollBar;
  356.     DirTreeView: TspSkinDirTreeView;
  357.     FileListView: TspSkinFileListView;
  358.     FileNameEdit: TspSkinEdit;
  359.     FilterComboBox: TspSkinFilterComboBox;
  360.     OpenButton, CancelButton: TspSkinButton;
  361.     OpenFileLabel, FileTypeLabel: TspSkinStdLabel;
  362.     ToolPanel: TspSkinPanel;
  363.     ListToolButton, ReportToolButton,
  364.     IconToolButton, SmallIconToolButton, BackToolButton: TspSkinSpeedButton;
  365.     Bevel1, Bevel2, Bevel3: TspSkinBevel;
  366.     DriveBox: TspSkinShellDriveComboBox;
  367.     SortNameToolButton, SortSizeToolButton, SortDateToolButton: TspSkinSpeedButton;
  368.     constructor CreateEx(AOwner: TComponent; ASaveMode: Boolean);
  369.     procedure FLVChange(Sender: TObject; Item: TListItem; Change: TItemChange);
  370.     procedure DTVChange(Sender: TObject; Node: TTreeNode);
  371.     procedure FCBChange(Sender: TObject);
  372.     procedure DCBChange(Sender: TObject);
  373.     procedure ToolPanelOnResize(Sender: TObject);
  374.     procedure OpenButtonClick(Sender: TObject);
  375.     procedure FLVDBLClick(Sender: TObject);
  376.     procedure EditKeyPress(Sender: TObject; var Key: Char);
  378.     procedure ReportToolButtonClick(Sender: TObject);
  379.     procedure ListToolButtonClick(Sender: TObject);
  380.     procedure SmallIconToolButtonClick(Sender: TObject);
  381.     procedure IconToolButtonClick(Sender: TObject);
  382.     procedure BackToolButtonClick(Sender: TObject);
  384.     procedure SortNameToolButtonClick(Sender: TObject);
  385.     procedure SortSizeToolButtonClick(Sender: TObject);
  386.     procedure SortDateButtonClick(Sender: TObject);
  387.   end;
  389.   TspSkinOpenDialog = class(TComponent)
  390.   private
  391.     FSD: TspSkinData;
  392.     FCtrlFSD: TspSkinData;
  393.     FLVHeaderSkinDataName: String;
  394.     FDefaultFont: TFont;
  395.     FTitle: String;
  396.     FDlgFrm: TspOpenDlgForm;
  397.     FOnChange: TNotifyEvent;
  398.     FInitialDir: String;
  399.     FFilter: String;
  400.     FFileName: String;
  401.     FFilterIndex: Integer;
  402.     FAlphaBlend: Boolean;
  403.     FAlphaBlendValue: Byte;
  404.     FAlphaBlendAnimation: Boolean;
  405.     function GetTitle: string;
  406.     procedure SetTitle(const Value: string);
  407.     procedure SetDefaultFont(Value: TFont);
  408.   protected
  409.     FSaveMode: Boolean;
  410.     procedure Notification(AComponent: TComponent;  Operation: TOperation); override;
  411.     procedure Change;
  412.   public
  413.     TreePanelWidth: Integer;
  414.     TreePanelRollState: Boolean;
  415.     ListViewStyle: TViewStyle;
  416.     DialogWidth, DialogHeight: Integer;
  417.     constructor Create(AOwner: TComponent); override;
  418.     destructor Destroy; override;
  419.     function Execute: Boolean;
  420.   published
  421.     property AlphaBlend: Boolean read FAlphaBlend write FAlphaBlend;
  422.     property AlphaBlendValue: Byte read FAlphaBlendValue write FAlphaBlendValue;
  423.     property AlphaBlendAnimation: Boolean
  424.       read FAlphaBlendAnimation write FAlphaBlendAnimation;
  425.     property LVHeaderSkinDataName: String
  426.      read FLVHeaderSkinDataName write FLVHeaderSkinDataName;
  427.     property SkinData: TspSkinData read FSD write FSD;
  428.     property CtrlSkinData: TspSkinData read FCtrlFSD write FCtrlFSD;
  429.     property DefaultFont: TFont read FDefaultFont write SetDefaultFont;
  430.     property Title: string read GetTitle write SetTitle;
  431.     property InitialDir: String read FInitialDir write FInitialDir;
  432.     property Filter: String read FFilter write FFilter;
  433.     property FilterIndex: Integer read FFilterIndex write FFilterIndex;
  434.     property FileName: String read FFileName write FFileName;
  435.   end;
  437.   TspSkinSaveDialog = class(TspSkinOpenDialog)
  438.   public
  439.     constructor Create(AOwner: TComponent); override;
  440.   end;
  442.   TspSkinDirectoryEdit = class(TspSkinEdit)
  443.   protected
  444.     FDlgSkinData: TspSkinData;
  445.     FDlgCtrlSkinData: TspSkinData;
  446.     SD: TspSkinSelectDirectoryDialog;
  447.     procedure Notification(AComponent: TComponent;  Operation: TOperation); override;
  448.   public
  449.     constructor Create(AOwner: TComponent); override;
  450.     destructor Destroy; override;
  451.     procedure ButtonClick(Sender: TObject);
  452.   published
  453.     property DlgSkinData: TspSkinData read FDlgSkinData write FDlgSkinData;
  454.     property DlgCtrlSkinData: TspSkinData read FDlgCtrlSkinData write FDlgCtrlSkinData;
  455.   end;
  457.   TspSkinFileEdit = class(TspSkinEdit)
  458.   protected
  459.     FDlgSkinData: TspSkinData;
  460.     FDlgCtrlSkinData: TspSkinData;
  461.     OD: TspSkinOpenDialog;
  462.     FLVHeaderSkinDataName: String;
  463.     function GetFilter: String;
  464.     procedure SetFilter(Value: String);
  465.     procedure Notification(AComponent: TComponent;  Operation: TOperation); override;
  466.   public
  467.     constructor Create(AOwner: TComponent); override;
  468.     destructor Destroy; override;
  469.     procedure ButtonClick(Sender: TObject);
  470.   published
  471.     property Filter: String read GetFilter write SetFilter;
  472.     property DlgSkinData: TspSkinData read FDlgSkinData write FDlgSkinData;
  473.     property DlgCtrlSkinData: TspSkinData read FDlgCtrlSkinData write FDlgCtrlSkinData;
  474.     property LVHeaderSkinDataName: String
  475.       read FLVHeaderSkinDataName write FLVHeaderSkinDataName;
  476.   end;
  478.   TspSkinSaveFileEdit = class(TspSkinEdit)
  479.   protected
  480.     FDlgSkinData: TspSkinData;
  481.     FDlgCtrlSkinData: TspSkinData;
  482.     OD: TspSkinSaveDialog;
  483.     FLVHeaderSkinDataName: String;
  484.     function GetFilter: String;
  485.     procedure SetFilter(Value: String);
  486.     procedure Notification(AComponent: TComponent;  Operation: TOperation); override;
  487.   public
  488.     constructor Create(AOwner: TComponent); override;
  489.     destructor Destroy; override;
  490.     procedure ButtonClick(Sender: TObject);
  491.   published
  492.     property Filter: String read GetFilter write SetFilter;
  493.     property DlgSkinData: TspSkinData read FDlgSkinData write FDlgSkinData;
  494.     property DlgCtrlSkinData: TspSkinData read FDlgCtrlSkinData write FDlgCtrlSkinData;
  495.     property LVHeaderSkinDataName: String
  496.       read FLVHeaderSkinDataName write FLVHeaderSkinDataName;
  497.   end;
  499.   TspOpenPictureDlgForm = class(TForm)
  500.   private
  501.     FromFLV: Boolean;
  502.     FromFTV: Boolean;
  503.     FromDCB: Boolean;
  504.     SaveMode: Boolean;
  505.   public
  506.     FileName: String;
  507.     DSF: TspDynamicSkinForm;
  508.     DirTreeViewPanel: TspSkinExPanel;
  509.     FileListViewPanel,
  510.     BottomPanel: TspSkinPanel;
  511.     Splitter, Splitter2: TspSkinSplitter;
  512.     DTVHScrollBar, DTVVScrollBar,
  513.     FLVHScrollBar, FLVVScrollBar: TspSkinScrollBar;
  514.     DirTreeView: TspSkinDirTreeView;
  515.     FileListView: TspSkinFileListView;
  516.     FileNameEdit: TspSkinEdit;
  517.     FilterComboBox: TspSkinFilterComboBox;
  518.     OpenButton, CancelButton: TspSkinButton;
  519.     OpenFileLabel, FileTypeLabel: TspSkinStdLabel;
  520.     ToolPanel: TspSkinPanel;
  521.     ListToolButton, ReportToolButton,
  522.     IconToolButton, SmallIconToolButton, BackToolButton: TspSkinSpeedButton;
  523.     Bevel1, Bevel2, Bevel3: TspSkinBevel;
  524.     DriveBox: TspSkinShellDriveComboBox;
  525.     SortNameToolButton, SortSizeToolButton, SortDateToolButton: TspSkinSpeedButton;
  526.     //
  527.     ImagePanel: TspSkinPanel;
  528.     Image: TImage;
  529.     ScrollBox: TspSkinScrollBox;
  530.     SBVScrollBar, SBHScrollBar: TspSkinScrollBar;
  531.     Bevel4: TspSkinBevel;
  532.     StretchButton: TspSkinSpeedButton;
  533.     constructor CreateEx(AOwner: TComponent; ASaveMode: Boolean);
  534.     procedure DCBChange(Sender: TObject);
  535.     procedure FLVChange(Sender: TObject; Item: TListItem; Change: TItemChange);
  536.     procedure DTVChange(Sender: TObject; Node: TTreeNode);
  537.     procedure FCBChange(Sender: TObject);
  538.     procedure OpenButtonClick(Sender: TObject);
  539.     procedure ToolPanelOnResize(Sender: TObject);
  540.     procedure FLVDBLClick(Sender: TObject);
  541.     procedure EditKeyPress(Sender: TObject; var Key: Char);
  543.     procedure StretchButtonClick(Sender: TObject);
  544.     procedure ReportToolButtonClick(Sender: TObject);
  545.     procedure ListToolButtonClick(Sender: TObject);
  546.     procedure SmallIconToolButtonClick(Sender: TObject);
  547.     procedure IconToolButtonClick(Sender: TObject);
  548.     procedure BackToolButtonClick(Sender: TObject);
  550.     procedure SortNameToolButtonClick(Sender: TObject);
  551.     procedure SortSizeToolButtonClick(Sender: TObject);
  552.     procedure SortDateButtonClick(Sender: TObject);
  553.   end;
  555.   TspSkinOpenPictureDialog = class(TComponent)
  556.   private
  557.     FLVHeaderSkinDataName: String;
  558.     FAlphaBlend: Boolean;
  559.     FAlphaBlendValue: Byte;
  560.     FAlphaBlendAnimation: Boolean;
  561.     FSD: TspSkinData;
  562.     FCtrlFSD: TspSkinData;
  563.     FDefaultFont: TFont;
  564.     FTitle: String;
  565.     FDlgFrm: TspOpenPictureDlgForm;
  566.     FOnChange: TNotifyEvent;
  567.     FInitialDir: String;
  568.     FFilter: String;
  569.     FFileName: String;
  570.     FFilterIndex: Integer;
  571.     function GetTitle: string;
  572.     procedure SetTitle(const Value: string);
  573.     procedure SetDefaultFont(Value: TFont);
  574.   protected
  575.     FSaveMode: Boolean;
  576.     procedure Notification(AComponent: TComponent;  Operation: TOperation); override;
  577.     procedure Change;
  578.   public
  579.     ImagePanelWidth, TreePanelWidth: Integer;
  580.     TreePanelRollState: Boolean;
  581.     ListViewStyle: TViewStyle;
  582.     DialogWidth, DialogHeight: Integer;
  583.     DialogStretch: Boolean;
  584.     constructor Create(AOwner: TComponent); override;
  585.     destructor Destroy; override;
  586.     function Execute: Boolean;
  587.   published
  588.     property LVHeaderSkinDataName: String
  589.      read FLVHeaderSkinDataName write FLVHeaderSkinDataName;
  590.     property AlphaBlend: Boolean read FAlphaBlend write FAlphaBlend;
  591.     property AlphaBlendValue: Byte read FAlphaBlendValue write FAlphaBlendValue;
  592.     property AlphaBlendAnimation: Boolean
  593.       read FAlphaBlendAnimation write FAlphaBlendAnimation;
  594.     property SkinData: TspSkinData read FSD write FSD;
  595.     property CtrlSkinData: TspSkinData read FCtrlFSD write FCtrlFSD;
  596.     property DefaultFont: TFont read FDefaultFont write SetDefaultFont;
  597.     property Title: string read GetTitle write SetTitle;
  598.     property InitialDir: String read FInitialDir write FInitialDir;
  599.     property Filter: String read FFilter write FFilter;
  600.     property FilterIndex: Integer read FFilterIndex write FFilterIndex;
  601.     property FileName: String read FFileName write FFileName;
  602.   end;
  604.   TspSkinSavePictureDialog = class(TspSkinOpenPictureDialog)
  605.   public
  606.     constructor Create(AOwner: TComponent); override;
  607.   end;
  610. implementation
  612. {$R spSkinShellCtrls}
  614. const
  615.   DefaultMask = '*.*';
  617.   FILE_SUPPORTS_ENCRYPTION = 32;
  618.   FILE_SUPPORTS_OBJECT_IDS = 64;
  619.   FILE_SUPPORTS_REPARSE_POINTS = 128;
  620.   FILE_SUPPORTS_SPARSE_FILES = 256;
  621.   FILE_VOLUME_QUOTAS = 512;
  623.   SHGFI = SHGFI_SYSICONINDEX or SHGFI_SMALLICON;
  625. var
  626.   drives: set of 0..25;
  627.   CurPath: String;
  629. function GetMediaPresent(Value: TDiskSign) :Boolean;
  630. var
  631.   ErrorMode: Word;
  632.   bufRoot :pchar;
  633.   a,b,c,d :dword;
  634. begin
  635.   if (Value = 'A:') or (Value = 'B:')
  636.   then
  637.     begin
  638.       Result := False;
  639.       Exit;
  640.     end;
  641.   bufRoot:=stralloc(255);
  642.   strpcopy(bufRoot,Value+'');
  643.   ErrorMode:=SetErrorMode(SEM_FailCriticalErrors);
  644.   try
  645.     try
  646.       result:=GetDiskFreeSpace(bufRoot,a,b,c,d);
  647.     except
  648.       result:=False;
  649.     end;
  650.   finally
  651.     strdispose(bufroot);
  652.     SetErrorMode(ErrorMode);
  653.   end;
  654. end;
  656. constructor TspSkinFileListView.Create(AOwner: TComponent);
  657. begin
  658.  inherited Create(AOwner);
  659.  ReadOnly := True;
  660.  fselectedfiles:=tStringlist.create;
  661.  Createimages;
  662.  ShortDateFormat:='mm/dd/yyyy';
  663.  LongTimeFormat:='hh:nn';
  664.  FMask:=DefaultMask;
  665.  FSortForward:=True;
  666.  FSortColumn:=0;
  667.  OnCompare:=CompareFiles;
  668.  OnColumnClick:=ColumnClick;
  669.  if csdesigning in componentstate then
  670.    fdirectory:='c:';
  671. end;
  673. destructor TspSkinFileListView.Destroy;
  674. begin
  675.  LImageList.Free;
  676.  SImageList.Free;
  677.  fSelectedFiles.Free;
  678.  inherited Destroy;
  679. end;
  681. function TspSkinFileListView.IsFile;
  682. begin
  683.   Result := Item.SubItems[5]='file';
  684. end;
  686. function TspSkinFileListView.GetSelectedNum: Integer;
  687. begin
  688.   Result:=SelCount;
  689.   if Result=0 then
  690.     Result:=Items.Count;
  691. end;
  693. function TspSkinFileListView.GetSelectedSize: Integer;
  694. var
  695.   i, FSize: UInt;
  696.   FName: String;
  697.   FInfo: TWin32FindData;
  698.   hFindFile: THandle;
  699. begin
  700.   Result:=0;
  701.   FSize:=0;
  702.   hFindFile:=0;
  703.   if SelCount=0 then
  704.     exit;
  705.   for i:=0 to Items.Count-1 do begin
  706.     if Items[i].selected then begin
  707.       FName:=ExtractFileName(Items[i].SubItems[4]+#0);
  708.       hFindFile:=FindFirstFile(pChar(FName),FInfo);
  709.       if hFindFile<>INVALID_HANDLE_VALUE then
  710.         FSize:=FSize+((FInfo.nFileSizeHigh*MAXDWORD)+FInfo.nFileSizeLow);
  711.     end;
  712.   end;
  713.   Windows.FindClose(hFindFile);
  714.   Result:=FSize;
  715. end;
  717. function TspSkinFileListView.GetDirectory: String;
  718. begin
  719.   Result:=FDirectory;
  720. end;
  722. procedure TspSkinFileListView.SetDirectory(NewDir: String);
  723. begin
  724.   if AnsiCompareText(NewDir,FDirectory)=0 then
  725.     exit;
  726.   if (UpperCase(NewDir)='DRIVES') then begin
  727.     FDirectory:=NewDir;
  728.     UpdateFileList;
  729.   end else begin
  730.     if not DirectoryExists(NewDir) then
  731.       exit;
  732.     NewDir:=IncludeTrailingBackslash(NewDir);
  733.     SetCurrentDir(NewDir);
  734.     FDirectory:=NewDir;
  735.     UpdateFileList;
  736.   end;
  737. end;
  739. procedure TspSkinFileListView.SetMask(const NewMasks: String);
  740. begin
  741.   if FMask<>NewMasks then begin
  742.     FMask:=NewMasks;
  743.     UpdateFileList;
  744.   end;
  745. end;
  747. function TspSkinFileListView.GetFileName: String;
  748. begin
  749.   Result:=FFileName;
  750. end;
  752. procedure TspSkinFileListView.SetFileName(NewFile: String);
  753. begin
  754.   if FFileName <> NewFile then FFileName:=NewFile;
  755. end;
  757. procedure TspSkinFileListView.SetFileType(NewFileType: TFileType);
  758. begin
  759.   if NewFileType<>FFileType then begin
  760.     FFileType:=NewFileType;
  761.     UpdateFileList;
  762.   end;
  763. end;
  765. procedure TspSkinFileListView.Createimages;
  766. var
  767.   SysImageList: uint;
  768.   SFI: TSHFileInfo;
  769. begin
  770.   Largeimages:=TImageList.Create(self);
  771.   SysImageList:=SHGetFileInfo('',0,SFI,SizeOf(TSHFileInfo),SHGFI_SYSICONINDEX or SHGFI_LARGEICON);
  772.   if SysImageList<>0 then begin
  773.     Largeimages.Handle:=SysImageList;
  774.     Largeimages.ShareImages:=TRUE;
  775.   end;
  776.   Smallimages:=TImageList.Create(Self);
  777.   SysImageList:=SHGetFileInfo('',0,SFI,SizeOf(TSHFileInfo),SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
  778.   if SysImageList<>0 then begin
  779.     Smallimages.Handle:=SysImageList;
  780.     Smallimages.ShareImages:=TRUE;
  781.   end;
  782. end;
  784. procedure TspSkinFileListView.CreateWnd;
  785. begin
  786.   inherited;
  787.   Font.Size:=8;
  788.   Font.Name:='MS Sans Serif';
  789.   if Columns.Count=0 then begin
  790.     with Columns.Add do begin
  791.       Caption:='Name';
  792.       Width:=200;
  793.     end;
  794.     with Columns.Add do begin
  795.       Caption:='Size';
  796.       Width:=70;
  797.       Alignment:=taRightJustify;
  798.     end;
  799.     with Columns.Add do begin
  800.       Caption:='Type';
  801.       Width:=90;
  802.     end;
  803.     with Columns.Add do begin
  804.       Caption:='Modified';
  805.       Width:=100;
  806.     end;
  807.     with Columns.Add do begin
  808.       Caption:='Attributes';
  809.       width:=60;
  810.     end;
  811.     UpdateFileList;
  812.   end;
  813. end;
  815. procedure TspSkinFileListView.ColumnClick(Sender: TObject;
  816.   Column: TListColumn);
  817. var
  818.   required_column: integer;
  819. begin
  820.   required_column:=Column.Index;
  821.   if required_column=FSortColumn then
  822.     FSortForward:=not FSortForward
  823.   else begin
  824.     FSortColumn:=required_column;
  825.     FSortForward:=True;
  826.   end;
  827.   SortType:=stData;
  828.   SortType:=stNone;
  829. end;
  831. procedure TspSkinFileListView.CompareFiles(Sender: TObject; Item1,
  832. Item2: TListItem; Data: Integer; var Compare: Integer);
  833. var
  834.   s1,s2,Caption1, Caption2: String;
  835.   size1, size2: Double;
  836.   result: integer;
  837. begin
  838.   Result := 0;
  839.   if (UpperCase(FDirectory) = 'DRIVES') then Exit;
  840.   if (Item1.SubItems[0] = ' ') and (Item2.SubItems[0] <> ' ')
  841.   then
  842.     Result := -1
  843.   else
  844.   if (Item1.SubItems[0] <> ' ') and (Item2.SubItems[0] = ' ')
  845.   then
  846.     Result := 1
  847.   else
  848.   case FSortColumn of
  849.     0:
  850.       begin
  851.         Caption1 := AnsiUpperCase(Item1.Caption);
  852.         Caption2 := AnsiUpperCase(Item2.Caption);
  853.         if Caption1 > Caption2
  854.         then
  855.           Result := 1
  856.         else
  857.         if Caption1 < Caption2
  858.         then
  859.           Result := -1
  860.       end;
  861.     1:
  862.       begin
  863.         s1 := Item1.SubItems[0];
  864.         s2 := Item2.SubItems[0];
  865.         if (s1 = '') or (s1 = ' ') then s1 := '0';
  866.         if (s2 = '') or (s2 = ' ') then s2 := '0';
  867.         size1 := StrToFloat(s1);
  868.         size2 := StrToFloat(s2);
  869.         if size1 > size2
  870.         then Result := 1
  871.         else Result := -1;
  872.       end;
  873.     3:
  874.       begin
  875.         s1 := Item1.SubItems[2];
  876.         s2 := Item2.SubItems[2];
  877.         size1 := StrToDateTime(s1);
  878.         size2 := StrToDateTime(s2);
  879.         if size1 > size2
  880.         then Result := 1
  881.         else Result := -1;
  882.       end;
  884.   end;
  885.   if FSortForward then
  886.     Compare:= - result
  887.   else
  888.     Compare := result;
  889. end;
  892. procedure TspSkinFileListView.Keydown(var Key: Word; Shift: TShiftState);
  893. begin
  894.  if ((Shift=[ssCtrl]) and (key=vk_up)) or (key=vk_back) then
  895.    OneLevelUp
  896.  else
  897.    if (key=vk_return) and assigned(selected) then
  898.      DblClick;
  899.  inherited;
  900. end;
  902. procedure TspSkinFileListView.UpdateFileList;
  903. var
  904.   oldCur: TCursor;
  905.   MaskPtr: PChar;
  906.   AttrIndex: TFileAttr;
  907.   Ptr: PChar;
  908.   DirAttr, FileAttr: DWORD;
  909.   FName: String;
  910. const
  911.   dwFileAttr: array[TFileAttr] of DWord = (FILE_ATTRIBUTE_READONLY,
  912. FILE_ATTRIBUTE_HIDDEN, FILE_ATTRIBUTE_SYSTEM,
  913. FILE_ATTRIBUTE_ARCHIVE, FILE_ATTRIBUTE_NORMAL);
  914. begin
  915.   Items.beginUpdate;
  916.   Items.Clear;
  917.   OldCur:=Screen.Cursor;
  918.   Screen.Cursor:=crHourGlass;
  919.   FDirectorySize:=0;
  920.   try
  921.     if UpperCase(FDirectory)='DRIVES' then begin
  922.       Column[1].Caption:='Type';
  923.       Column[1].Width:=100;
  924.       Column[1].Alignment:=taLeftJustify;
  925.       Column[2].Caption:='Disk Size';
  926.       Column[2].Width:=100;
  927.       Column[2].Alignment:=taRightJustify;
  928.       Column[3].Caption:='Free Space';
  929.       Column[3].Width:=100;
  930.       Column[3].Alignment:=taRightJustify;
  931.       AddDrives;
  932.     end else begin
  933.       Column[1].Caption:='Size';
  934.       Column[1].Width:=70;
  935.       Column[1].Alignment:=taRightJustify;
  936.       Column[2].Caption:='Type';
  937.       Column[2].Width:=150;
  938.       Column[2].Alignment:=taLeftJustify;
  939.       Column[3].Caption:='Modified';
  940.       Column[3].Width:=110;
  941.       Column[3].Alignment:=taLeftJustify;
  942.       FileAttr:=0;
  943.       for AttrIndex:=ftReadOnly to ftNormal do
  944.      if AttrIndex in FileType then
  945.   FileAttr:=FileAttr or dwFileAttr[AttrIndex];
  946.       DirAttr := FileAttr or FILE_ATTRIBUTE_DIRECTORY;
  947.       CurPath := IncludeTrailingBackslash(FDirectory);
  948.       FName:=CurPath+ '*.*';
  949.       AddFile(FName, DirAttr);
  950.       MaskPtr:=PChar(FMask);
  951.       while MaskPtr<>nil do begin
  952.      Ptr:=StrScan(MaskPtr,';');
  953. if Ptr<>nil then
  954.   Ptr^:=#0;
  955.   AddFile((CurPath+StrPas(MaskPtr)),FileAttr);
  956.   if Ptr<>nil then begin
  957.          Ptr^:=';';
  958.     inc(Ptr);
  959.   end;
  960.   MaskPtr:=Ptr;
  961.        end;
  962.      end;
  963.   finally
  964.     FSortForward:=True;
  965.     if not (UpperCase(FDirectory)='DRIVES') then 
  966.       ColumnClick(Self,Columns[0]);
  967.   end;
  968.   Items.EndUpdate;
  969.   Screen.Cursor:=oldCur;
  970.   Application.ProcessMessages;
  971. end;
  973. procedure TspSkinFileListView.AddDrives;
  974. var
  975.   shInfo: TSHFileInfo;
  976.   NewItem: TListItem;
  977.   i: Integer;
  978.   Drv: String;
  979.   DI: TDiskInfo;
  980. begin
  981.   Integer(Drives):=GetLogicalDrives;
  982.   for i:=0 to 25 do
  983.     if (i in Drives) then begin
  984.       Drv:=Char(i+Ord('A'))+':';
  985.       NewItem:=Items.Add;
  986.       try
  987.         SHGetFileInfo(PChar(Drv+''),0,shInfo,SizeOf(shInfo),SHGFI_SYSICONINDEX or SHGFI_DISPLAYNAME or SHGFI_TYPENAME);
  988.      if SmallImages<>nil then
  989.         NewItem.ImageIndex:=shInfo.Iicon;
  990.         NewItem.Caption:=StrPas(shInfo.szDisplayName);
  991.         DI:=GetDiskInfo(TDiskSign(Drv));
  992.         NewItem.SubItems.Add(GetMediaTypeStr(DI.MediaType));
  993.         if (Drv <> 'A:') and (Drv <> 'B:')
  994.         then
  995.           begin
  996.             NewItem.SubItems.Add(FormatFloat('###,###,##0', DI.Capacity));
  997.             NewItem.SubItems.Add(FormatFloat('###,###,##0', DI.FreeSpace));
  998.           end
  999.         else
  1000.           begin
  1001.             NewItem.SubItems.Add('');
  1002.             NewItem.SubItems.Add('');
  1003.           end;  
  1004.         NewItem.SubItems.Add('');
  1005.         NewItem.SubItems.Add(Drv+'');
  1006.         NewItem.SubItems.Add('drv');
  1007.       except
  1008.         Items.Delete(NewItem.Index);
  1009.       end;
  1010.    end;
  1011. end;
  1013. function TspSkinFileListView.AddFile(FileMask: String; Attr: DWord): Boolean;
  1014. var
  1015.   ShInfo: TSHFileInfo;
  1016.   attributes: String;
  1017.   FDate, FName, FileName: String;
  1018.   FSize: Integer;
  1019.   FI: TSearchRec;
  1021.   function AttrStr(Attr: integer): String;
  1022.   begin
  1023.     Result:='';
  1024.     if (FILE_ATTRIBUTE_DIRECTORY and Attr)>0 then
  1025.       Result:=Result+'';
  1026.     if (FILE_ATTRIBUTE_ARCHIVE and Attr)>0 then
  1027.       Result:=Result+'A';
  1028.     if (FILE_ATTRIBUTE_READONLY and Attr)>0 then
  1029.       Result:=Result+'R';
  1030.     if (FILE_ATTRIBUTE_HIDDEN and Attr)>0 then
  1031.       Result:=Result+'H';
  1032.     if (FILE_ATTRIBUTE_SYSTEM and Attr)>0 then
  1033.       Result:=Result+'S';
  1034.   end;
  1036. begin
  1037.   Result := False;
  1038.   if not SetCurrentDir(FDirectory) then
  1039.     exit;
  1040.   if FindFirst(FileMask,faAnyFile,FI)=0 then
  1041.     try
  1042.       repeat
  1043.           if ((Attr and FILE_ATTRIBUTE_DIRECTORY)=(FI.Attr and FILE_ATTRIBUTE_DIRECTORY)){ and
  1044.              ((Attr and FILE_ATTRIBUTE_READONLY)>=(FI.Attr and FILE_ATTRIBUTE_READONLY)) and
  1045.              ((Attr and FILE_ATTRIBUTE_HIDDEN)>=(FI.Attr and FILE_ATTRIBUTE_HIDDEN)) and
  1046.              ((Attr and FILE_ATTRIBUTE_SYSTEM)>=(FI.Attr and FILE_ATTRIBUTE_SYSTEM))} then begin
  1047.             CurPath:=IncludeTrailingBackslash(FDirectory);
  1048.     FName:=FI.Name;
  1049.     FileName:=IncludeTrailingBackslash(FDirectory)+FName;
  1050.     if (FName='.') or (FName='..') then
  1051.               continue;
  1052.             SHGetFileInfo(PChar(FileName),0,ShInfo,SizeOf(ShInfo),SHGFI_TYPENAME or SHGFI_SYSICONINDEX or SHGFI_DISPLAYNAME);
  1053.             FSize:=FI.Size;
  1054.             FDate:=DateTimeToStr(FileDateToDateTime(FI.Time));
  1055.     Attributes:=AttrStr(FI.Attr);
  1056.     with Items.Add do begin
  1057.               Caption:=FName;
  1058.       if SmallImages<>nil then
  1059. ImageIndex:=ShInfo.iIcon;
  1060.               if (FI.Attr and FILE_ATTRIBUTE_DIRECTORY)=FILE_ATTRIBUTE_DIRECTORY then
  1061.          SubItems.Add(' ')
  1062.               else
  1063.                 SubItems.Add(Trim(IntToStr(FSize)));
  1064.               SubItems.Add((ShInfo.szTypeName));
  1065.       SubItems.Add(FDate);
  1066.       SubItems.Add(attributes);
  1067.       SubItems.Add(FileName);
  1068.       if (FI.Attr and FILE_ATTRIBUTE_DIRECTORY)=FILE_ATTRIBUTE_DIRECTORY then
  1069.                 SubItems.Add('dir')
  1070.       else
  1071.                 SubItems.Add('file');
  1072.     end;
  1073.             FDirectorySize:=FDirectorySize+FSize;
  1074.             Result:=True;
  1075.           end;
  1076.      until FindNext(FI)<>0;
  1077.   finally
  1078.     FindClose(FI);
  1079.   end;
  1080. end;
  1083. procedure TspSkinFileListView.OneLevelUp;
  1084. var
  1085.   NewDir: String;
  1086. begin
  1087.   if UpperCase(Directory)='DRIVES' then
  1088.     exit;
  1089.   FDirectory:=IncludeTrailingBackslash(FDirectory);
  1090.   if (FDirectory[Length(FDirectory)-1]=':') then
  1091.     SetDirectory('Drives')
  1092.   else begin
  1093.     FDirectory:=Copy(FDirectory,1,Length(FDirectory)-1);
  1094.     NewDir:=ExtractFilePath(FDirectory);
  1095.     SetDirectory(NewDir);
  1096.   end;
  1097. end;
  1099. procedure TspSkinFileListView.Click;
  1100. begin
  1101.   if (Selected <> nil) and (Selected.SubItems[5] = 'file')
  1102.   then
  1103.     SetFileName(Selected.SubItems[4])
  1104.   else
  1105.     SetFileName('');
  1106.   inherited;
  1107. end;
  1109. procedure TspSkinFileListView.DblClick;
  1110. var
  1111.   sDir: String;
  1112. begin
  1113.   inherited;
  1114.   if Selected=nil then
  1115.     exit;
  1116.   if (Selected.SubItems[5]='dir') or (Selected.SubItems[5]='drv') then begin
  1117.     sDir:=Selected.SubItems[4];
  1118.     sDir:=IncludeTrailingBackslash(sDir);
  1119.     SetDirectory(sDir);
  1120.   end;{ else
  1121.     if Selected.SubItems[5]='file' then
  1122.       if fcontextaction then
  1123.         PerformDefaultAction(filename, handle);}
  1124. end;
  1126. procedure TspSkinFileListView.WMRButtonDown(var Message: TWMRButtonDown);
  1127. begin
  1128.   DoMouseDown(Message, mbRight, []);
  1129. end;
  1131. procedure TspSkinFileListView.DoMouseDown(var Message: TWMMouse;
  1132.   Button: TMouseButton; Shift: TShiftState);
  1133. begin
  1134.   if not (csNoStdEvents in ControlStyle) then
  1135.     with Message do
  1136.       MouseDown(Button, KeysToShiftState(Keys) + Shift, XPos, YPos);
  1137. end;
  1139. function TspSkinFileListView.GetSelectedFilenames: String;
  1140. var
  1141.  i: integer;
  1142. begin
  1143.   Result := '';
  1144.   fselectedfiles.clear;
  1145.   if SelCount=0 then
  1146.     exit;
  1147.   for i:=0 to Items.Count-1 do
  1148.     if Items[i].selected then begin
  1149.       fselectedfiles.add(extractfilename(Items[i].SubItems[4]));
  1150.       result:=result+Items[i].SubItems[4]+';';
  1151.     end;
  1152.   Result:=copy(result,1,length(result)-1);
  1153. end;
  1155. function TspSkinFileListView.GetObjectTypes: TObjectTypes;
  1156. var
  1157.  i: integer;
  1158. begin
  1159.   Result:=[];
  1160.   fselectedfiles.clear;
  1161.   if SelCount=0 then
  1162.     exit;
  1163.   for i:=0 to Items.Count-1 do
  1164.     if Items[i].selected then begin
  1165.       if Items[i].SubItems[5]='file' then
  1166.         result:=result+[otfile]
  1167.       else
  1168.         if Items[i].SubItems[5]='dir' then
  1169.           result:=result+[otdirectory]
  1170.         else
  1171.           if Items[i].SubItems[5]='drv' then
  1172.             result:=result+[otdisk];
  1173.     end;
  1174. end;
  1176. function TspSkinFileListView.GetDiskCap: Int64;
  1177. begin
  1178.   Result:=GetDiskInfo(Copy(FDirectory,1,1)+':').Capacity;
  1179. end;
  1181. function TspSkinFileListView.GetDiskFree: Int64;
  1182. begin
  1183.   Result:=GetDiskInfo(Copy(FDirectory,1,1)+':').FreeSpace;
  1184. end;
  1186. function TspSkinFileListView.GetDiskInfo(Value: TDiskSign): TDiskInfo;
  1187. var
  1188.   BPS,TC,FC,SPC :integer;
  1189.   T,F :TLargeInteger;
  1190.   TF :PLargeInteger;
  1191.   bufRoot, bufVolumeLabel, bufFileSystem :pchar;
  1192.   MCL,Size,Flags :DWORD;
  1193.   s :String;
  1194. begin
  1195.   with Result do begin
  1196.     Sign:=Value;
  1197.     Size:=255;
  1198.     bufRoot:=AllocMem(Size);
  1199.     strpcopy(bufRoot,Value+'');
  1200.     case GetDriveType(bufRoot) of
  1201.       DRIVE_UNKNOWN     :MediaType:=dtUnknown;
  1202.       DRIVE_NO_ROOT_DIR :MediaType:=dtNotExists;
  1203.       DRIVE_REMOVABLE   :MediaType:=dtRemovable;
  1204.       DRIVE_FIXED       :MediaType:=dtFixed;
  1205.       DRIVE_REMOTE      :MediaType:=dtRemote;
  1206.       DRIVE_CDROM       :MediaType:=dtCDROM;
  1207.       DRIVE_RAMDISK     :MediaType:=dtRAMDisk;
  1208.     end;
  1209.     FileFlags:=[];
  1210.     if GetMediaPresent(Value) then begin
  1211.       GetDiskFreeSpace(bufRoot,SectorsPerCluster,BytesPerSector,FreeClusters,TotalClusters);
  1212.       try
  1213.         new(TF);
  1214.         SysUtils.GetDiskFreeSpaceEx(bufRoot,F,T,TF);
  1215.         Capacity:=T;
  1216.         FreeSpace:=F;
  1217.         dispose(TF);
  1218.       except
  1219.         BPS:=BytesPerSector;
  1220.         TC:=TotalClusters;
  1221.         FC:=FreeClusters;
  1222.         SPC:=SectorsPerCluster;
  1223.         Capacity:=TC*SPC*BPS;
  1224.         FreeSpace:=FC*SPC*BPS;
  1225.       end;
  1226.       bufVolumeLabel:=AllocMem(Size);
  1227.       bufFileSystem:=AllocMem(Size);
  1228.       if GetVolumeInformation(bufRoot,bufVolumeLabel,Size,@Serial,MCL,Flags,bufFileSystem,Size) then begin;
  1229.         VolumeLabel:=bufVolumeLabel;
  1230.         FileSystem:=bufFileSystem;
  1231.         s:=IntToHex(Serial,8);
  1232.         SerialNumber:=copy(s,1,4)+'-'+copy(s,5,4);
  1233.         FreeMem(bufVolumeLabel);
  1234.         FreeMem(bufFileSystem);
  1235.         FreeMem(bufRoot);
  1236.         if Flags and FS_CASE_SENSITIVE=FS_CASE_SENSITIVE then
  1237.           FileFlags:=FileFlags+[fsCaseSensitive];
  1238.         if Flags and FS_CASE_IS_PRESERVED=FS_CASE_IS_PRESERVED then
  1239.           FileFlags:=FileFlags+[fsCaseIsPreserved];
  1240.         if Flags and FS_UNICODE_STORED_ON_DISK=FS_UNICODE_STORED_ON_DISK then
  1241.           FileFlags:=FileFlags+[fsUnicodeStoredOnDisk];
  1242.         if Flags and FS_PERSISTENT_ACLS=FS_PERSISTENT_ACLS then
  1243.           FileFlags:=FileFlags+[fsPersistentAcls];
  1244.         if Flags and FS_VOL_IS_COMPRESSED=FS_VOL_IS_COMPRESSED then
  1245.           FileFlags:=FileFlags+[fsVolumeIsCompressed];
  1246.         if Flags and FS_FILE_COMPRESSION=FS_FILE_COMPRESSION then
  1247.           FileFlags:=FileFlags+[fsFileCompression];
  1248.         if MCL=255 then
  1249.           FileFlags:=FileFlags+[fsLongFileNames];
  1250.         if Flags and FILE_SUPPORTS_ENCRYPTION=FILE_SUPPORTS_ENCRYPTION then
  1251.           FileFlags:=FileFlags+[fsEncryptedFileSystemSupport];
  1252.         if Flags and FILE_SUPPORTS_OBJECT_IDS=FILE_SUPPORTS_OBJECT_IDS then
  1253.           FileFlags:=FileFlags+[fsObjectIDsSupport];
  1254.         if Flags and FILE_SUPPORTS_REPARSE_POINTS=FILE_SUPPORTS_REPARSE_POINTS then
  1255.           FileFlags:=FileFlags+[fsReparsePointsSupport];
  1256.         if Flags and FILE_SUPPORTS_SPARSE_FILES=FILE_SUPPORTS_SPARSE_FILES then
  1257.           FileFlags:=FileFlags+[fsSparseFilesSupport];
  1258.         if Flags and FILE_VOLUME_QUOTAS=FILE_VOLUME_QUOTAS then
  1259.           FileFlags:=FileFlags+[fsDiskQuotasSupport];
  1260.       end;
  1261.     end else begin
  1262.       SectorsPerCluster:=0;
  1263.       BytesPerSector:=0;
  1264.       FreeClusters:=0;
  1265.       TotalClusters:=0;
  1266.       Capacity:=0;
  1267.       FreeSpace:=0;
  1268.       VolumeLabel:='';
  1269.       SerialNumber:='';
  1270.       FileSystem:='';
  1271.       Serial:=0;
  1272.     end;
  1273.   end;
  1274. end;
  1276. function TspSkinFileListView.GetMediaTypeStr(MT: TMediaType): String;
  1277. begin
  1278.   case MT of
  1279.     dtUnknown     :result:='<unknown>';
  1280.     dtNotExists   :result:='<not exists>';
  1281.     dtRemovable   :result:='Removable';
  1282.     dtFixed       :result:='Fixed';
  1283.     dtRemote      :result:='Remote';
  1284.     dtCDROM       :result:='CDROM';
  1285.     dtRAMDisk     :result:='RAM';
  1286.   end;
  1287. end;
  1289. { ================================TspSkinDirTreeView ==============================}
  1290. const
  1291.   InvalidDOSChars = '*?/="<>|:,;+^';
  1292. var
  1293.   FileOpMode: array[0..3] of UInt =
  1294.     (FO_COPY, FO_DELETE, FO_MOVE, FO_RENAME);
  1295.   
  1296. function GetNormalIcon(Path: string): integer;
  1297. var
  1298.   sfi: TShFileInfo;
  1299. begin
  1300.   SHGetFileInfo(Pchar(Path), 0, sfi, SizeOf(TSHFileInfo),
  1301.     SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
  1302.   Result := sfi.iIcon;
  1303. end;
  1305. function GetSelectedIcon(Path: string): Integer;
  1306. var
  1307.   sfi: TShFileInfo;
  1308. begin
  1309.   SHGetFileInfo(Pchar(Path), 0, sfi, sizeOf(TSHFileInfo),
  1310.     SHGFI_SYSICONINDEX or SHGFI_SMALLICON or SHGFI_OPENICON);
  1311.   Result := sfi.iIcon;
  1312. end;
  1314. function DelSlash(Path: string): string;
  1315. begin
  1316.   Result := Path;
  1317.   if Path <> '' then
  1318.     if Path[Length(Path)] = '' then
  1319.       Delete(Result, Length(Path), 1);
  1320. end;
  1322. function AddSlash(Path: string): string;
  1323. begin
  1324.   if Path = '' then exit;
  1325.   if Path[Length(Path)] <> '' then
  1326.     Result := Path + ''
  1327.   else
  1328.     Result := Path;
  1329. end;
  1331. function DiskinDrive(Drive: Char; ShowMsg: word): Boolean;
  1332. var
  1333.   ErrorMode: word;
  1334. begin
  1335.   if Drive in ['a'..'z'] then
  1336.     Dec(Drive, $20);
  1337.   if not (Drive in ['A'..'Z']) then
  1338.     MessageDlg('Not a valid Drive ID', mtError, [mbOK], 0);
  1340.   ErrorMode := SetErrorMode(SEM_FailCriticalErrors);
  1341.   try
  1342.     if DiskSize(Ord(Drive) - $40) = -1 then
  1343.     begin
  1344.       if ShowMsg > 0 then
  1345.       begin
  1346.         MessageBeep(MB_IconHand);
  1347.         MessageDlg('There is no disk in Drive or Drive is not ready', mtWarning, [mbOK], 0);
  1348.       end;
  1349.       Result := False
  1350.     end
  1351.     else
  1352.       Result := True;
  1353.   finally
  1354.     SetErrorMode(ErrorMode);
  1355.   end;
  1356. end;
  1358. function AddNullToStr(Path: string): string;
  1359. begin
  1360.   if Path = '' then exit;
  1361.   if Path[Length(Path)] <> #0 then
  1362.     Result := Path + #0
  1363.   else
  1364.     Result := Path;
  1365. end;
  1367. function StrContains(Str1, Str2: string): Boolean;
  1368. var
  1369.   i: Integer;
  1370. begin
  1371.   for i := 1 to Length(Str1) do
  1372.     if Pos(Str1[i], Str2) <> 0 then
  1373.     begin
  1374.       Result := True;
  1375.       Exit;
  1376.     end;
  1377.   Result := False;
  1378. end; 
  1380. function DoSHFileOp(Handle: THandle; OpMode: UInt; Src: string;
  1381.   Dest: string; var Aborted: Boolean): Boolean;
  1382. var
  1383.   ipFileOp: TSHFileOpStruct;
  1384. begin
  1385.   Src := AddNullToStr(Src);
  1386.   Dest := AddNullToStr(Dest);
  1387.   FillChar(ipFileOp, SizeOf(ipFileOp), 0);
  1388.   with ipFileOp do
  1389.   begin
  1390.     wnd := GetActiveWindow;  
  1391.     wFunc := OpMode;
  1392.     pFrom := pChar(Src);
  1393.     pTo := pChar(Dest);
  1394.     fFlags := FOF_ALLOWUNDO;
  1395.     fAnyOperationsAborted := Aborted;
  1396.     hNameMappings := nil;
  1397.     lpszProgressTitle := '';
  1398.   end;
  1399.   Result := SHFileOperation(ipFileOp) = 0;
  1400.   if ipFileOp.fAnyOperationsAborted = True then
  1401.     Result := False;
  1402. end;
  1404. procedure TspSkinDirTreeView.CreateWnd;
  1405. begin
  1406.   inherited CreateWnd;
  1407.   if not (csLoading in ComponentState)
  1408.   then
  1409.     begin
  1410.       ReLoad;
  1411.       if Items.GetFirstNode <> nil then
  1412.       Items.GetFirstNode.Expand(False);
  1413.     end;  
  1414. end;
  1416. constructor TspSkinDirTreeView.Create;
  1417. var
  1418.   sfi: TShFileInfo;
  1419.   hImgLst: Uint;
  1420. begin
  1421.   inherited Create(AOwner);
  1422.   ReadOnly := True;
  1423.   Width := 180;
  1424.   Height := 120;
  1426.   Images := TImageList.Create(Self);
  1427.   hImgLst := SHGetFileInfo('', 0,
  1428.     sfi, SizeOf(sfi),
  1429.     SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
  1430.   if hImgLst <> 0 then
  1431.   begin
  1432.     Images.Handle := hImgLst;
  1433.     Images.ShareImages := True;
  1434.   end;
  1436.   OnExpanding := Expanding;
  1437.   SortType := stNone;
  1438.   HideSelection := False;
  1439.   FIsNewFolder := False;
  1440.   FisCutCopy := False;
  1441. end;
  1443. destructor TspSkinDirTreeView.Destroy;
  1444. var
  1445.   i: integer;
  1446. begin
  1447.   for i := Items.Count - 1 downto 0 do
  1448.     Items[i].Free;
  1449.   Images.Free;
  1450.   inherited Destroy;
  1451. end;
  1453. function TspSkinDirTreeView.GetDirectory: String;
  1454. begin
  1455.   Result := GetPathFromNode(Self.Selected);
  1456. end;
  1458. procedure TspSkinDirTreeView.SetDirectory(Value: String);
  1459. begin
  1460.   OpenPath(Value);
  1461. end;
  1463. procedure TspSkinDirTreeView.LoadRoot;
  1464. var
  1465.   Sfi: TSHFileInfo;
  1466.   Root: TTreenode;
  1467.   idRoot: PItemIDList;
  1468. begin
  1469.   Items.BeginUpdate;
  1470.   Items.Clear;
  1471.   if SHGetSpecialFolderLocation(Handle, CSIDL_DRIVES, idRoot) = NOERROR then
  1472.     if SHGetFileInfo(PChar(idRoot), 0, Sfi, SizeOf(TSHFileInfo), SHGFI_PIDL
  1473.       or
  1474.       SHGFI_SYSICONINDEX or SHGFI_SMALLICON or SHGFI_DISPLAYNAME) <> 0 then
  1475.     begin
  1476.       Root := items.AddFirst(nil, Sfi.szDisplayName);
  1477.       Root.ImageIndex := Sfi.iIcon;
  1478.       Root.SelectedIndex := Sfi.iIcon;
  1479.     end;
  1480.   Items.EndUpdate;
  1481. end; 
  1483. procedure TspSkinDirTreeView.LoadDrives;
  1484. var
  1485.   ADrive: integer;
  1486.   DriveLetter: char;
  1487.   DriveString: string;
  1488.   DrvName: string;
  1489.   Sfi: TSHFileInfo;
  1490. begin
  1491.   Items.BeginUpdate;
  1492.   Integer(Drives) := GetLogicalDrives;
  1493.   for ADrive := 0 to 25 do
  1494.   begin
  1495.     if ADrive in Drives then
  1496.     begin
  1497.       DriveLetter := Chr(ADrive + ord('A'));
  1498.       DriveString := DriveLetter + ':';
  1499.       SHGetFileInfo(PChar(DriveString), 0, Sfi, SizeOf(Sfi),
  1500.         SHGFI_DISPLAYNAME);
  1501.       DrvName := Copy(Sfi.szDisplayName, 1, (Pos('(', Sfi.szDisplayName) - 1));
  1502.       with Items do
  1503.       begin
  1504.         AddChild(Items[0], ' (' + DriveLetter + ':)  ' + DrvName);
  1505.         ShowButtons := True;
  1506.         Items[Count - 1].HasChildren := true;
  1507.         Items[Count - 1].ImageIndex := GetNormalIcon(DriveString);
  1508.         Items[Count - 1].SelectedIndex := GetSelectedIcon(DriveString);
  1509.       end;
  1510.     end;
  1511.   end;
  1512.   Items.EndUpdate;
  1513. end; 
  1515. procedure TspSkinDirTreeView.MakePath(Node: TTreeNode);
  1517.   procedure MakeSubPath;
  1518.   begin
  1519.     if Node.Level = 1 then
  1520.       TreeViewPath := Copy(Node.Text, 3, 2) + '' + TreeViewPath
  1521.     else if Node.Level > 1 then
  1522.       if TreeViewPath = '' then
  1523.         TreeViewPath := Node.Text
  1524.       else
  1525.         TreeViewPath := Node.Text + '' + TreeViewPath;
  1526.   end;
  1528. begin
  1529.   TreeViewPath := '';
  1530.   MakeSubPath;
  1531.   while Node.Parent <> nil do
  1532.   begin
  1533.     Node := Node.Parent;
  1534.     MakeSubPath;
  1535.   end;
  1536. end;
  1538. procedure TspSkinDirTreeView.AddSubs(Path: string; Node: TTreeNode);
  1539. var
  1540.   ANode: TTreeNode;
  1541.   APath: string;
  1542.   hFindFile: THandle;
  1543.   Win32FD: TWin32FindData;
  1545.   function IsDirectory(dWin32FD: TWin32FindData): Boolean;
  1546.   var
  1547.     FName: string;
  1548.   begin
  1549.     FName := StrPas(dWin32FD.cFileName);
  1550.     with dWin32FD do
  1551.       Result := (dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY =
  1552.         FILE_ATTRIBUTE_DIRECTORY) and (FName <> '.') and (FName <> '..');
  1553.   end; 
  1555.   function HasSubs(sPath: string): Boolean;
  1556.   var
  1557.     sAPath: string;
  1558.     shFindFile: THandle;
  1559.     sWin32FD: TWin32FindData;
  1560.   begin
  1561.     Result := False;
  1562.     sAPath := sPath;
  1563.     sAPath := AddSlash(sAPath);
  1564.     shFindFile := FindFirstFile(PChar(sAPath + '*.*'), sWin32FD);
  1565.     if shFindFile <> INVALID_HANDLE_VALUE then
  1566.     try
  1567.       repeat
  1568.         if IsDirectory(sWin32FD) then
  1569.         begin
  1570.           Result := True;
  1571.           Break;
  1572.         end;
  1573.       until not FindNextFile(shFindFile, sWin32FD);
  1574.     finally
  1575.       Windows.FindClose(shFindFile);
  1576.     end;
  1577.   end; 
  1579. begin
  1580.   APath := Path;
  1581.   APath := AddSlash(APath);
  1582.   hFindFile := FindFirstFile(PChar(APath + '*.*'), Win32FD);
  1583.   if hFindFile <> INVALID_HANDLE_VALUE then
  1584.   try
  1585.     repeat
  1586.       if IsDirectory(Win32FD) then
  1587.       begin
  1588.         ANode := Items.AddChild(Node, Win32FD.cFileName);
  1589.         ANode.HasChildren := HasSubs(APath + Win32FD.cFileName);
  1590.         ANode.ImageIndex := GetNormalIcon(APath + Win32FD.cFileName);
  1591.         ANode.SelectedIndex := GetSelectedIcon(APath + Win32FD.cFileName);
  1592.       end;
  1593.     until not FindNextFile(hFindFile, Win32FD);
  1594.   finally
  1595.     Windows.FindClose(hFindFile);
  1596.   end;
  1597. end; 
  1599. procedure TspSkinDirTreeView.ReLoad;
  1600. begin
  1601.   Items.BeginUpdate;
  1602.   Items.Clear;
  1603.   LoadRoot;
  1604.   LoadDrives;
  1605.   Items.EndUpdate;
  1606. end; 
  1608. procedure TspSkinDirTreeView.Loaded;
  1609. begin
  1610.   inherited Loaded;
  1611.   Reload;
  1612.   if Items.GetFirstNode <> nil then
  1613.     Items.GetFirstNode.Expand(False);
  1614. end; 
  1616. procedure TspSkinDirTreeView.Expanding(Sender: TObject; Node: TTreeNode;
  1617.   var AllowExpansion: Boolean);
  1618. var
  1619.   OldCursor: TCursor;
  1620. begin
  1621.   if Node.GetFirstChild = nil then
  1622.   begin
  1623.     OldCursor := Screen.Cursor;
  1624.     Screen.Cursor := crHourGlass;
  1625.     try
  1626.       MakePath(Node);
  1627.       Node.HasChildren := false;
  1628.       AddSubs(TreeViewPath, Node);
  1629.       Node.AlphaSort;
  1630.     finally
  1631.       Screen.Cursor := OldCursor;
  1632.     end;
  1633.   end;
  1634. end;
  1636. procedure TspSkinDirTreeView.MouseDown(Button: TMouseButton;
  1637.   Shift: TShiftState; X, Y: Integer);
  1638. var
  1639.   vHitTest: THitTests;
  1640.   DrvChar: Char;
  1641. begin
  1642.   inherited MouseDown(button, shift, x, y);
  1644.   TreeViewPath := '';
  1645.   FPreviousPath := FSelectedPath;
  1646.   vHitTest := GetHitTestInfoAt(X, Y);
  1647.   if (htOnItem in vHitTest) or (htOnIcon in vHitTest) or
  1648.      (htOnButton in vHitTest) then
  1649.   begin
  1650.     Selected := GetNodeAt(X, Y);
  1651.     if (Selected.Level = 0) and (Items[0].getFirstChild = nil) then
  1652.       LoadDrives
  1653.     else
  1654.       MakePath(Selected);
  1656.     if Selected = Items[0] then
  1657.       FSelectedPath := 'Drives'
  1658.     else
  1659.       FSelectedPath := TreeViewPath;
  1661.     if Selected.Level = 1 then
  1662.       if GetDriveType(PChar(FSelectedPath)) in
  1663.            [DRIVE_REMOVABLE, DRIVE_CDROM] then
  1664.       begin
  1665.         DrvChar := FSelectedPath[1];
  1666.         if not DiskInDrive(DrvChar, 1) then
  1667.         begin
  1668.           OpenPath(FPreviousPath);
  1669.           exit;
  1670.         end;
  1671.       end;
  1672.     FPreviousPath := FSelectedPath;
  1673.   end;
  1674. end;
  1676. procedure TspSkinDirTreeView.SetSelectedPath(Value: string);
  1677. begin
  1678.   if AnsiCompareText(Value, FSelectedPath) = 0 then
  1679.     exit;
  1680.   FSelectedPath := Value;
  1681. end;
  1683. procedure TspSkinDirTreeView.SetInitialDir(Value: string);
  1684. begin
  1685.   if (Value = '') or (AnsiCompareText(Value, FInitialDir) = 0)  then
  1686.     exit;
  1687.   Value := AddSlash(Value);
  1688.   if (not DirectoryExists(Value)) then
  1689.     exit
  1690.   else begin
  1691.     FInitialDir := Value;
  1692.     OpenPath(FInitialDir);
  1693.   end;
  1694. end;
  1696. procedure TspSkinDirTreeView.OpenPath(dPath: string);
  1697. var
  1698.   CurNode: TTreeNode;
  1699.   count: Integer;
  1700.   TempPath: string;
  1701.   CurPath: string;
  1702.   FullPath: string;
  1703. begin
  1704.   if (dPath = '') or (Length(dPath) = 1) then exit;
  1705.   if not DirectoryExists(dPath) then exit;
  1706.   dPath := AddSlash(dPath);
  1707.   FullPath := dPath;
  1708.   Items.BeginUpdate;
  1709.   CurNode := Items.GetFirstNode;  //70
  1710.   if CurNode.getFirstChild = nil then
  1711.     LoadDrives;
  1712.  {if CurNode.Expanded then
  1713.      CurNode.Collapse(True);}
  1714.   CurNode := Items.GetFirstNode;
  1715.   while Pos('', dPath) > 0 do
  1716.   begin
  1717.     count := Pos('', dPath);
  1718.     tempPath := Copy(dPath, 1, count);
  1719.     dPath := Copy(dPath, count + 1, Length(dPath));
  1720.     CurNode := CurNode.getFirstChild;
  1722.     while CurNode <> nil do
  1723.     begin
  1724.       if CurNode.Level = 1 then
  1725.         CurPath := Copy(CurNode.Text, 3, 2) + ''
  1726.       else if CurNode.Level > 1 then
  1727.         CurPath := CurNode.Text + '';
  1728.       if AnsiCompareText(CurPath, tempPath) = 0 then
  1729.       begin
  1730.         CurNode.Selected := True;
  1731.         CurNode.Expand(False);
  1732.         Break;
  1733.       end;
  1734.       CurNode := CurNode.GetNext;
  1735.       if CurNode = nil then exit;
  1736.     end;
  1737.   end;
  1738.   Items.EndUpdate;
  1739.   if AnsiCompareText(FSelectedPath, FullPath) <> 0 then
  1740.   begin
  1741.     FullPath := AddSlash(FullPath);
  1742.     FSelectedPath := FullPath;
  1743.   end;
  1744. end;
  1746. procedure TspSkinDirTreeView.KeyUp(var Key: Word; Shift: TShiftState);
  1747. var
  1748.   DrvChar: Char;
  1749. begin
  1750.   if (Key = VK_UP) or (Key = VK_DOWN) or (Key = VK_LEFT) or (Key = VK_RIGHT) then
  1751.   begin
  1752.     inherited KeyUp(Key, Shift);
  1754.     if selected = nil then exit;
  1755.     if (Selected.Level = 0) and (Items[0].getFirstChild = nil) then
  1756.       LoadDrives
  1757.     else
  1758.       MakePath(Selected);
  1760.     if (Selected.Level = 0) then
  1761.       FSelectedPath := 'Drives'
  1762.     else
  1763.       FSelectedPath := TreeViewPath;
  1765.     if Selected.Level = 1 then
  1766.       if GetDriveType(PChar(FSelectedPath)) in
  1767.         [DRIVE_REMOVABLE, DRIVE_CDROM] then
  1768.       begin
  1769.         DrvChar := FSelectedPath[1];
  1770.         if not DiskInDrive(DrvChar, 1) then
  1771.           exit;
  1772.       end;
  1773.   end;
  1774.   if Key=VK_F5 then
  1775.   begin
  1776.     Reload;
  1777.     OpenPath(FSelectedPath);
  1778.   end;
  1779. end;
  1781. function TspSkinDirTreeView.GetPathFromNode(Node: TTreeNode): string;
  1782. begin
  1783.   Result := '';
  1784.   if Node = nil then exit;
  1785.   if Assigned(Node) then
  1786.   begin
  1787.     MakePath(Node);
  1788.     Result := TreeViewPath;
  1789.   end;
  1790. end;
  1792. function TspSkinDirTreeView.CanEdit(Node: TTreeNode): Boolean;
  1793. begin
  1794.   Result := False;
  1795.   if (Assigned(Node.Parent)) and (Node.Level > 1) and
  1796.     (not ReadOnly) then
  1797.     Result := inherited CanEdit(Node);
  1798. end;
  1800. procedure TspSkinDirTreeView.Edit(const Item: TTVItem);
  1801. var
  1802.   OldDirName: string;
  1803.   NewDirName: string;
  1804.   Aborted: Boolean;
  1805.   OldCur: TCursor;
  1806.   Rslt: Boolean;
  1807.   SelNode: TTreeNode;
  1808.   PrevNode: TTreeNode;
  1810.   function GetNodeFromItem(Item: TTVItem): TTreeNode;
  1811.   begin
  1812.     with Item do
  1813.       if (State and TVIF_PARAM) <> 0 then
  1814.         Result := Pointer(lParam)
  1815.       else
  1816.         Result := Items.GetNode(hItem);
  1817.   end;
  1819. begin
  1820.   SelNode := GetNodeFromItem(Item);
  1821.   PrevNode := SelNode.Parent;
  1822.   if not Assigned(SelNode) then exit;
  1823.   if (SelNode = Items[0]) or (SelNode.Level = 1) then
  1824.     exit;
  1826.   if (Length(Item.pszText) = 0)
  1827.     or (StrContains(InvalidDosChars, Item.pszText)) then
  1828.   begin
  1829.     MessageBeep(MB_ICONHAND);
  1830.     if (Length(Item.pszText) > 0) then Exit;
  1831.   end;
  1832.   if SelNode <> nil then
  1833.     OldDirName := GetPathFromNode(SelNode);
  1834.   if OldDirName = '' then exit;
  1835.   OldCur := Screen.Cursor;
  1836.   Screen.Cursor := crHourGlass;
  1837.   try
  1838.     Aborted := False;
  1839.     OldDirName := DelSlash(OldDirName);
  1840.     NewDirName := ExtractFilePath(OldDirName) + Item.pszText;
  1842.     if (OldDirName <> NewDirName) and (Item.pszText <> nil)
  1843.     then
  1844.       Rslt := DoSHFileOp(Parent.Handle, FO_RENAME, OldDirName,
  1845.       NewDirName, Aborted);
  1847.     if Rslt then
  1848.     begin
  1849.       inherited Edit(Item);
  1850.       Selected := PrevNode;
  1851.     end;
  1852.   finally
  1853.     Screen.Cursor := OldCur;
  1854.     FIsNewFolder := False;
  1855.   end;
  1856. end;
  1858. function TspSkinDirTreeView.AddNewNode(ParentNode: TTreeNode;
  1859.   NodeName: string): Boolean;
  1860. var
  1861.   Path: string;
  1862.   Dir: string;
  1863.   NewNode: TTreeNode;
  1864. begin
  1865.   Result := False;
  1866.   if ParentNode = nil then
  1867.     ParentNode := Selected;
  1868.   if ParentNode.Level = 0 then
  1869.   begin
  1870.     MessageDlg('Can''t add drives', mtError, [mbOK], 0);
  1871.     exit;
  1872.   end;
  1874.   if NodeName = '' then
  1875.   begin
  1876.     NodeName := 'New Folder';
  1877.     FIsNewFolder := True;
  1878.   end;
  1879.   try
  1880.     Path := GetPathFromNode(ParentNode);
  1881.     if Path = '' then exit;
  1882.     Path := AddSlash(Path);
  1883.     Dir := Path + NodeName;
  1885.     if StrContains(InvalidDosChars, NodeName) then
  1886.     begin
  1887.       MessageBeep(MB_ICONHAND);
  1888.       MessageDlg('Folder Name contains invalid characters', mtError, [mbOK], 0);
  1889.       exit;
  1890.     end;
  1891.     Items.BeginUpdate;
  1893.     Result := CreateDirectory(PChar(Dir), nil);
  1895.     if Result then
  1896.     begin
  1897.       ReLoad;
  1898.       Dir := AddSlash(Dir);
  1899.       OpenPath(Dir);
  1900.       NewNode := Selected;
  1901.       if (NewNode <> nil) and (NodeName = 'New Folder') then
  1902.         NewNode.EditText;
  1903.     end;
  1904.   finally
  1905.     Items.EndUpdate;
  1906.   end;
  1907. end; {AddNewNode}
  1910. function TspSkinDirTreeView.DeleteNode(Node: TTreeNode): Boolean;
  1911. var
  1912.   DelDir: string;
  1913.   DelPath: string;
  1914.   PrevNode: TTreeNode;
  1915.   oldCur: TCursor;
  1916.   Aborted: Boolean;
  1917. begin
  1918.   Result := False;
  1919.   Aborted := True;
  1920.   PrevNode := Node.Parent;
  1921.   if (Assigned(Node)) and (Node.Level > 1) then
  1922.   begin
  1923.     oldCur := Screen.Cursor;
  1924.     Screen.Cursor := crHourGlass;
  1925.     if Selected <> nil then
  1926.       DelDir := GetPathFromNode(Selected);
  1927.     if DelDir = '' then exit;
  1928.     if not DirectoryExists(Deldir) then
  1929.     begin
  1930.       MessageBeep(MB_ICONHAND);
  1931.       MessageDlg(DelDir + 'not found', mtError, [mbOK], 0);
  1932.       Screen.Cursor := oldCur;
  1933.       exit;
  1934.     end;
  1935.     DelDir := DelSlash(Deldir);
  1936.     DelPath := ExtractFilePath(DelDir);
  1937.     Result := DoSHFileOp(Parent.Handle, FO_DELETE, DelDir, '', Aborted);
  1938.     if Result then
  1939.     begin
  1940.       if Assigned(PrevNode) then
  1941.         Selected := PrevNode;
  1942.       Node.Delete;
  1943.     end;
  1944.     Screen.Cursor := oldCur;
  1945.   end;
  1946. end;
  1948. procedure TspSkinDirTreeView.CutOrCopyNode(Mode: integer); 
  1949. begin
  1950.   FOpMode := -1;
  1951.   if (Selected = nil) or (FSelectedPath = '') then
  1952.     exit;
  1953.   FSrcPath := FSelectedPath;
  1954.   FOpMode := Mode;
  1955.   FisCutCopy := True;
  1956. end;
  1958. procedure TspSkinDirTreeView.PasteNode;  //86 >>
  1959. var
  1960.   Abort: Boolean;
  1961. begin
  1962.   if (Selected = nil) or (FSelectedPath = '') or
  1963.     (FSrcPath = '') then
  1964.   begin
  1965.     FisCutCopy := False;
  1966.     exit;
  1967.   end;
  1968.   Abort := False;
  1969.   FDestPath := AddSlash(FSelectedPath);
  1970.   if DoSHFileOp(Parent.Handle, FileOpMode[FOpMode], FSrcPath, FDestPath, Abort) then
  1971.   begin
  1972.     Reload;
  1973.     OpenPath(FDestPath)
  1974.   end else
  1975.     MessageDlg('File operation failed', mtError, [mbOK], 0);
  1976.   FisCutCopy := False;
  1977. end;
  1979. constructor TspSkinShellDriveComboBox.Create(AOwner: TComponent);
  1980. begin
  1981.   inherited Create(AOwner);
  1982.   Style := spcbFixedStyle;
  1983.   OnListBoxDrawItem := DrawItem;
  1984.   OnComboBoxDrawItem := DrawItem;
  1985.   Drives := TStringList.Create;
  1986.   Images := TImagelist.CreateSize(GetSystemMetrics(SM_CXSMICON), GetSystemMetrics(SM_CYSMICON));
  1987.   with Images do
  1988.   begin
  1989.     DrawingStyle := dsTransparent;
  1990.     ShareImages := True;
  1991.   end;
  1992. end;
  1994. destructor TspSkinShellDriveComboBox.Destroy;
  1995. begin
  1996.   Drives.Free;
  1997.   Images.Free;
  1998.   inherited Destroy;
  1999. end;
  2001. procedure TspSkinShellDriveComboBox.BuildList;
  2002. var
  2003.   Info      : TSHFileInfo;
  2004.   DriveChar : Char;
  2005.   CurrDrive : string;
  2006.   DriveType:Integer;
  2007. begin
  2008.   if Items.Count > 0
  2009.   then
  2010.     begin
  2011.       if ItemIndex > -1 then DriveItemIndex := ItemIndex;
  2012.       Items.Clear;
  2013.     end;
  2014.   Images.Handle := SHGetFileInfo('', 0, Info, SizeOf(TShFileInfo), SHGFI);
  2015.   for DriveChar:='A' to 'Z' do
  2016.   begin
  2017.     CurrDrive := DriveChar + ':';
  2018.     DriveType := GetDriveType(PChar(CurrDrive));
  2019.     if DriveType in [0,1] then Continue;
  2020.     SHGetFileInfo(PChar(CurrDrive), 0, Info, SizeOf(TShFileInfo), SHGFI_DISPLAYNAME or SHGFI);
  2021.     Items.AddObject(Info.szDisplayName, TObject(Info.iIcon));
  2022.     Drives.Add(DriveChar);
  2023.   end;
  2024.   SetDrive(Drives[DriveItemIndex][1]);
  2025.   Update;
  2026. end;
  2028. procedure TspSkinShellDriveComboBox.CreateWnd;
  2029. begin
  2030.   inherited CreateWnd;
  2031.   BuildList;
  2032. end;
  2034. procedure TspSkinShellDriveComboBox.DrawItem;
  2035. var
  2036.   ImageTop: Integer;
  2037. begin
  2038.   if Images.Count > 0
  2039.   then
  2040.     begin
  2041.       ImageTop := TextRect.Top + ((TextRect.Bottom - TextRect.Top - Images.Height) div 2);
  2042.       Images.Draw(Cnvs, TextRect.Left, ImageTop, Integer(Items.Objects[Index]));
  2043.       TextRect.Left := TextRect.Left + Images.Width + 4;
  2044.     end;
  2045.   Cnvs.TextOut(TextRect.Left,
  2046.   TextRect.Top + (TextRect.Bottom - TextRect.Top) div 2 - Cnvs.TextHeight('Wg') div 2,
  2047.   Items[Index]);
  2048. end;
  2050. procedure TspSkinShellDriveComboBox.SetDrive(Value: Char);
  2051. var
  2052.   i: Integer;
  2053.   j: Integer;
  2054. begin
  2055.   j := 0;
  2056.   if DriveItemIndex <> -1 then j := DriveItemIndex;
  2057.   Value := UpCase(Value);
  2058.   if FDrive <> Value
  2059.   then
  2060.     begin
  2061.       for i := 0 to Items.Count - 1 do
  2062.          if Drives[i][1] = Value
  2063.          then
  2064.            begin
  2065.              FDrive := Value;
  2066.              DriveItemIndex := i;
  2067.              ItemIndex := i;
  2068.              Exit;
  2069.            end;
  2070.     end
  2071.   else
  2072.     if ItemIndex <> j then ItemIndex := j;
  2073. end;
  2075. procedure TspSkinShellDriveComboBox.Change;
  2076. begin
  2077.   if ItemIndex <> -1 then DriveItemIndex := ItemIndex;
  2078.   SetDrive(Drives[DriveItemIndex][1]);
  2079.   if Assigned(FOnChange) then FOnChange(Self);
  2080. end;
  2082. procedure TspSkinShellDriveComboBox.UpdateDrives;
  2083. var
  2084.   Info : TSHFileInfo;
  2085. begin
  2086.   if Assigned(Images) then Images.Free;
  2087.   Images := TImagelist.CreateSize(GetSystemMetrics(SM_CXSMICON), GetSystemMetrics(SM_CYSMICON));
  2088.   with Images do
  2089.   begin
  2090.     DrawingStyle := dsTransparent;
  2091.     ShareImages := True;
  2092.   end;
  2093.   Images.Handle := SHGetFileInfo('', 0, Info, SizeOf(TShFileInfo), SHGFI);
  2094.   BuildList;
  2095. end;
  2098. constructor TspSelDirDlgForm.Create(AOwner: TComponent);
  2099. begin
  2100.   inherited CreateNew(AOwner);
  2101.   KeyPreview := True;
  2102. //  BorderStyle := bsDialog;
  2103.   Position := poScreenCenter;
  2104.   DSF := TspDynamicSkinForm.Create(Self);
  2105.   DirTreeViewPanel := TspSkinPanel.Create(Self);
  2107.   with DirTreeViewPanel do
  2108.   begin
  2109.     Parent := Self;
  2110.     Align := alClient;
  2111.     BorderStyle := bvFrame;
  2112.     Height := 200;
  2113.   end;
  2115.   VScrollBar := TspSkinScrollBar.Create(Self);
  2116.   with VScrollBar do
  2117.   begin
  2118.     Kind := sbVertical;
  2119.     Parent := DirTreeViewPanel;
  2120.     Align := alRight;
  2121.     DefaultWidth := 19;
  2122.     Enabled := False;
  2123.     SkinDataName := 'vscrollbar';
  2124.   end;
  2125.   HScrollBar := TspSkinScrollBar.Create(Self);
  2126.   with HScrollBar do
  2127.   begin
  2128.     Parent := DirTreeViewPanel;
  2129.     Align := alBottom;
  2130.     DefaultHeight := 19;
  2131.     Enabled := False;
  2132.     BothMarkerWidth := 19;
  2133.     SkinDataName := 'hscrollbar';
  2134.   end;
  2136.   DirTreeView := TspSkinDirTreeView.Create(Self);
  2137.   with DirTreeView do
  2138.   begin
  2139.     Parent := DirTreeViewPanel;
  2140.     Align := alClient;
  2141.     HScrollBar := Self.HScrollBar;
  2142.     VScrollBar := Self.VScrollBar;
  2143.     HideSelection := False;
  2144.   end;
  2146.   BottomPanel := TspSkinPanel.Create(Self);
  2147.   with BottomPanel do
  2148.   begin
  2149.     Parent := Self;
  2150.     Align := alBottom;
  2151.     BorderStyle := bvNone;
  2152.     Height := 50;
  2153.   end;
  2155.   OkButton := TspSkinButton.Create(Self);
  2156.   with OkButton do
  2157.   begin
  2158.     Default := True;
  2159.     Caption := 'Ok';
  2160.     CanFocused := True;
  2161.     Left := 20;
  2162.     Top := 15;
  2163.     Width := 70;
  2164.     DefaultHeight := 25;
  2165.     Parent := BottomPanel;
  2166.     ModalResult := mrOk;
  2167.   end;
  2169.   CancelButton := TspSkinButton.Create(Self);
  2170.   with CancelButton do
  2171.   begin
  2172.     Caption := 'Cancel';
  2173.     CanFocused := True;
  2174.     Left := 100;
  2175.     Top := 15;
  2176.     Width := 70;
  2177.     DefaultHeight := 25;
  2178.     Parent := BottomPanel;
  2179.     ModalResult := mrCancel;
  2180.     Cancel := True;
  2181.   end;
  2182. end;
  2184. constructor TspSkinSelectDirectoryDialog.Create(AOwner: TComponent);
  2185. begin
  2186.   inherited Create(AOwner);
  2187.   DialogWidth := 0;
  2188.   DialogHeight := 0;
  2189.   FAlphaBlend := False;
  2190.   FAlphaBlendAnimation := False;
  2191.   FAlphaBlendValue := 200;
  2192.   FTitle := 'Select folder';
  2193.   FDefaultFont := TFont.Create;
  2194.   with FDefaultFont do
  2195.   begin
  2196.     Name := 'Arial';
  2197.     Style := [];
  2198.     Height := 14;
  2199.   end;
  2200.   FDirectory := ''; 
  2201. end;
  2203. destructor TspSkinSelectDirectoryDialog.Destroy;
  2204. begin
  2205.   FDefaultFont.Free;
  2206.   inherited Destroy;
  2207. end;
  2210. procedure TspSkinSelectDirectoryDialog.SetDefaultFont;
  2211. begin
  2212.   FDefaultFont.Assign(Value);
  2213. end;
  2215. procedure TspSkinSelectDirectoryDialog.Notification;
  2216. begin
  2217.   inherited Notification(AComponent, Operation);
  2218.   if (Operation = opRemove) and (AComponent = FSD) then FSD := nil;
  2219.   if (Operation = opRemove) and (AComponent = FCtrlFSD) then FCtrlFSD := nil;
  2220. end;
  2222. function TspSkinSelectDirectoryDialog.GetTitle: string;
  2223. begin
  2224.   Result := FTitle;
  2225. end;
  2227. procedure TspSkinSelectDirectoryDialog.SetTitle(const Value: string);
  2228. begin
  2229.   FTitle := Value;
  2230. end;
  2232. procedure TspSkinSelectDirectoryDialog.Change;
  2233. begin
  2234.   if Assigned(FOnChange) then FOnChange(Self);
  2235. end;
  2237. function TspSkinSelectDirectoryDialog.Execute: Boolean;
  2238. var
  2239.   FW, FH: Integer;
  2240. begin
  2241.   FDlgFrm := TspSelDirDlgForm.Create(Application);
  2242.   with FDlgFrm do
  2243.   try
  2244.     Caption := Self.Title;
  2245.     DSF.BorderIcons := [];
  2246.     DSF.SkinData := FSD;
  2247.     DSF.MenusSkinData := CtrlSkinData;
  2248.     DSF.AlphaBlend := AlphaBlend;
  2249.     DSF.AlphaBlendAnimation := AlphaBlendAnimation;
  2250.     DSF.AlphaBlendValue := AlphaBlendValue;
  2251.     //
  2252.     DirTreeViewPanel.SkinData := FCtrlFSD;
  2253.     DirTreeView.DefaultFont := DefaultFont;
  2254.     DirTreeView.SkinData := FCtrlFSD;
  2255.     DirTreeView.Color := clWindow;
  2256.     if FDirectory <> '' then DirTreeView.OpenPath(FDirectory);
  2257.     //
  2258.     HScrollBar.SkinData := FCtrlFSD;
  2259.     VScrollBar.SkinData := FCtrlFSD;
  2260.     OkButton.SkinData := FCtrlFSD;
  2261.     CancelButton.SkinData := FCtrlFSD;
  2262.     BottomPanel.SkinData := FCtrlFSD;
  2263.     OkButton.DefaultFont := DefaultFont;
  2264.     CancelButton.DefaultFont := DefaultFont;
  2266.     if (DialogWidth <> 0)
  2267.     then
  2268.       begin
  2269.         FW := DialogWidth;
  2270.         FH := DialogHeight;
  2271.       end
  2272.     else
  2273.       begin
  2274.         FW := 250;
  2275.         FH := 250;
  2276.       end;
  2278.     if (SkinData <> nil) and not SkinData.Empty
  2279.     then
  2280.       begin
  2281.         if FW < DSF.GetMinWidth then FW := DSF.GetMinWidth;
  2282.         if FH < DSF.GetMinHeight then FH := DSF.GetMinHeight;
  2283.       end;
  2285.     ClientWidth := FW;
  2286.     ClientHeight := FH;
  2288.     Result := (ShowModal = mrOk);
  2290.     DialogWidth := ClientWidth;
  2291.     DialogHeight := ClientHeight;
  2293.     if Result
  2294.     then
  2295.       begin
  2296.         FDirectory := FDlgFrm.DirTreeView.Directory;
  2297.         Change;
  2298.       end;
  2299.   finally
  2300.     Free;
  2301.     FDlgFrm := nil;
  2302.   end;
  2303. end;
  2305. constructor TspOpenDlgForm.CreateEx(AOwner: TComponent; ASaveMode: Boolean);
  2306. begin
  2307.   inherited CreateNew(AOwner);
  2308.   SaveMode := ASaveMode;
  2309.   KeyPreview := True;
  2310. //  BorderStyle := bsDialog;
  2311.   Position := poScreenCenter;
  2312.   DSF := TspDynamicSkinForm.Create(Self);
  2313.   FromFLV := False;
  2314.   FromFTV := False;
  2316.   ToolPanel := TspSkinPanel.Create(Self);
  2317.   with ToolPanel do
  2318.   begin
  2319.     BorderStyle := bvNone;
  2320.     Parent := Self;
  2321.     Align := alTop;
  2322.     DefaultHeight := 25;
  2323.     SkinDataName := 'toolpanel';
  2324.     OnResize := ToolPanelOnResize;
  2325.   end;
  2327.   BackToolButton := TspSkinSpeedButton.Create(Self);
  2328.   with BackToolButton do
  2329.   begin
  2330.     Parent := ToolPanel;
  2331.     DefaultHeight := 25;
  2332.     DefaultWidth := 70;
  2333.     SkinDataName := 'toolbutton';
  2334.     Align := alLeft;
  2335.     OnClick := BackToolButtonClick;
  2336.     NumGlyhps := 1;
  2337.     Glyph.LoadFromResourceName(HInstance, 'SP_UP');
  2338.   end;
  2340.   SortNameToolButton := TspSkinSpeedButton.Create(Self);
  2341.   with SortNameToolButton do
  2342.   begin
  2343.     Parent := ToolPanel;
  2344.     DefaultWidth := 27;
  2345.     SkinDataName := 'toolbutton';
  2346.     Align := alRight;
  2347.     OnClick := SortNameToolButtonClick;
  2348.     NumGlyhps := 1;
  2349.     Glyph.LoadFromResourceName(HInstance, 'SP_SORTNAME');
  2350.   end;
  2351.   SortSizeToolButton := TspSkinSpeedButton.Create(Self);
  2352.   with SortSizeToolButton do
  2353.   begin
  2354.     Parent := ToolPanel;
  2355.     DefaultWidth := 27;
  2356.     SkinDataName := 'toolbutton';
  2357.     Align := alRight;
  2358.     OnClick := SortSizeToolButtonClick;
  2359.     NumGlyhps := 1;
  2360.     Glyph.LoadFromResourceName(HInstance, 'SP_SORTSIZE');
  2361.   end;
  2362.   SortDateToolButton := TspSkinSpeedButton.Create(Self);
  2363.   with SortDateToolButton do
  2364.   begin
  2365.     Parent := ToolPanel;
  2366.     DefaultWidth := 27;
  2367.     SkinDataName := 'toolbutton';
  2368.     Align := alRight;
  2369.     OnClick := SortDateButtonClick;
  2370.     NumGlyhps := 1;
  2371.     Glyph.LoadFromResourceName(HInstance, 'SP_SORTDATE');
  2372.   end;
  2373.   //
  2374.   Bevel1 := TspSkinBevel.Create(Self);
  2375.   with Bevel1 do
  2376.   begin
  2377.     Parent := ToolPanel;
  2378.     Width := 27;
  2379.     Align := alRight;
  2380.     DividerMode := True;
  2381.   end;
  2382.   //
  2383.   ListToolButton := TspSkinSpeedButton.Create(Self);
  2384.   with ListToolButton do
  2385.   begin
  2386.     Parent := ToolPanel;
  2387.     DefaultWidth := 27;
  2388.     SkinDataName := 'toolbutton';
  2389.     Align := alRight;
  2390.     GroupIndex := 1;
  2391.     Down := True;
  2392.     OnClick := ListToolButtonClick;
  2393.     NumGlyhps := 1;
  2394.     Glyph.LoadFromResourceName(HInstance, 'SP_LISTSTYLE');
  2395.   end;
  2397.   SmallIconToolButton := TspSkinSpeedButton.Create(Self);
  2398.   with SmallIconToolButton do
  2399.   begin
  2400.     Parent := ToolPanel;
  2401.     DefaultWidth := 27;
  2402.     SkinDataName := 'toolbutton';
  2403.     Align := alRight;
  2404.     GroupIndex := 1;
  2405.     OnClick := SmallIconToolButtonClick;
  2406.     NumGlyhps := 1;
  2407.     Glyph.LoadFromResourceName(HInstance, 'SP_SMALLICONSTYLE');
  2408.   end;
  2410.   IconToolButton := TspSkinSpeedButton.Create(Self);
  2411.   with IconToolButton do
  2412.   begin
  2413.     Parent := ToolPanel;
  2414.     DefaultWidth := 27;
  2415.     SkinDataName := 'toolbutton';
  2416.     Align := alRight;
  2417.     GroupIndex := 1;
  2418.     OnClick := IconToolButtonClick;
  2419.     NumGlyhps := 1;
  2420.     Glyph.LoadFromResourceName(HInstance, 'SP_ICONSTYLE');
  2421.   end;
  2423.   ReportToolButton := TspSkinSpeedButton.Create(Self);
  2424.   with ReportToolButton do
  2425.   begin
  2426.     Parent := ToolPanel;
  2427.     DefaultWidth := 27;
  2428.     SkinDataName := 'toolbutton';
  2429.     Align := alRight;
  2430.     GroupIndex := 1;
  2431.     OnClick := ReportToolButtonClick;
  2432.     NumGlyhps := 1;
  2433.     Glyph.LoadFromResourceName(HInstance, 'SP_REPORTSTYLE');
  2434.   end;
  2436.   Bevel2 := TspSkinBevel.Create(Self);
  2437.   with Bevel2 do
  2438.   begin
  2439.     Parent := ToolPanel;
  2440.     Width := 26;
  2441.     Align := alRight;
  2442.     DividerMode := True;
  2443.   end;
  2445.   Bevel3 := TspSkinBevel.Create(Self);
  2446.   with Bevel3 do
  2447.   begin
  2448.     Parent := ToolPanel;
  2449.     Width := 26;
  2450.     Align := alLeft;
  2451.     DividerMode := True;
  2452.   end;
  2454.   DriveBox := TspSkinShellDriveComboBox.Create(Self);
  2455.   with DriveBox do
  2456.   begin
  2457.     Parent := ToolPanel;
  2458.     OnChange := DCBChange;
  2459.   end;
  2461.   BottomPanel := TspSkinPanel.Create(Self);
  2462.   with BottomPanel do
  2463.   begin
  2464.     Parent := Self;
  2465.     Align := alBottom;
  2466.     BorderStyle := bvNone;
  2467.     Height := 80;
  2468.   end;
  2470.   Splitter := TspSkinSplitter.Create(Self);
  2471.   with Splitter do
  2472.   begin
  2473.     Parent := Self;
  2474.     Align := alLeft;
  2475.     Width := 10;
  2476.     DefaultSize := 10;
  2477.     Beveled := False;
  2478.   end;
  2480.   DirTreeViewPanel := TspSkinExPanel.Create(Self);
  2481.   with DirTreeViewPanel do
  2482.   begin
  2483.     Parent := Self;
  2484.     Align := alLeft;
  2485.     RollKind := rkRollHorizontal;
  2486.     ShowCloseButton := False;
  2487.     Width := 200;
  2488.   end;
  2490.   FileListViewPanel := TspSkinPanel.Create(Self);
  2491.   with FileListViewPanel do
  2492.   begin
  2493.     Parent := Self;
  2494.     Align := alClient;
  2495.     BorderStyle := bvFrame;
  2496.   end;
  2498.   DTVVScrollBar := TspSkinScrollBar.Create(Self);
  2499.   with DTVVScrollBar do
  2500.   begin
  2501.     Kind := sbVertical;
  2502.     Parent := DirTreeViewPanel;
  2503.     Align := alRight;
  2504.     DefaultWidth := 19;
  2505.     Enabled := False;
  2506.     SkinDataName := 'vscrollbar';
  2507.   end;
  2509.   DTVHScrollBar := TspSkinScrollBar.Create(Self);
  2510.   with DTVHScrollBar do
  2511.   begin
  2512.     Parent := DirTreeViewPanel;
  2513.     Align := alBottom;
  2514.     DefaultHeight := 19;
  2515.     Enabled := False;
  2516.     BothMarkerWidth := 19;
  2517.     SkinDataName := 'hscrollbar';
  2518.   end;
  2520.   DirTreeView := TspSkinDirTreeView.Create(Self);
  2521.   with DirTreeView do
  2522.   begin
  2523.     Parent := DirTreeViewPanel;
  2524.     Align := alClient;
  2525.     HScrollBar := Self.DTVHScrollBar;
  2526.     VScrollBar := Self.DTVVScrollBar;
  2527.     OnChange := DTVChange;
  2528.     HideSelection := False;
  2529.   end;
  2531.   FLVHScrollBar := TspSkinScrollBar.Create(Self);
  2532.   with FLVHScrollBar do
  2533.   begin
  2534.     BothMarkerWidth := 19;
  2535.     Parent := FileListViewPanel;
  2536.     Align := alBottom;
  2537.     DefaultHeight := 19;
  2538.     Enabled := False;
  2539.     SkinDataName := 'hscrollbar';
  2540.   end;
  2542.   FLVVScrollBar := TspSkinScrollBar.Create(Self);
  2543.   with FLVVScrollBar do
  2544.   begin
  2545.     Kind := sbVertical;
  2546.     Parent := FileListViewPanel;
  2547.     Align := alRight;
  2548.     DefaultWidth := 19;
  2549.     Enabled := False;
  2550.     SkinDataName := 'vscrollbar';
  2551.   end;
  2554.   FileListView := TspSkinFileListView.Create(Self);
  2555.   with FileListView do
  2556.   begin
  2557.     Parent := FileListViewPanel;
  2558.     ViewStyle := vsList;
  2559.     ShowColumnHeaders := True;
  2560.     IconOptions.AutoArrange := True;
  2561.     GridLines := True;
  2562.     Align := alClient;
  2563.     HScrollBar := FLVHScrollBar;
  2564.     VScrollBar := FLVVScrollBar;
  2565.     OnChange := FLVChange;
  2566.     OnDblClick := FLVDBLClick;
  2567.     HideSelection := False;
  2568.   end;
  2570.   FileNameEdit := TspSkinEdit.Create(Self);
  2571.   with FileNameEdit do
  2572.   begin
  2573.     Parent := BottomPanel;
  2574.     Top := 10;
  2575.     Left := 70;
  2576.     Width := 300;
  2577.     DefaultHeight := 21;
  2578.     OnKeyPress := EditKeyPress;
  2579.   end;
  2581.   FilterComboBox := TspSkinFilterComboBox.Create(Self);
  2582.   with FilterComboBox  do
  2583.   begin
  2584.     Parent := BottomPanel;
  2585.     Top := 45;
  2586.     Left := 70;
  2587.     Width := 300;
  2588.     DefaultHeight := 21;
  2589.     OnChange := FCBChange;
  2590.   end;
  2592.   OpenButton := TspSkinButton.Create(Self);
  2593.   with OpenButton do
  2594.   begin
  2595.     if SaveMode
  2596.     then
  2597.       Caption := '&Save'
  2598.     else
  2599.       Caption := '&Open';
  2600.     CanFocused := True;
  2601.     Left := 390;
  2602.     Top := 10;
  2603.     Width := 70;
  2604.     DefaultHeight := 25;
  2605.     Parent := BottomPanel;
  2606.     OnClick := OpenButtonClick;
  2607.   end;
  2609.   CancelButton := TspSkinButton.Create(Self);
  2610.   with CancelButton do
  2611.   begin
  2612.     Caption := 'Cancel';
  2613.     CanFocused := True;
  2614.     Left := 390;
  2615.     Top := 45;
  2616.     Width := 70;
  2617.     DefaultHeight := 25;
  2618.     Parent := BottomPanel;
  2619.     ModalResult := mrCancel;
  2620.     Cancel := True;
  2621.   end;
  2623.   OpenFileLabel := TspSkinStdLabel.Create(Self);
  2624.   with OpenFileLabel do
  2625.   begin
  2626.     Caption := 'File name:';
  2627.     Left := 10;
  2628.     Top := 10;
  2629.     AutoSize := True;
  2630.     Parent := BottomPanel;
  2631.   end;
  2633.   FileTypeLabel := TspSkinStdLabel.Create(Self);
  2634.   with FileTypeLabel do
  2635.   begin
  2636.     Caption := 'File type:';
  2637.     Left := 10;
  2638.     Top := 45;
  2639.     AutoSize := True;
  2640.     Parent := BottomPanel;
  2641.   end;
  2643.   ActiveControl := FileNameEdit;
  2644. end;
  2646. procedure TspOpenDlgForm.SortNameToolButtonClick(Sender: TObject);
  2647. begin
  2648.   FileListView.ColumnClick(Sender, FileListView.Columns[0]);
  2649. end;
  2651. procedure TspOpenDlgForm.SortSizeToolButtonClick(Sender: TObject);
  2652. begin
  2653.   FileListView.ColumnClick(Sender, FileListView.Columns[1]);
  2654. end;
  2656. procedure TspOpenDlgForm.SortDateButtonClick(Sender: TObject);
  2657. begin
  2658.   FileListView.ColumnClick(Sender, FileListView.Columns[3]);
  2659. end;
  2661. procedure TspOpenDlgForm.ReportToolButtonClick(Sender: TObject);
  2662. begin
  2663.   FileListView.ViewStyle := vsReport;
  2664.   FileListView.UpdateScrollBars;
  2665. end;
  2667. procedure TspOpenDlgForm.BackToolButtonClick(Sender: TObject);
  2668. begin
  2669.   FileListView.OneLevelUp;
  2670.   FileListView.UpdateScrollBars;
  2671. end;
  2673. procedure TspOpenDlgForm.ListToolButtonClick(Sender: TObject);
  2674. begin
  2675.   FileListView.ViewStyle := vsList;
  2676.   FileListView.UpdateScrollBars;
  2677. end;
  2679. procedure TspOpenDlgForm.SmallIconToolButtonClick(Sender: TObject);
  2680. begin
  2681.   FileListView.ViewStyle := vsSmallIcon;
  2682.   FileListView.UpdateScrollBars;
  2683. end;
  2685. procedure TspOpenDlgForm.IconToolButtonClick(Sender: TObject);
  2686. begin
  2687.   FileListView.ViewStyle := vsIcon;
  2688. end;
  2690. procedure TspOpenDlgForm.EditKeyPress;
  2691. var
  2692.   FileName: String;
  2693. begin
  2694.   inherited;
  2695.   if Key = #13
  2696.   then
  2697.     begin
  2698.       if Pos('*', FileNameEdit.Text) <> 0
  2699.       then
  2700.         FileListView.Mask := FileNameEdit.Text
  2701.       else
  2702.         begin
  2703.           FileName := Self.FileListView.Directory + FileNameEdit.Text;
  2704.           if FileExists(FileName)
  2705.           then
  2706.             OpenButtonClick(Sender)
  2707.           else
  2708.           if DirectoryExists(FileNameEdit.Text)
  2709.           then
  2710.             FileListView.Directory := FileNameEdit.Text;
  2711.         end;
  2712.     end;
  2713. end;
  2715. procedure TspOpenDlgForm.OpenButtonClick;
  2716. var
  2717.   S: String;
  2718. begin
  2719.   if FileNameEdit.Text = '' then Exit;
  2720.   if SaveMode
  2721.   then
  2722.     begin
  2723.       S := Self.FileListView.Directory + FileNameEdit.Text;
  2724.       if (Pos('*', S) = 0)
  2725.       then
  2726.         begin
  2727.           FileName := Self.FileListView.Directory + FileNameEdit.Text;
  2728.           ModalResult := mrOk;
  2729.         end;
  2730.     end
  2731.   else
  2732.     begin
  2733.       FileName := Self.FileListView.Directory + FileNameEdit.Text;
  2734.       if FileExists(FileName) then ModalResult := mrOk else FileName := '';
  2735.     end;
  2736. end;
  2738. procedure TspOpenDlgForm.ToolPanelOnResize;
  2739. begin
  2740.   if (DriveBox <> nil) and (Bevel2 <> nil) and (Bevel3 <> nil)
  2741.   then
  2742.     DriveBox.SetBounds(Bevel3.left + Bevel3.Width,
  2743.       ToolPanel.Height div 2 - DriveBox.Height div 2,
  2744.       Bevel2.Left - Bevel3.Left - Bevel3.Width,
  2745.       DriveBox.Height);
  2746. end;
  2748. procedure TspOpenDlgForm.DCBChange(Sender: TObject);
  2749. begin
  2750.   FromDCB := True;
  2751.   if not FromFLV and not FromFTV and (DirTreeView <> nil)
  2752.   then DirTreeView.Directory := DriveBox.Drive + ':';
  2753.   FromDCB := False;
  2754. end;
  2756. procedure TspOpenDlgForm.FLVChange;
  2757. var
  2758.   OldPosition: Integer;
  2759.   C: TCanvas;
  2760. begin
  2761.   FromFLV := True;
  2762.   if (not FromFTV) and (DirTreeView.FSelectedPath <> FileListView.Directory)
  2763.   then
  2764.     begin
  2765.       DirTreeView.Directory := FileListView.Directory;
  2766.       DirTreeViewPanel.Caption := DirTreeView.Selected.Text;
  2767.     end;
  2768.   if FileListView.Selected <> nil
  2769.   then
  2770.   if FileListView.IsFile(FileListView.Selected)
  2771.   then
  2772.     FileNameEdit.Text := FileListView.Selected.Caption
  2773.   else
  2774.     FileNameEdit.Text := '';
  2775.   FromFLV := False;
  2776. end;
  2778. procedure TspOpenDlgForm.FLVDBLClick(Sender: TObject);
  2779. begin
  2780.   if (FileListView.Selected <> nil) and
  2781.      (FileListView.Selected.SubItems[5] = 'file')
  2782.   then
  2783.     begin
  2784.       FileNameEdit.Text := FileListView.Selected.Caption;
  2785.       FileName := Self.FileListView.Directory + FileNameEdit.Text;
  2786.       ModalResult := mrOk;
  2787.     end;
  2788. end;
  2790. procedure TspOpenDlgForm.DTVChange;
  2791. begin
  2792.   FromFTV := True;
  2793.   if not FromFLV
  2794.   then
  2795.     begin
  2796.       FileListView.Directory := DirTreeView.GetPathFromNode(Node);
  2797.       DirTreeViewPanel.Caption := DirTreeView.Selected.Text;
  2798.     end;
  2799.   if not FromDCB and (DriveBox <> nil) and (DriveBox.Drives.Count > 0)
  2800.      and (DirTreeView.Directory <> '')
  2801.   then
  2802.     DriveBox.Drive := DirTreeView.Directory[1];
  2803.   FromFTV := False;
  2804. end;
  2806. procedure TspOpenDlgForm.FCBChange(Sender: TObject);
  2807. begin
  2808.   FileListView.Mask := FilterComboBox.Mask;
  2809. end;
  2811. constructor TspSkinOpenDialog.Create(AOwner: TComponent);
  2812. begin
  2813.   inherited Create(AOwner);
  2814.   DialogWidth := 0;
  2815.   DialogHeight := 0;
  2816.   FLVHeaderSkinDataName := 'resizebutton';
  2817.   FAlphaBlend := False;
  2818.   FAlphaBlendAnimation := False;
  2819.   FAlphaBlendValue := 200;
  2820.   FSaveMode := False;
  2821.   FTitle := 'Open file';
  2822.   FDefaultFont := TFont.Create;
  2823.   with FDefaultFont do
  2824.   begin
  2825.     Name := 'Arial';
  2826.     Style := [];
  2827.     Height := 14;
  2828.   end;
  2829.   FInitialDir := '';
  2830.   FFilter := 'All files|*.*';
  2831.   FFilterIndex := 0;
  2832.   FFileName := '';
  2833.   TreePanelWidth := 200;
  2834.   ListViewStyle := vsList;
  2835. end;
  2837. destructor TspSkinOpenDialog.Destroy;
  2838. begin
  2839.   FDefaultFont.Free;
  2840.   inherited Destroy;
  2841. end;
  2843. procedure TspSkinOpenDialog.SetDefaultFont;
  2844. begin
  2845.   FDefaultFont.Assign(Value);
  2846. end;
  2848. procedure TspSkinOpenDialog.Notification;
  2849. begin
  2850.   inherited Notification(AComponent, Operation);
  2851.   if (Operation = opRemove) and (AComponent = FSD) then FSD := nil;
  2852.   if (Operation = opRemove) and (AComponent = FCtrlFSD) then FCtrlFSD := nil;
  2853. end;
  2855. function TspSkinOpenDialog.GetTitle: string;
  2856. begin
  2857.   Result := FTitle;
  2858. end;
  2860. procedure TspSkinOpenDialog.SetTitle(const Value: string);
  2861. begin
  2862.   FTitle := Value;
  2863. end;
  2865. procedure TspSkinOpenDialog.Change;
  2866. begin
  2867.   if Assigned(FOnChange) then FOnChange(Self);
  2868. end;
  2870. function TspSkinOpenDialog.Execute: Boolean;
  2871. var
  2872.   FW, FH: Integer;
  2873.   Path: String;
  2874. begin
  2875.   FDlgFrm := TspOpenDlgForm.CreateEx(Application, FSaveMode);
  2876.   with FDlgFrm do
  2877.   try
  2878.     Caption := Self.Title;
  2879.     DSF.BorderIcons := [];
  2880.     DSF.SkinData := FSD;
  2881.     DSF.MenusSkinData := CtrlSkinData;
  2882.     DSF.AlphaBlend := AlphaBlend;
  2883.     DSF.AlphaBlendAnimation := AlphaBlendAnimation;
  2884.     DSF.AlphaBlendValue := AlphaBlendValue;
  2886.     DirTreeView.SkinData := FCtrlFSD;
  2887.     DirTreeView.Color := clWindow;
  2888.     DirTreeViewPanel.Width := TreePanelWidth;
  2889.     DirTreeViewPanel.RollState := TreePanelRollState;
  2890.     case ListViewStyle of
  2891.       vsList: ListToolButton.Down := True;
  2892.       vsReport: ReportToolButton.Down := True;
  2893.       vsIcon: IconToolButton.Down := True;
  2894.       vsSmallIcon: SmallIconToolButton.Down := True;
  2895.     end;
  2896.     FileListView.ViewStyle := ListViewStyle;
  2898.     if (FFileName <> '') and (ExtractFilePath(FFileName) <> '')
  2899.     then
  2900.       begin
  2901.         Path := ExtractFilePath(FFileName);
  2902.         FileListView.Directory := Path;
  2903.         FileNameEdit.Text := ExtractFileName(FFileName);
  2904.       end
  2905.     else
  2906.       begin
  2907.         if FInitialDir = ''
  2908.         then
  2909.           FileListView.Directory := ExtractFilePath(Application.ExeName)
  2910.         else
  2911.           FileListView.Directory := FInitialDir;
  2912.         FileNameEdit.Text := FFileName;
  2913.       end;
  2915.     FromFLV := True;
  2916.     if FileListView.Directory <> ''
  2917.     then
  2918.       DriveBox.Drive := FileListView.Directory[1]
  2919.     else
  2920.       DriveBox.Drive := 'C';
  2921.     FromFLV := False;
  2923.     FileListView.HeaderSkinDataName := FLVHeaderSkinDataName;
  2924.     FileListView.SkinData := FCtrlFSD;
  2926.     FilterComboBox.Filter := Self.Filter;
  2927.     FilterComboBox.ItemIndex := FFilterIndex;
  2928.     //
  2929.     DirTreeViewPanel.SkinData := FCtrlFSD;
  2930.     FileListViewPanel.SkinData := FCtrlFSD;
  2931.     BottomPanel.SkinData := FCtrlFSD;
  2932.     ToolPanel.SkinData := FCtrlFSD;
  2933.     Bevel1.SkinData := FCtrlFSD;
  2934.     Bevel2.SkinData := FCtrlFSD;
  2935.     Bevel3.SkinData := FCtrlFSD;
  2936.     DriveBox.SkinData := FCtrlFSD;
  2937.     BackToolButton.SkinData := FCtrlFSD;
  2938.     ListToolButton.SkinData := FCtrlFSD;
  2939.     ReportToolButton.SkinData := FCtrlFSD;
  2940.     IconToolButton.SkinData := FCtrlFSD;
  2941.     SmallIconToolButton.SkinData := FCtrlFSD;
  2942.     SortNameToolButton.SkinData := FCtrlFSD;
  2943.     SortSizeToolButton.SkinData := FCtrlFSD;
  2944.     SortDateToolButton.SkinData := FCtrlFSD;
  2945.     //
  2946.     Splitter.SkinData := FCtrlFSD;
  2947.     DTVHScrollBar.SkinData := FCtrlFSD;
  2948.     DTVVScrollBar.SkinData := FCtrlFSD;
  2949.     FLVHScrollBar.SkinData := FCtrlFSD;
  2950.     FLVVScrollBar.SkinData := FCtrlFSD;
  2951.     FileNameEdit.SkinData := FCtrlFSD;
  2952.     FilterComboBox.SkinData := FCtrlFSD;
  2953.     OpenButton.SkinData := FCtrlFSD;
  2954.     CancelButton.SkinData := FCtrlFSD;
  2955.     OpenFileLabel.SkinData := FCtrlFSD;
  2956.     FileTypeLabel.SkinData := FCtrlFSD;
  2957.     //
  2959.     if (DialogWidth <> 0)
  2960.     then
  2961.       begin
  2962.         FW := DialogWidth;
  2963.         FH := DialogHeight;
  2964.       end
  2965.     else
  2966.       begin
  2967.         FW := 500;
  2968.         FH := 300;
  2969.       end;
  2971.     if (SkinData <> nil) and not SkinData.Empty
  2972.     then
  2973.       begin
  2974.         if FW < DSF.GetMinWidth then FW := DSF.GetMinWidth;
  2975.         if FH < DSF.GetMinHeight then FH := DSF.GetMinHeight;
  2976.       end;
  2978.     ClientWidth := FW;
  2979.     ClientHeight := FH;
  2981.     Result := (ShowModal = mrOk);
  2983.     if DirTreeViewPanel.RollState
  2984.     then
  2985.       TreePanelWidth := DirTreeViewPanel.RealWidth
  2986.     else
  2987.       TreePanelWidth := DirTreeViewPanel.Width;
  2989.     DialogWidth := ClientWidth;
  2990.     DialogHeight := ClientHeight;
  2992.     TreePanelRollState := DirTreeViewPanel.RollState;
  2993.     ListViewStyle := FileListView.ViewStyle;
  2994.     if Result
  2995.     then
  2996.       begin
  2997.         Self.FFileName := FDlgFrm.FileName;
  2998.         Change;
  2999.       end;
  3000.   finally
  3001.     Free;
  3002.     FDlgFrm := nil;
  3003.   end;
  3004. end;
  3006. constructor TspSkinSaveDialog.Create(AOwner: TComponent);
  3007. begin
  3008.   inherited;
  3009.   FTitle := 'Save file';
  3010.   FSaveMode := True;
  3011. end;
  3013. constructor TspSkinDirectoryEdit.Create(AOwner: TComponent);
  3014. begin
  3015.   inherited;
  3016.   ControlStyle := ControlStyle - [csSetCaption];
  3017.   ButtonMode := True;
  3018.   OnButtonClick := ButtonClick;
  3019.   FSkinDataName := 'buttonedit';
  3020.   SD := TspSkinSelectDirectoryDialog.Create(Self);
  3021. end;
  3023. destructor TspSkinDirectoryEdit.Destroy;
  3024. begin
  3025.   SD.Free;
  3026.   inherited;
  3027. end;
  3029. procedure TspSkinDirectoryEdit.ButtonClick;
  3030. begin
  3031.   SD.Directory := Text;
  3032.   SD.SkinData := FDlgSkinData;
  3033.   SD.CtrlSkinData := FDlgCtrlSkinData;
  3034.   if SD.Execute then Text := SD.Directory;
  3035. end;
  3037. procedure TspSkinDirectoryEdit.Notification;
  3038. begin
  3039.   inherited Notification(AComponent, Operation);
  3040.   if (Operation = opRemove) and (AComponent = FDlgSkinData) then FDlgSkinData := nil;
  3041.   if (Operation = opRemove) and (AComponent = FDlgCtrlSkinData) then FDlgCtrlSkinData := nil;
  3042. end;
  3044. constructor TspSkinFileEdit.Create(AOwner: TComponent);
  3045. begin
  3046.   inherited;
  3047.   ControlStyle := ControlStyle - [csSetCaption];
  3048.   ButtonMode := True;
  3049.   OnButtonClick := ButtonClick;
  3050.   FSkinDataName := 'buttonedit';
  3051.   FLVHeaderSkinDataName := 'resizebutton';
  3052.   OD := TspSkinOpenDialog.Create(Self);
  3053. end;
  3055. destructor TspSkinFileEdit.Destroy;
  3056. begin
  3057.   OD.Free;
  3058.   inherited;
  3059. end;
  3061. function TspSkinFileEdit.GetFilter;
  3062. begin
  3063.   Result := OD.Filter;
  3064. end;
  3066. procedure TspSkinFileEdit.SetFilter;
  3067. begin
  3068.   OD.Filter := Value;
  3069. end;
  3071. procedure TspSkinFileEdit.ButtonClick;
  3072. begin
  3073.   OD.FileName := Text;
  3074.   OD.SkinData := FDlgSkinData;
  3075.   OD.CtrlSkinData := FDlgCtrlSkinData;
  3076.   OD.LVHeaderSkinDataName := FLVHeaderSkinDataName;
  3077.   if OD.Execute then Text := OD.FileName;
  3078. end;
  3080. procedure TspSkinFileEdit.Notification;
  3081. begin
  3082.   inherited Notification(AComponent, Operation);
  3083.   if (Operation = opRemove) and (AComponent = FDlgSkinData) then FDlgSkinData := nil;
  3084.   if (Operation = opRemove) and (AComponent = FDlgCtrlSkinData) then FDlgCtrlSkinData := nil;
  3085. end;
  3087. constructor TspSkinSaveFileEdit.Create(AOwner: TComponent);
  3088. begin
  3089.   inherited;
  3090.   ControlStyle := ControlStyle - [csSetCaption];
  3091.   FLVHeaderSkinDataName := 'resizebutton';
  3092.   ButtonMode := True;
  3093.   OnButtonClick := ButtonClick;
  3094.   FSkinDataName := 'buttonedit';
  3095.   OD := TspSkinSaveDialog.Create(Self);
  3096. end;
  3098. destructor TspSkinSaveFileEdit.Destroy;
  3099. begin
  3100.   OD.Free;
  3101.   inherited;
  3102. end;
  3104. function TspSkinSaveFileEdit.GetFilter;
  3105. begin
  3106.   Result := OD.Filter;
  3107. end;
  3109. procedure TspSkinSaveFileEdit.SetFilter;
  3110. begin
  3111.   OD.Filter := Value;
  3112. end;
  3114. procedure TspSkinSaveFileEdit.ButtonClick;
  3115. begin
  3116.   OD.FileName := Text;
  3117.   OD.SkinData := FDlgSkinData;
  3118.   OD.CtrlSkinData := FDlgCtrlSkinData;
  3119.   OD.LVHeaderSkinDataName := FLVHeaderSkinDataName;
  3120.   if OD.Execute then Text := OD.FileName;
  3121. end;
  3123. procedure TspSkinSaveFileEdit.Notification;
  3124. begin
  3125.   inherited Notification(AComponent, Operation);
  3126.   if (Operation = opRemove) and (AComponent = FDlgSkinData) then FDlgSkinData := nil;
  3127.   if (Operation = opRemove) and (AComponent = FDlgCtrlSkinData) then FDlgCtrlSkinData := nil;
  3128. end;
  3130. // ======= TspSkinOpenPictureDialog ====== //
  3132. constructor TspOpenPictureDlgForm.CreateEx;
  3133. begin
  3134.   inherited CreateNew(AOwner);
  3135.   SaveMode := ASaveMode;
  3136.   KeyPreview := True;
  3137. //  BorderStyle := bsDialog;
  3138.   Position := poScreenCenter;
  3139.   DSF := TspDynamicSkinForm.Create(Self);
  3140.   FromFLV := False;
  3141.   FromFTV := False;
  3143.   ImagePanel := TspSkinPanel.Create(Self);
  3144.   with ImagePanel do
  3145.   begin
  3146.     BorderStyle := bvFrame;
  3147.     Parent := Self;
  3148.     Align := alRight;
  3149.     Width := 200;
  3150.   end;
  3152.   Splitter2 := TspSkinSplitter.Create(Self);
  3153.   with Splitter2 do
  3154.   begin
  3155.     Parent := Self;
  3156.     Align := alRight;
  3157.     Width := 10;
  3158.     DefaultSize := 10;
  3159.     Beveled := False;
  3160.   end;
  3163.   SBVScrollBar := TspSkinScrollBar.Create(Self);
  3164.   with SBVScrollBar do
  3165.   begin
  3166.     Kind := sbVertical;
  3167.     Parent := ImagePanel;
  3168.     Align := alRight;
  3169.     DefaultWidth := 19;
  3170.     Enabled := False;
  3171.     SkinDataName := 'vscrollbar';
  3172.   end;
  3174.   SBHScrollBar := TspSkinScrollBar.Create(Self);
  3175.   with SBHScrollBar do
  3176.   begin
  3177.     Parent := ImagePanel;
  3178.     Align := alBottom;
  3179.     DefaultHeight := 19;
  3180.     Enabled := False;
  3181.     BothMarkerWidth := 19;
  3182.     SkinDataName := 'hscrollbar';
  3183.   end;
  3185.   ScrollBox := TspSkinScrollBox.Create(Self);
  3186.   with ScrollBox do
  3187.   begin
  3188.     Align := alClient;
  3189.     BorderStyle := bvNone;
  3190.     Parent := ImagePanel;
  3191.     HScrollBar := SBHScrollBar;
  3192.     VScrollBar := SBVScrollBar;
  3193.   end;
  3195.   Image := TImage.Create(Self);
  3196.   with Image do
  3197.   begin
  3198.     Parent := ScrollBox;
  3199.     Left := 0;
  3200.     Top := 0;
  3201.   end;
  3203.   ToolPanel := TspSkinPanel.Create(Self);
  3204.   with ToolPanel do
  3205.   begin
  3206.     BorderStyle := bvNone;
  3207.     Parent := Self;
  3208.     Align := alTop;
  3209.     DefaultHeight := 25;
  3210.     SkinDataName := 'toolpanel';
  3211.     OnResize := ToolPanelOnResize;
  3212.   end;
  3214.   BackToolButton := TspSkinSpeedButton.Create(Self);
  3215.   with BackToolButton do
  3216.   begin
  3217.     Parent := ToolPanel;
  3218.     DefaultHeight := 25;
  3219.     DefaultWidth := 75;
  3220.     SkinDataName := 'toolbutton';
  3221.     Align := alLeft;
  3222.     OnClick := BackToolButtonClick;
  3223.     NumGlyhps := 1;
  3224.     Glyph.LoadFromResourceName(HInstance, 'SP_UP');
  3225.   end;
  3227.   SortNameToolButton := TspSkinSpeedButton.Create(Self);
  3228.   with SortNameToolButton do
  3229.   begin
  3230.     Parent := ToolPanel;
  3231.     DefaultWidth := 27;
  3232.     SkinDataName := 'toolbutton';
  3233.     Align := alRight;
  3234.     OnClick := SortNameToolButtonClick;
  3235.     NumGlyhps := 1;
  3236.     Glyph.LoadFromResourceName(HInstance, 'SP_SORTNAME');
  3237.   end;
  3238.   
  3239.   SortSizeToolButton := TspSkinSpeedButton.Create(Self);
  3240.   with SortSizeToolButton do
  3241.   begin
  3242.     Parent := ToolPanel;
  3243.     DefaultWidth := 27;
  3244.     SkinDataName := 'toolbutton';
  3245.     Align := alRight;
  3246.     OnClick := SortSizeToolButtonClick;
  3247.     NumGlyhps := 1;
  3248.     Glyph.LoadFromResourceName(HInstance, 'SP_SORTSIZE');
  3249.   end;
  3251.   SortDateToolButton := TspSkinSpeedButton.Create(Self);
  3252.   with SortDateToolButton do
  3253.   begin
  3254.     Parent := ToolPanel;
  3255.     DefaultWidth := 27;
  3256.     SkinDataName := 'toolbutton';
  3257.     Align := alRight;
  3258.     OnClick := SortDateButtonClick;
  3259.     NumGlyhps := 1;
  3260.     Glyph.LoadFromResourceName(HInstance, 'SP_SORTDATE');
  3261.   end;
  3262.  //
  3263.   Bevel1 := TspSkinBevel.Create(Self);
  3264.   with Bevel1 do
  3265.   begin
  3266.     Parent := ToolPanel;
  3267.     Width := 27;
  3268.     Align := alRight;
  3269.     DividerMode := True;
  3270.   end;
  3271.   //
  3272.   ListToolButton := TspSkinSpeedButton.Create(Self);
  3273.   with ListToolButton do
  3274.   begin
  3275.     Parent := ToolPanel;
  3276.     DefaultWidth := 27;
  3277.     SkinDataName := 'toolbutton';
  3278.     Align := alRight;
  3279.     GroupIndex := 1;
  3280.     Down := True;
  3281.     OnClick := ListToolButtonClick;
  3282.     NumGlyhps := 1;
  3283.     Glyph.LoadFromResourceName(HInstance, 'SP_LISTSTYLE');
  3284.   end;
  3286.   SmallIconToolButton := TspSkinSpeedButton.Create(Self);
  3287.   with SmallIconToolButton do
  3288.   begin
  3289.     Parent := ToolPanel;
  3290.     DefaultWidth := 27;
  3291.     SkinDataName := 'toolbutton';
  3292.     Align := alRight;
  3293.     GroupIndex := 1;
  3294.     OnClick := SmallIconToolButtonClick;
  3295.     NumGlyhps := 1;
  3296.     Glyph.LoadFromResourceName(HInstance, 'SP_SMALLICONSTYLE');
  3297.   end;
  3299.   IconToolButton := TspSkinSpeedButton.Create(Self);
  3300.   with IconToolButton do
  3301.   begin
  3302.     Parent := ToolPanel;
  3303.     DefaultWidth := 27;
  3304.     SkinDataName := 'toolbutton';
  3305.     Align := alRight;
  3306.     GroupIndex := 1;
  3307.     OnClick := IconToolButtonClick;
  3308.     NumGlyhps := 1;
  3309.     Glyph.LoadFromResourceName(HInstance, 'SP_ICONSTYLE');
  3310.   end;
  3312.   ReportToolButton := TspSkinSpeedButton.Create(Self);
  3313.   with ReportToolButton do
  3314.   begin
  3315.     Parent := ToolPanel;
  3316.     DefaultWidth := 27;
  3317.     SkinDataName := 'toolbutton';
  3318.     Align := alRight;
  3319.     GroupIndex := 1;
  3320.     OnClick := ReportToolButtonClick;
  3321.     NumGlyhps := 1;
  3322.     Glyph.LoadFromResourceName(HInstance, 'SP_REPORTSTYLE');
  3323.   end;
  3325.   Bevel4 := TspSkinBevel.Create(Self);
  3326.   with Bevel4 do
  3327.   begin
  3328.     Parent := ToolPanel;
  3329.     Width := 27;
  3330.     Align := alRight;
  3331.     DividerMode := True;
  3332.   end;
  3334.   StretchButton := TspSkinSpeedButton.Create(Self);
  3335.   with StretchButton do
  3336.   begin
  3337.     Parent := ToolPanel;
  3338.     GroupIndex := 2;
  3339.     AllowAllUp := True;
  3340.     DefaultHeight := 27;
  3341.     DefaultWidth := 27;
  3342.     SkinDataName := 'toolbutton';
  3343.     Align := alRight;
  3344.     OnClick := StretchButtonClick;
  3345.     NumGlyhps := 1;
  3346.     Glyph.LoadFromResourceName(HInstance, 'SP_STRETCH');
  3347.   end;
  3349.   Bevel2 := TspSkinBevel.Create(Self);
  3350.   with Bevel2 do
  3351.   begin
  3352.     Parent := ToolPanel;
  3353.     Width := 26;
  3354.     Align := alRight;
  3355.     DividerMode := True;
  3356.   end;
  3358.   Bevel3 := TspSkinBevel.Create(Self);
  3359.   with Bevel3 do
  3360.   begin
  3361.     Parent := ToolPanel;
  3362.     Width := 26;
  3363.     Align := alLeft;
  3364.     DividerMode := True;
  3365.   end;
  3367.   DriveBox := TspSkinShellDriveComboBox.Create(Self);
  3368.   with DriveBox do
  3369.   begin
  3370.     Parent := ToolPanel;
  3371.     OnChange := DCBChange;
  3372.   end;
  3374.   BottomPanel := TspSkinPanel.Create(Self);
  3375.   with BottomPanel do
  3376.   begin
  3377.     Parent := Self;
  3378.     Align := alBottom;
  3379.     BorderStyle := bvNone;
  3380.     Height := 80;
  3381.   end;
  3383.   Splitter := TspSkinSplitter.Create(Self);
  3384.   with Splitter do
  3385.   begin
  3386.     Parent := Self;
  3387.     Align := alLeft;
  3388.     Width := 10;
  3389.     DefaultSize := 10;
  3390.     Beveled := False;
  3391.   end;
  3393.   DirTreeViewPanel := TspSkinExPanel.Create(Self);
  3394.   with DirTreeViewPanel do
  3395.   begin
  3396.     Parent := Self;
  3397.     Align := alLeft;
  3398.     RollKind := rkRollHorizontal;
  3399.     ShowCloseButton := False;
  3400.     Width := 150;
  3401.   end;
  3403.   FileListViewPanel := TspSkinPanel.Create(Self);
  3404.   with FileListViewPanel do
  3405.   begin
  3406.     Parent := Self;
  3407.     Align := alClient;
  3408.     BorderStyle := bvFrame;
  3409.   end;
  3411.   DTVVScrollBar := TspSkinScrollBar.Create(Self);
  3412.   with DTVVScrollBar do
  3413.   begin
  3414.     Kind := sbVertical;
  3415.     Parent := DirTreeViewPanel;
  3416.     Align := alRight;
  3417.     DefaultWidth := 19;
  3418.     Enabled := False;
  3419.     SkinDataName := 'vscrollbar';
  3420.   end;
  3422.   DTVHScrollBar := TspSkinScrollBar.Create(Self);
  3423.   with DTVHScrollBar do
  3424.   begin
  3425.     Parent := DirTreeViewPanel;
  3426.     Align := alBottom;
  3427.     DefaultHeight := 19;
  3428.     Enabled := False;
  3429.     BothMarkerWidth := 19;
  3430.     SkinDataName := 'hscrollbar';
  3431.   end;
  3433.   DirTreeView := TspSkinDirTreeView.Create(Self);
  3434.   with DirTreeView do
  3435.   begin
  3436.     Parent := DirTreeViewPanel;
  3437.     Align := alClient;
  3438.     HScrollBar := Self.DTVHScrollBar;
  3439.     VScrollBar := Self.DTVVScrollBar;
  3440.     OnChange := DTVChange;
  3441.     HideSelection := False;
  3442.   end;
  3444.   FLVHScrollBar := TspSkinScrollBar.Create(Self);
  3445.   with FLVHScrollBar do
  3446.   begin
  3447.     BothMarkerWidth := 19;
  3448.     Parent := FileListViewPanel;
  3449.     Align := alBottom;
  3450.     DefaultHeight := 19;
  3451.     Enabled := False;
  3452.     SkinDataName := 'hscrollbar';
  3453.   end;
  3455.   FLVVScrollBar := TspSkinScrollBar.Create(Self);
  3456.   with FLVVScrollBar do
  3457.   begin
  3458.     Kind := sbVertical;
  3459.     Parent := FileListViewPanel;
  3460.     Align := alRight;
  3461.     DefaultWidth := 19;
  3462.     Enabled := False;
  3463.     SkinDataName := 'vscrollbar';
  3464.   end;
  3467.   FileListView := TspSkinFileListView.Create(Self);
  3468.   with FileListView do
  3469.   begin
  3470.     Parent := FileListViewPanel;
  3471.     ViewStyle := vsList;
  3472.     ShowColumnHeaders := True;
  3473.     IconOptions.AutoArrange := True;
  3474.     GridLines := True;
  3475.     Align := alClient;
  3476.     HScrollBar := FLVHScrollBar;
  3477.     VScrollBar := FLVVScrollBar;
  3478.     OnChange := FLVChange;
  3479.     OnDblClick := FLVDBLClick;
  3480.     HideSelection := False;
  3481.   end;
  3483.   FileNameEdit := TspSkinEdit.Create(Self);
  3484.   with FileNameEdit do
  3485.   begin
  3486.     Parent := BottomPanel;
  3487.     Top := 10;
  3488.     Left := 70;
  3489.     Width := 300;
  3490.     DefaultHeight := 21;
  3491.     OnKeyPress := EditKeyPress;
  3492.   end;
  3494.   FilterComboBox := TspSkinFilterComboBox.Create(Self);
  3495.   with FilterComboBox  do
  3496.   begin
  3497.     Parent := BottomPanel;
  3498.     Top := 45;
  3499.     Left := 70;
  3500.     Width := 300;
  3501.     DefaultHeight := 21;
  3502.     OnChange := FCBChange;
  3503.   end;
  3505.   OpenButton := TspSkinButton.Create(Self);
  3506.   with OpenButton do
  3507.   begin
  3508.     if SaveMode
  3509.     then
  3510.       Caption := '&Save'
  3511.     else
  3512.       Caption := '&Open';
  3513.     CanFocused := True;
  3514.     Left := 390;
  3515.     Top := 10;
  3516.     Width := 70;
  3517.     DefaultHeight := 25;
  3518.     Parent := BottomPanel;
  3519.     OnClick := OpenButtonClick;
  3520.   end;
  3522.   CancelButton := TspSkinButton.Create(Self);
  3523.   with CancelButton do
  3524.   begin
  3525.     Caption := 'Cancel';
  3526.     CanFocused := True;
  3527.     Left := 390;
  3528.     Top := 45;
  3529.     Width := 70;
  3530.     DefaultHeight := 25;
  3531.     Parent := BottomPanel;
  3532.     ModalResult := mrCancel;
  3533.     Cancel := True;
  3534.   end;
  3536.   OpenFileLabel := TspSkinStdLabel.Create(Self);
  3537.   with OpenFileLabel do
  3538.   begin
  3539.     Caption := 'File name:';
  3540.     Left := 10;
  3541.     Top := 10;
  3542.     AutoSize := True;
  3543.     Parent := BottomPanel;
  3544.   end;
  3546.   FileTypeLabel := TspSkinStdLabel.Create(Self);
  3547.   with FileTypeLabel do
  3548.   begin
  3549.     Caption := 'File type:';
  3550.     Left := 10;
  3551.     Top := 45;
  3552.     AutoSize := True;
  3553.     Parent := BottomPanel;
  3554.   end;
  3556.   ActiveControl := FileNameEdit;
  3557. end;
  3559. procedure TspOpenPictureDlgForm.SortNameToolButtonClick(Sender: TObject);
  3560. begin
  3561.   FileListView.ColumnClick(Sender, FileListView.Columns[0]);
  3562. end;
  3564. procedure TspOpenPictureDlgForm.SortSizeToolButtonClick(Sender: TObject);
  3565. begin
  3566.   FileListView.ColumnClick(Sender, FileListView.Columns[1]);
  3567. end;
  3569. procedure TspOpenPictureDlgForm.SortDateButtonClick(Sender: TObject);
  3570. begin
  3571.   FileListView.ColumnClick(Sender, FileListView.Columns[3]);
  3572. end;
  3574. procedure TspOpenPictureDlgForm.ReportToolButtonClick(Sender: TObject);
  3575. begin
  3576.   FileListView.ViewStyle := vsReport;
  3577.   FileListView.UpdateScrollBars;
  3578. end;
  3580. procedure TspOpenPictureDlgForm.BackToolButtonClick(Sender: TObject);
  3581. begin
  3582.   FileListView.OneLevelUp;
  3583.   FileListView.UpdateScrollBars;
  3584. end;
  3586. procedure TspOpenPictureDlgForm.StretchButtonClick(Sender: TObject);
  3587. begin
  3588.   if StretchButton.Down
  3589.   then
  3590.     begin
  3591.       Image.Visible := False;
  3592.       Image.Stretch := True;
  3593.       Image.Align := alClient;
  3594.       Image.Visible := True;
  3595.     end
  3596.   else
  3597.     begin
  3598.       Image.Visible := False;
  3599.       Image.Align := alNone;
  3600.       Image.Width := Image.Picture.Width;
  3601.       Image.Height := Image.Picture.Height;
  3602.       Image.Stretch := False;
  3603.       Image.Visible := True;
  3604.     end;
  3605. end;
  3607. procedure TspOpenPictureDlgForm.ListToolButtonClick(Sender: TObject);
  3608. begin
  3609.   FileListView.ViewStyle := vsList;
  3610.   FileListView.UpdateScrollBars;
  3611. end;
  3613. procedure TspOpenPictureDlgForm.SmallIconToolButtonClick(Sender: TObject);
  3614. begin
  3615.   FileListView.ViewStyle := vsSmallIcon;
  3616.   FileListView.UpdateScrollBars;
  3617. end;
  3619. procedure TspOpenPictureDlgForm.IconToolButtonClick(Sender: TObject);
  3620. begin
  3621.   FileListView.ViewStyle := vsIcon;
  3622. end;
  3624. procedure TspOpenPictureDlgForm.EditKeyPress;
  3625. var
  3626.   FileName: String;
  3627. begin
  3628.   inherited;
  3629.   if Key = #13
  3630.   then
  3631.     begin
  3632.       if Pos('*', FileNameEdit.Text) <> 0
  3633.       then
  3634.         FileListView.Mask := FileNameEdit.Text
  3635.       else
  3636.         begin
  3637.           FileName := Self.FileListView.Directory + FileNameEdit.Text;
  3638.           if FileExists(FileName)
  3639.           then
  3640.             OpenButtonClick(Sender)
  3641.           else
  3642.           if DirectoryExists(FileNameEdit.Text)
  3643.           then
  3644.             FileListView.Directory := FileNameEdit.Text;
  3645.         end;
  3646.     end;
  3647. end;
  3649. procedure TspOpenPictureDlgForm.OpenButtonClick;
  3650. var
  3651.   S: String;
  3652. begin
  3653.   if FileNameEdit.Text = '' then Exit;
  3654.   if SaveMode
  3655.   then
  3656.     begin
  3657.       if FileNameEdit.Text = '' then Exit;
  3658.       S := Self.FileListView.Directory + FileNameEdit.Text;
  3659.       if (Pos('*', S) = 0)
  3660.       then
  3661.         begin
  3662.           FileName := Self.FileListView.Directory + FileNameEdit.Text;
  3663.           ModalResult := mrOk;
  3664.         end;
  3665.     end
  3666.   else
  3667.     begin
  3668.       FileName := Self.FileListView.Directory + FileNameEdit.Text;
  3669.       if FileExists(FileName) then ModalResult := mrOk else FileName := '';
  3670.     end;
  3671. end;
  3673. procedure TspOpenPictureDlgForm.ToolPanelOnResize;
  3674. begin
  3675.   if (DriveBox <> nil) and (Bevel2 <> nil) and (Bevel3 <> nil)
  3676.   then
  3677.     DriveBox.SetBounds(Bevel3.left + Bevel3.Width,
  3678.       ToolPanel.Height div 2 - DriveBox.Height div 2,
  3679.       Bevel2.Left - Bevel3.Left - Bevel3.Width,
  3680.       DriveBox.Height);
  3681. end;
  3683. procedure TspOpenPictureDlgForm.DCBChange(Sender: TObject);
  3684. begin
  3685.   FromDCB := True;
  3686.   if not FromFLV and not FromFTV and (DirTreeView <> nil)
  3687.   then DirTreeView.Directory := DriveBox.Drive + ':';
  3688.   FromDCB := False;
  3689. end;
  3691. procedure TspOpenPictureDlgForm.FLVChange;
  3692. var
  3693.   OldPosition: Integer;
  3694. begin
  3695.   FromFLV := True;
  3696.   if (not FromFTV) and (DirTreeView.FSelectedPath <> FileListView.Directory)
  3697.   then
  3698.     begin
  3699.       DirTreeView.Directory := FileListView.Directory;
  3700.       DirTreeViewPanel.Caption := DirTreeView.Selected.Text;
  3701.     end;
  3702.   if FileListView.Selected <> nil
  3703.   then
  3704.   if FileListView.IsFile(FileListView.Selected)
  3705.   then
  3706.     begin
  3707.       FileNameEdit.Text := FileListView.Selected.Caption;
  3708.       try
  3709.         Image.Picture.LoadFromFile(Self.FileListView.Directory +  FileNameEdit.Text);
  3710.       finally
  3711.         if not Image.Stretch
  3712.         then
  3713.           begin
  3714.             Image.Width := Image.Picture.Width;
  3715.             Image.Height := Image.Picture.Height;
  3716.           end;
  3717.       end;
  3718.     end
  3719.   else
  3720.     FileNameEdit.Text := '';
  3721.   FromFLV := False;
  3722. end;
  3724. procedure TspOpenPictureDlgForm.FLVDBLClick(Sender: TObject);
  3725. begin
  3726.   if (FileListView.Selected <> nil) and
  3727.      (FileListView.Selected.SubItems[5] = 'file')
  3728.   then
  3729.     begin
  3730.       FileNameEdit.Text := FileListView.Selected.Caption;
  3731.       FileName := Self.FileListView.Directory + FileNameEdit.Text;
  3732.       ModalResult := mrOk;
  3733.     end;
  3734. end;
  3736. procedure TspOpenPictureDlgForm.DTVChange;
  3737. begin
  3738.   FromFTV := True;
  3739.   if not FromFLV
  3740.   then
  3741.     begin
  3742.       FileListView.Directory := DirTreeView.GetPathFromNode(Node);
  3743.       DirTreeViewPanel.Caption := DirTreeView.Selected.Text;
  3744.     end;
  3745.   if not FromDCB and (DriveBox <> nil) and (DriveBox.Drives.Count > 0)
  3746.      and (DirTreeView.Directory <> '')
  3747.   then
  3748.     DriveBox.Drive := DirTreeView.Directory[1];
  3749.   FromFTV := False;
  3750. end;
  3752. procedure TspOpenPictureDlgForm.FCBChange(Sender: TObject);
  3753. begin
  3754.   FileListView.Mask := FilterComboBox.Mask;
  3755. end;
  3757. constructor TspSkinOpenPictureDialog.Create(AOwner: TComponent);
  3758. begin
  3759.   inherited Create(AOwner);
  3760.   DialogWidth := 0;
  3761.   DialogHeight := 0;
  3762.   DialogStretch := False;
  3763.   FLVHeaderSkinDataName := 'resizebutton';
  3764.   FAlphaBlend := False;
  3765.   FAlphaBlendAnimation := False;
  3766.   FAlphaBlendValue := 200;
  3767.   FSaveMode := False;
  3768.   FTitle := 'Open picture';
  3769.   FDefaultFont := TFont.Create;
  3770.   with FDefaultFont do
  3771.   begin
  3772.     Name := 'Arial';
  3773.     Style := [];
  3774.     Height := 14;
  3775.   end;
  3776.   FInitialDir := '';
  3777.   FFilter := 'All (*.bmp;*.ico;*.emf;*.wmf)|*.bmp;*.ico;*.emf;*.wmf|Bitmaps (*.bmp)|*.bmp|Icons (*.ico)|*.ico|Enhanced Metafiles (*.emf)|*.emf|Metafiles (*.wmf)|*.wmf';
  3778.   FFilterIndex := 0;
  3779.   FFileName := '';
  3780.   TreePanelWidth := 150;
  3781.   ImagePanelWidth := 200;
  3782.   ListViewStyle := vsList;
  3783. end;
  3785. destructor TspSkinOpenPictureDialog.Destroy;
  3786. begin
  3787.   FDefaultFont.Free;
  3788.   inherited Destroy;
  3789. end;
  3791. procedure TspSkinOpenPictureDialog.SetDefaultFont;
  3792. begin
  3793.   FDefaultFont.Assign(Value);
  3794. end;
  3796. procedure TspSkinOpenPictureDialog.Notification;
  3797. begin
  3798.   inherited Notification(AComponent, Operation);
  3799.   if (Operation = opRemove) and (AComponent = FSD) then FSD := nil;
  3800.   if (Operation = opRemove) and (AComponent = FCtrlFSD) then FCtrlFSD := nil;
  3801. end;
  3803. function TspSkinOpenPictureDialog.GetTitle: string;
  3804. begin
  3805.   Result := FTitle;
  3806. end;
  3808. procedure TspSkinOpenPictureDialog.SetTitle(const Value: string);
  3809. begin
  3810.   FTitle := Value;
  3811. end;
  3813. procedure TspSkinOpenPictureDialog.Change;
  3814. begin
  3815.   if Assigned(FOnChange) then FOnChange(Self);
  3816. end;
  3818. function TspSkinOpenPictureDialog.Execute: Boolean;
  3819. var
  3820.   i, FW, FH: Integer;
  3821.   Path: String;
  3822. begin
  3823.   FDlgFrm := TspOpenPictureDlgForm.CreateEx(Application, FSaveMode);
  3824.   with FDlgFrm do
  3825.   try
  3826.     Caption := Self.Title;
  3827.     DSF.BorderIcons := [];
  3828.     DSF.SkinData := FSD;
  3829.     DSF.MenusSkinData := CtrlSkinData;
  3830.     DSF.AlphaBlend := AlphaBlend;
  3831.     DSF.AlphaBlendAnimation := AlphaBlendAnimation;
  3832.     DSF.AlphaBlendValue := AlphaBlendValue;
  3834.     DirTreeView.SkinData := FCtrlFSD;
  3835.     DirTreeView.Color := clWindow;
  3836.     ImagePanel.Width := ImagePanelWidth;
  3837.     DirTreeViewPanel.Width := TreePanelWidth;
  3838.     DirTreeViewPanel.RollState := TreePanelRollState;
  3839.     case ListViewStyle of
  3840.       vsList: ListToolButton.Down := True;
  3841.       vsReport: ReportToolButton.Down := True;
  3842.       vsIcon: IconToolButton.Down := True;
  3843.       vsSmallIcon: SmallIconToolButton.Down := True;
  3844.     end;
  3845.     FileListView.ViewStyle := ListViewStyle;
  3847.     if (FFileName <> '') and (ExtractFilePath(FFileName) <> '')
  3848.     then
  3849.       begin
  3850.         Path := ExtractFilePath(FFileName);
  3851.         FileListView.Directory := Path;
  3852.         FileNameEdit.Text := ExtractFileName(FFileName);
  3853.         for i := 0 to FileListView.Items.Count - 1 do
  3854.           if FileListView.Items[i].Caption = FileNameEdit.Text
  3855.           then
  3856.             begin
  3857.               FileListView.Selected := FileListView.Items[i];
  3858.               Break;
  3859.             end;
  3860.       end
  3861.     else
  3862.       begin
  3863.         if FInitialDir = ''
  3864.         then
  3865.           FileListView.Directory := ExtractFilePath(Application.ExeName)
  3866.         else
  3867.           FileListView.Directory := FInitialDir;
  3868.         FileNameEdit.Text := FFileName;
  3869.       end;
  3871.     FromFLV := True;
  3872.     DriveBox.Drive := FileListView.Directory[1];
  3873.     FromFLV := False;
  3875.     FileListView.HeaderSkinDataName := FLVHeaderSkinDataName;
  3876.     FileListView.SkinData := FCtrlFSD;
  3878.     FilterComboBox.Filter := Self.Filter;
  3879.     FilterComboBox.ItemIndex := FFilterIndex;
  3880.     //
  3881.     ImagePanel.SkinData := FCtrlFSD;
  3882.     ScrollBox.SkinData := FCtrlFSD;
  3883.     SBHScrollBar.SkinData := FCtrlFSD;
  3884.     SBVScrollBar.SkinData := FCtrlFSD;
  3885.     StretchButton.SkinData := FCtrlFSD;
  3886.     //
  3887.     DirTreeViewPanel.SkinData := FCtrlFSD;
  3888.     FileListViewPanel.SkinData := FCtrlFSD;
  3889.     BottomPanel.SkinData := FCtrlFSD;
  3890.     ToolPanel.SkinData := FCtrlFSD;
  3891.     Bevel1.SkinData := FCtrlFSD;
  3892.     Bevel2.SkinData := FCtrlFSD;
  3893.     Bevel3.SkinData := FCtrlFSD;
  3894.     DriveBox.SkinData := FCtrlFSD;
  3895.     Bevel4.SkinData := FCtrlFSD;
  3896.     BackToolButton.SkinData := FCtrlFSD;
  3897.     ListToolButton.SkinData := FCtrlFSD;
  3898.     ReportToolButton.SkinData := FCtrlFSD;
  3899.     IconToolButton.SkinData := FCtrlFSD;
  3900.     SmallIconToolButton.SkinData := FCtrlFSD;
  3901.     SortNameToolButton.SkinData := FCtrlFSD;
  3902.     SortSizeToolButton.SkinData := FCtrlFSD;
  3903.     SortDateToolButton.SkinData := FCtrlFSD;
  3904.     //
  3905.     Splitter.SkinData := FCtrlFSD;
  3906.     Splitter2.SkinData := FCtrlFSD;
  3907.     DTVHScrollBar.SkinData := FCtrlFSD;
  3908.     DTVVScrollBar.SkinData := FCtrlFSD;
  3909.     FLVHScrollBar.SkinData := FCtrlFSD;
  3910.     FLVVScrollBar.SkinData := FCtrlFSD;
  3911.     FileNameEdit.SkinData := FCtrlFSD;
  3912.     FilterComboBox.SkinData := FCtrlFSD;
  3913.     OpenButton.SkinData := FCtrlFSD;
  3914.     CancelButton.SkinData := FCtrlFSD;
  3915.     OpenFileLabel.SkinData := FCtrlFSD;
  3916.     FileTypeLabel.SkinData := FCtrlFSD;
  3917.     //
  3919.     if (DialogWidth <> 0)
  3920.     then
  3921.       begin
  3922.         FW := DialogWidth;
  3923.         FH := DialogHeight;
  3924.       end
  3925.     else
  3926.       begin
  3927.         FW := 600;
  3928.         FH := 300;
  3929.       end;
  3932.     if (SkinData <> nil) and not SkinData.Empty
  3933.     then
  3934.       begin
  3935.         if FW < DSF.GetMinWidth then FW := DSF.GetMinWidth;
  3936.         if FH < DSF.GetMinHeight then FH := DSF.GetMinHeight;
  3937.       end;
  3939.     ClientWidth := FW;
  3940.     ClientHeight := FH;
  3942.     StretchButton.Down := DialogStretch;
  3943.     if StretchButton.Down
  3944.     then
  3945.       begin
  3946.         Image.Visible := False;
  3947.         ScrollBox.UpDateScrollRange;
  3948.         Image.Stretch := True;
  3949.         Image.Align := alClient;
  3950.         Image.Visible := True;
  3951.       end;
  3953.     Result := (ShowModal = mrOk);
  3955.     DialogStretch := StretchButton.Down;
  3956.     ImagePanelWidth := ImagePanel.Width;
  3958.     if DirTreeViewPanel.RollState
  3959.     then
  3960.       TreePanelWidth := DirTreeViewPanel.RealWidth
  3961.     else
  3962.       TreePanelWidth := DirTreeViewPanel.Width;
  3964.     TreePanelRollState := DirTreeViewPanel.RollState;
  3965.     ListViewStyle := FileListView.ViewStyle;
  3967.     DialogWidth := ClientWidth;
  3968.     DialogHeight := ClientHeight;
  3970.     if Result
  3971.     then
  3972.       begin
  3973.         Self.FFileName := FDlgFrm.FileName;
  3974.         Change;
  3975.       end;
  3976.   finally
  3977.     Free;
  3978.     FDlgFrm := nil;
  3979.   end;
  3980. end;
  3982. constructor TspSkinSavePictureDialog.Create(AOwner: TComponent);
  3983. begin
  3984.   inherited;
  3985.   FTitle := 'Save picture';
  3986.   FSaveMode := True;
  3987. end;
  3989. end.