Set default sort as name
Replace CnProjectViewBaseFrm.pas file at attachs and recompile CnWizards.
CnProjectViewBaseFrm.pas:
{******************************************************************************}
{ CnPack For Delphi/C++Builder }
{ 中国人自己的开放源码第三方开发包 }
{ (C)Copyright 2001-2006 CnPack 开发组 }
{ ------------------------------------ }
{ }
{ 本开发包是开源的自由软件,您可以遵照 CnPack 的发布协议来修 }
{ 改和重新发布这一程序。 }
{ }
{ 发布这一开发包的目的是希望它有用,但没有任何担保。甚至没有 }
{ 适合特定目的而隐含的担保。更详细的情况请参阅 CnPack 发布协议。 }
{ }
{ 您应该已经和开发包一起收到一份 CnPack 发布协议的副本。如果 }
{ 还没有,可访问我们的网站: }
{ }
{ 网站地址:http://www.cnpack.org }
{ 电子邮件:master@cnpack.org }
{ }
{******************************************************************************}
unit CnProjectViewBaseFrm;
{ |<PRE>
================================================================================
* 软件名称:CnWizards IDE 专家工具包
* 单元名称:工程扩展工具窗体列表单元列表基类
* 单元作者:Leeon (real-like@163.com); 张伟(Alan) BeyondStudio@163.com
* 备 注:
* 开发平台:PWin2000Pro + Delphi 5.5
* 兼容测试:PWin2000 + Delphi 5/6/7
* 本 地 化:该窗体中的字符串支持本地化处理方式
* 单元标识:$Id: CnProjectViewBaseFrm.pas,v 1.10 2006/01/13 12:39:10 passion Exp $
* 修改记录:2004.02.22 V1.1
* 重写所有代码
* 2004.02.08 V1.0
* 创建单元
================================================================================
|</PRE>}
interface
{$I CnPack.inc}
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ImgList, Contnrs, ActnList,
{$IFDEF COMPILER6_UP}
StrUtils,
{$ENDIF COMPILER6_UP}
ComCtrls, StdCtrls, ExtCtrls, Math, ToolWin, Clipbrd, IniFiles, ToolsAPI,
CnCommon, CnConsts, CnWizConsts, CnWizOptions, CnWizUtils, CnIni, CnWizIdeUtils,
CnWizMultiLang, CnWizShareImages, CnWizNotifier;
type
//==============================================================================
// 工程信息类
//==============================================================================
{ TCnProjectInfo }
TCnProjectInfo = class
Name: string;
FileName: string;
InfoList: TObjectList;
constructor Create;
destructor Destroy; override;
end;
//==============================================================================
// 工程组单元窗体列表基类窗体
//==============================================================================
{ TCnProjectViewBaseForm }
TCnProjectViewBaseForm = class(TCnTranslateForm)
actAttribute: TAction;
actClose: TAction;
actCopy: TAction;
actHelp: TAction;
actHookIDE: TAction;
ActionList: TActionList;
actMatchAny: TAction;
actMatchStart: TAction;
actOpen: TAction;
actQuery: TAction;
actSelectAll: TAction;
actSelectInvert: TAction;
actSelectNone: TAction;
cbbProjectList: TComboBox;
edtMatchSearch: TEdit;
lblProject: TLabel;
lblSearch: TLabel;
lvList: TListView;
pnlHeader: TPanel;
StatusBar: TStatusBar;
btnMatchAny: TToolButton;
btnAttribute: TToolButton;
btnClose: TToolButton;
btnCopy: TToolButton;
btnHelp: TToolButton;
btnHookIDE: TToolButton;
btnOpen: TToolButton;
btnQuery: TToolButton;
btnSelectInvert: TToolButton;
btnSelectAll: TToolButton;
btnSep1: TToolButton;
btnSep3: TToolButton;
btnSep4: TToolButton;
btnSep5: TToolButton;
btnSep6: TToolButton;
btnSep7: TToolButton;
btnSep8: TToolButton;
btnMatchStart: TToolButton;
btnSelectNone: TToolButton;
ToolBar: TToolBar;
actFont: TAction;
btnFont: TToolButton;
dlgFont: TFontDialog;
procedure lvListDblClick(Sender: TObject);
procedure edtMatchSearchKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure lvListColumnClick(Sender: TObject; Column: TListColumn);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure cbbProjectListChange(Sender: TObject);
procedure edtMatchSearchChange(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure lvListCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
procedure actSelectAllExecute(Sender: TObject);
procedure actSelectNoneExecute(Sender: TObject);
procedure actSelectInvertExecute(Sender: TObject);
procedure actCopyExecute(Sender: TObject);
procedure actFontExecute(Sender: TObject);
procedure actCloseExecute(Sender: TObject);
procedure actHelpExecute(Sender: TObject);
procedure ActionListUpdate(Action: TBasicAction; var Handled: Boolean);
procedure actAttributeExecute(Sender: TObject);
procedure actMatchStartExecute(Sender: TObject);
procedure actMatchAnyExecute(Sender: TObject);
procedure actQueryExecute(Sender: TObject);
procedure lvListSelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean);
procedure actHookIDEExecute(Sender: TObject);
procedure actOpenExecute(Sender: TObject);
private
FSortIndex: Integer;
FSortDown: Boolean;
FListViewWidthStr: string;
FProjectListSelectedAllProject: Boolean;
function GetMatchAny: Boolean;
procedure SetMatchAny(const Value: Boolean);
protected
NeedInitProjectControls: Boolean;
ProjectList: TObjectList;
CurrList: TList;
function DoSelectOpenedItem: string; virtual; abstract;
procedure DoSelectItemChanged(Sender: TObject); virtual;
procedure DoUpdateListView; virtual; abstract;
procedure DoSortListView; virtual;
{* 供子类重载用,被 UpdateListView 调用}
function GetSelectedFileName: string; virtual; abstract;
procedure CreateList; virtual;
{* 窗体 OnCreate 时被第一个调用,用来初始化数据 }
procedure UpdateComboBox; virtual;
{* 窗体 OnCreate 时被第二个调用,用来初始化 ComboBox 中的内容}
procedure UpdateListView; virtual;
{* 窗体 OnCreate 时被第三个调用,用来更新 ListView 中的内容,同时还在其他响应输入的地方调用}
procedure UpdateStatusBar; virtual;
procedure OpenSelect; virtual; abstract;
procedure FontChanged(AFont: TFont); virtual;
procedure DrawListItem(ListView: TCustomListView; Item: TListItem); virtual; abstract;
procedure SelectFirstItem;
procedure LoadProjectSettings(Ini: TCustomIniFile; aSection: string);
procedure SaveProjectSettings(Ini: TCustomIniFile; aSection: string);
public
procedure SelectOpenedItem;
procedure LoadSettings(Ini: TCustomIniFile; aSection: string); virtual;
procedure SaveSettings(Ini: TCustomIniFile; aSection: string); virtual;
property SortIndex: Integer read FSortIndex write FSortIndex;
property SortDown: Boolean read FSortDown write FSortDown;
property MatchAny: Boolean read GetMatchAny write SetMatchAny;
end;
implementation
{$R *.DFM}
{$IFDEF Debug}
uses
CnDebug;
{$ENDIF Debug}
//==============================================================================
// 工程信息类
//==============================================================================
{ TCnProjectInfo }
constructor TCnProjectInfo.Create;
begin
InfoList := TObjectList.Create;
end;
destructor TCnProjectInfo.Destroy;
begin
FreeAndNil(InfoList);
inherited Destroy;
end;
//==============================================================================
// 工程组单元窗体列表基类窗体
//==============================================================================
{ TCnProjectViewBaseForm }
procedure TCnProjectViewBaseForm.FormCreate(Sender: TObject);
begin
// 默认以名称排序
FSortIndex := 0;
lvList.DoubleBuffered := True;
ProjectList := TObjectList.Create;
CurrList := TList.Create;
NeedInitProjectControls := True;
CreateList;
UpdateComboBox;
end;
procedure TCnProjectViewBaseForm.FormShow(Sender: TObject);
begin
UpdateListView;
SelectOpenedItem;
{$IFDEF BDS}
SetListViewWidthString(lvList, FListViewWidthStr);
{$ENDIF}
end;
procedure TCnProjectViewBaseForm.FormDestroy(Sender: TObject);
begin
ProjectList.Free;
CurrList.Free;
end;
procedure TCnProjectViewBaseForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
lvListDblClick(Sender);
Key := #0;
end
else if Key = #27 then
begin
ModalResult := mrCancel;
Key := #0;
end;
end;
procedure TCnProjectViewBaseForm.ActionListUpdate(Action: TBasicAction;
var Handled: Boolean);
begin
actSelectAll.Enabled := lvList.Items.Count > 0;
actSelectNone.Enabled := lvList.Items.Count > 0;
actSelectInvert.Enabled := lvList.Items.Count > 0;
actOpen.Enabled := lvList.SelCount > 0;
actAttribute.Enabled := lvList.SelCount > 0;
actCopy.Enabled := lvList.SelCount > 0;
Handled := True;
end;
procedure TCnProjectViewBaseForm.actCopyExecute(Sender: TObject);
var
i: Integer;
AList: TStringList;
begin
AList := TStringList.Create;
try
with lvList do
begin
for i := 0 to Pred(Items.Count) do
if Items.Item[i].Selected and (Items.Item[i].Caption <> '') then
AList.Add(Items[i].Caption);
end;
finally
if AList.Count > 0 then
Clipboard.AsText := TrimRight(AList.Text);
FreeAndNil(AList);
end;
end;
procedure TCnProjectViewBaseForm.actSelectAllExecute(Sender: TObject);
var
i: Integer;
begin
with lvList do
for i := 0 to Pred(Items.Count) do
Items[i].Selected := True;
end;
procedure TCnProjectViewBaseForm.actSelectNoneExecute(Sender: TObject);
begin
lvList.Selected := nil;
end;
procedure TCnProjectViewBaseForm.actSelectInvertExecute(Sender: TObject);
var
i: Integer;
begin
with lvList do
for i := Pred(Items.Count) downto 0 do
Items[i].Selected := not Items[i].Selected;
end;
procedure TCnProjectViewBaseForm.actAttributeExecute(Sender: TObject);
var
FileName: string;
begin
FileName := GetSelectedFileName;
if FileExists(FileName) then
FileProperties(FileName)
else
InfoDlg(SCnProjExtFileNotExistOrNotSave, SCnInformation, 64);
end;
procedure TCnProjectViewBaseForm.actOpenExecute(Sender: TObject);
begin
OpenSelect;
end;
procedure TCnProjectViewBaseForm.actHookIDEExecute(Sender: TObject);
begin
actHookIDE.Checked := not actHookIDE.Checked;
end;
procedure TCnProjectViewBaseForm.actMatchStartExecute(Sender: TObject);
begin
MatchAny := False;
UpdateListView;
end;
procedure TCnProjectViewBaseForm.actMatchAnyExecute(Sender: TObject);
begin
MatchAny := True;
UpdateListView;
end;
procedure TCnProjectViewBaseForm.FontChanged(AFont: TFont);
begin
end;
procedure TCnProjectViewBaseForm.actFontExecute(Sender: TObject);
begin
dlgFont.Font := lvList.Font;
if dlgFont.Execute then
begin
lvList.Font := dlgFont.Font;
FontChanged(dlgFont.Font);
end;
end;
procedure TCnProjectViewBaseForm.actQueryExecute(Sender: TObject);
begin
actQuery.Checked := not actQuery.Checked;
end;
procedure TCnProjectViewBaseForm.actCloseExecute(Sender: TObject);
begin
ModalResult := mrCancel;
end;
procedure TCnProjectViewBaseForm.edtMatchSearchKeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
if not (((Key = VK_F4) and (ssAlt in Shift)) or
(Key in [VK_DELETE, VK_LEFT, VK_RIGHT]) or
((Key in [VK_HOME, VK_END]) and not (ssCtrl in Shift)) or
((Key in [VK_INSERT]) and ((ssShift in Shift) or (ssCtrl in Shift)))) then
begin
SendMessage(lvList.Handle, WM_KEYDOWN, Key, 0);
Key := 0;
end;
end;
procedure TCnProjectViewBaseForm.actHelpExecute(Sender: TObject);
begin
ShowFormHelp;
end;
function TCnProjectViewBaseForm.GetMatchAny: Boolean;
begin
Result := actMatchAny.Checked;
end;
procedure TCnProjectViewBaseForm.SetMatchAny(const Value: Boolean);
begin
actMatchAny.Checked := Value;
actMatchStart.Checked := not Value;
end;
procedure TCnProjectViewBaseForm.DoSortListView;
begin
lvList.CustomSort(nil, 0);
end;
procedure TCnProjectViewBaseForm.lvListColumnClick(Sender: TObject;
Column: TListColumn);
begin
if FSortIndex = Column.Index then
FSortDown := not FSortDown
else
FSortIndex := Column.Index;
DoSortListView;
end;
procedure TCnProjectViewBaseForm.lvListDblClick(Sender: TObject);
begin
OpenSelect;
end;
procedure TCnProjectViewBaseForm.cbbProjectListChange(Sender: TObject);
begin
if Sender is TComboBox then
begin
if TComboBox(Sender).ItemIndex = cbbProjectList.Items.IndexOf(SCnProjExtCurrentProject) then
begin
FProjectListSelectedAllProject := False;
end
else if TComboBox(Sender).ItemIndex = cbbProjectList.Items.IndexOf(SCnProjExtProjectAll) then
begin
FProjectListSelectedAllProject := True;
end;
end;
if Visible then
begin
UpdateListView;
SelectOpenedItem;
end;
end;
const
csMatchAny = 'MatchAny';
csFont = 'Font';
csSortIndex = 'SortIndex';
csSortDown = 'SortDown';
csCurrentPrj = 'SelectCurrentProject';
csHookIDE = 'HookIDE';
csOpenMultiUnitQuery = 'Query';
csWidth = 'Width';
csHeight = 'Height';
csListViewWidth = 'ListViewWidth';
procedure TCnProjectViewBaseForm.LoadProjectSettings(Ini: TCustomIniFile;
aSection: string);
begin
with Ini do
begin
if ReadBool(aSection, csCurrentPrj, False) then
begin
cbbProjectList.ItemIndex := cbbProjectList.Items.IndexOf(SCnProjExtCurrentProject);
cbbProjectListChange(nil);
end
else
cbbProjectList.ItemIndex := cbbProjectList.Items.IndexOf(SCnProjExtProjectAll);
actHookIDE.Checked := ReadBool(aSection, csHookIDE, True);
actQuery.Checked := ReadBool(aSection, csOpenMultiUnitQuery, True);
end;
end;
procedure TCnProjectViewBaseForm.SaveProjectSettings(Ini: TCustomIniFile;
aSection: string);
begin
with Ini do
begin
if not FProjectListSelectedAllProject then
WriteBool(aSection, csCurrentPrj, True)
else
WriteBool(aSection, csCurrentPrj, False);
WriteBool(aSection, csHookIDE, actHookIDE.Checked);
WriteBool(aSection, csOpenMultiUnitQuery, actQuery.Checked);
end;
end;
procedure TCnProjectViewBaseForm.LoadSettings(Ini: TCustomIniFile; aSection: string);
begin
with TCnIniFile.Create(Ini) do
try
MatchAny := ReadBool(aSection, csMatchAny, True);
lvList.Font := ReadFont(aSection, csFont, lvList.Font);
dlgFont.Font := lvList.Font;
FontChanged(dlgFont.Font);
FSortIndex := ReadInteger(aSection, csSortIndex, 0);
FSortDown := ReadBool(aSection, csSortDown, False);
lvList.CustomSort(nil, 0); // 按保存的设置排序
Width := ReadInteger(aSection, csWidth, Width);
Height := ReadInteger(aSection, csHeight, Height);
CenterForm(Self);
FListViewWidthStr := ReadString(aSection, csListViewWidth, '');
SetListViewWidthString(lvList, FListViewWidthStr);
finally
Free;
end;
if NeedInitProjectControls then
LoadProjectSettings(Ini, aSection);
end;
procedure TCnProjectViewBaseForm.SaveSettings(Ini: TCustomIniFile; aSection: string);
begin
with TCnIniFile.Create(Ini) do
try
WriteBool(aSection, csMatchAny, MatchAny);
WriteInteger(aSection, csSortIndex, FSortIndex);
WriteBool(aSection, csSortDown, FSortDown);
WriteFont(aSection, csFont, lvList.Font);
WriteInteger(aSection, csWidth, Width);
WriteInteger(aSection, csHeight, Height);
WriteString(aSection, csListViewWidth, GetListViewWidthString(lvList));
finally
Free;
end;
if NeedInitProjectControls then
SaveProjectSettings(Ini, aSection);
end;
procedure TCnProjectViewBaseForm.UpdateStatusBar;
begin
end;
procedure TCnProjectViewBaseForm.SelectFirstItem;
begin
with lvList do
begin
Selected := nil;
Selected := Items[0];
ItemFocused := Selected;
end;
end;
procedure TCnProjectViewBaseForm.SelectOpenedItem;
var
i: Integer;
aCurrentName: string;
begin
with lvList do
begin
if Items.Count = 0 then
Exit;
aCurrentName := DoSelectOpenedItem;
SelectFirstItem;
if aCurrentName = '' then
Exit;
for i := 0 to Pred(Items.Count) do
if AnsiSameText(Items[i].Caption, aCurrentName) then
begin
Selected := nil;
Items[i].Selected := True;
ItemFocused := Selected;
Selected.MakeVisible(False);
Break;
end;
end;
end;
procedure TCnProjectViewBaseForm.UpdateComboBox;
begin
end;
procedure TCnProjectViewBaseForm.CreateList;
begin
end;
procedure TCnProjectViewBaseForm.UpdateListView;
begin
DoUpdateListView;
RemoveListViewSubImages(lvList);
end;
procedure TCnProjectViewBaseForm.DoSelectItemChanged(Sender: TObject);
begin
UpdateStatusBar;
StatusBar.Invalidate;
end;
procedure TCnProjectViewBaseForm.edtMatchSearchChange(Sender: TObject);
begin
UpdateListView;
end;
procedure TCnProjectViewBaseForm.lvListCustomDrawItem(
Sender: TCustomListView; Item: TListItem; State: TCustomDrawState;
var DefaultDraw: Boolean);
begin
DrawListItem(Sender, Item);
end;
procedure TCnProjectViewBaseForm.lvListSelectItem(Sender: TObject;
Item: TListItem; Selected: Boolean);
begin
CnWizNotifierServices.ExecuteOnApplicationIdle(DoSelectItemChanged);
end;
end.
[
Last edited by kendling on 2006-3-18 at 17:38 ]