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

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

Delphi控件源码

开发平台：

Delphi

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