david
3b29f73ece
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@8 05c56307-c608-d34a-929d-697000501d7a
344 lines
10 KiB
ObjectPascal
344 lines
10 KiB
ObjectPascal
unit StylesMultiDemoMain;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, Forms, SysUtils, cxStyles, cxCustomData, cxGraphics, cxFilter,
|
|
cxEdit, DB, cxDBData, Dialogs,Classes, ActnList, ImgList, Controls, Menus,
|
|
StdCtrls, ExtCtrls, ShellAPI, cxButtons, cxData, cxClasses, cxControls,
|
|
ComCtrls, cxLookAndFeelPainters, cxContainer, cxRadioGroup, cxListBox, cxTL,
|
|
DemoBasicMain, cxLookAndFeels, cxMaskEdit, cxMemo, cxCurrencyEdit,
|
|
cxCheckBox, cxDBLookupComboBox, cxInplaceContainer, cxDBTL, cxTLData,
|
|
cxTextEdit, cxCalc;
|
|
|
|
type
|
|
TcxStyleRepositoryType = (shtNone, shtPredefined, shtUserDefined);
|
|
|
|
TStylesMultiDemoMainForm = class(TDemoBasicMainForm)
|
|
miGridLookFeel: TMenuItem;
|
|
miKind: TMenuItem;
|
|
miFlat: TMenuItem;
|
|
miStandard: TMenuItem;
|
|
miUltraFlat: TMenuItem;
|
|
miNativeStyle: TMenuItem;
|
|
miSeparator2: TMenuItem;
|
|
pnlLeft: TPanel;
|
|
Splitter: TSplitter;
|
|
actSaveToFile: TAction;
|
|
OpenDialog: TOpenDialog;
|
|
SaveDialog: TSaveDialog;
|
|
actLoadFromFile: TAction;
|
|
gbUserDefined: TGroupBox;
|
|
gbPredefined: TGroupBox;
|
|
btnLoad: TcxButton;
|
|
btnSave: TcxButton;
|
|
btnEdit: TcxButton;
|
|
actEditStyleSheet: TAction;
|
|
pnlCurrentStyleSheet: TPanel;
|
|
cxDBTreeList: TcxDBTreeList;
|
|
cxDBTreeListID: TcxDBTreeListColumn;
|
|
cxDBTreeListPARENTID: TcxDBTreeListColumn;
|
|
cxDBTreeListNAME: TcxDBTreeListColumn;
|
|
cxDBTreeListPHONE: TcxDBTreeListColumn;
|
|
cxDBTreeListFAX: TcxDBTreeListColumn;
|
|
cxDBTreeListBUDGET: TcxDBTreeListColumn;
|
|
cxDBTreeListVACANCY: TcxDBTreeListColumn;
|
|
cxDBTreeListManager: TcxDBTreeListColumn;
|
|
cxDBTreeListManagerPhone: TcxDBTreeListColumn;
|
|
cxDBTreeListManagerEmail: TcxDBTreeListColumn;
|
|
cxDBTreeListManagerAdress: TcxDBTreeListColumn;
|
|
tlStyleSheets: TcxTreeList;
|
|
clnRadio: TcxTreeListColumn;
|
|
clnGroupName: TcxTreeListColumn;
|
|
Office111: TMenuItem;
|
|
procedure LookAndFeelChange(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure actSaveToFileExecute(Sender: TObject);
|
|
procedure actLoadFromFileExecute(Sender: TObject);
|
|
procedure actEditStyleSheetExecute(Sender: TObject);
|
|
procedure FormShow(Sender: TObject);
|
|
procedure FormActivate(Sender: TObject);
|
|
procedure tlStyleSheetsIsGroupNode(Sender: TObject;
|
|
ANode: TcxTreeListNode; var IsGroup: Boolean);
|
|
procedure tlStyleSheetsStylesGetContentStyle(Sender, AItem: TObject;
|
|
ANode: TcxTreeListNode; var AStyle: TcxStyle);
|
|
procedure tlStyleSheetsStylesGetNodeIndentStyle(Sender: TObject;
|
|
ANode: TcxTreeListNode; ALevel: Integer; var AStyle: TcxStyle);
|
|
procedure tlStyleSheetsSelectionChanged(Sender: TObject);
|
|
procedure cxDBTreeListInitInsertingRecord(Sender: TObject;
|
|
AFocusedNode: TcxTreeListDataNode; var AHandled: Boolean);
|
|
procedure cxDBTreeListDragOver(Sender, Source: TObject; X, Y: Integer;
|
|
State: TDragState; var Accept: Boolean);
|
|
private
|
|
function GetCurrentStyleSheet: TcxTreeListStyleSheet;
|
|
procedure CreateStyleSheetsList(AStyleRepositoryType: TcxStyleRepositoryType);
|
|
procedure UpdateGridStyleSheets(const AStyleSheet: TcxTreeListStyleSheet);
|
|
procedure ChangeVisibility(AType: TcxStyleRepositoryType);
|
|
procedure ClearUserDefinedStyleSheets;
|
|
procedure LoadUserDefinedStyleSheets(AFileName: TFileName);
|
|
procedure SaveUserDefinedStyleSheets(AFileName: TFileName);
|
|
procedure SelectFistChild(AStyleRepositoryType: TcxStyleRepositoryType);
|
|
end;
|
|
|
|
var
|
|
StylesMultiDemoMainForm: TStylesMultiDemoMainForm;
|
|
|
|
implementation
|
|
|
|
uses
|
|
StylesMultiDemoData, cxStyleSheetEditor, cxTLStyleSheetPreview;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TStylesMultiDemoMainForm.LookAndFeelChange(Sender: TObject);
|
|
begin
|
|
if TMenuItem(Sender).Tag > 3 then
|
|
begin
|
|
cxLookAndFeelController.NativeStyle :=
|
|
not cxLookAndFeelController.NativeStyle;
|
|
TMenuItem(Sender).Checked := cxLookAndFeelController.NativeStyle;
|
|
end
|
|
else
|
|
begin
|
|
TMenuItem(Sender).Checked := True;
|
|
cxLookAndFeelController.Kind := TcxLookAndFeelKind(TMenuItem(Sender).Tag);
|
|
cxLookAndFeelController.NativeStyle := False;
|
|
miNativeStyle.Checked := False;
|
|
end;
|
|
end;
|
|
|
|
procedure TStylesMultiDemoMainForm.FormCreate(Sender: TObject);
|
|
begin
|
|
{ remove/add the closing brace on this line to disable/enable the following code}
|
|
|
|
with StylesMultiDemoDataDM do
|
|
begin
|
|
CreateStyleSheetsList(shtUserDefined);
|
|
CreateStyleSheetsList(shtPredefined);
|
|
end;
|
|
SelectFistChild(shtPredefined);
|
|
cxDBTreeList.FullExpand;
|
|
|
|
//}
|
|
end;
|
|
|
|
procedure TStylesMultiDemoMainForm.UpdateGridStyleSheets(const AStyleSheet: TcxTreeListStyleSheet);
|
|
begin
|
|
{ remove/add the closing brace on this line to disable/enable the following code}
|
|
|
|
if GetCurrentStyleSheet = AStyleSheet then Exit;
|
|
cxDBTreeList.Styles.StyleSheet := AStyleSheet;
|
|
if AStyleSheet <> nil then
|
|
pnlCurrentStyleSheet.Caption := AStyleSheet.Caption
|
|
else
|
|
pnlCurrentStyleSheet.Caption := 'None';
|
|
cxDBTreeList.Update;
|
|
//}
|
|
end;
|
|
|
|
procedure TStylesMultiDemoMainForm.actSaveToFileExecute(Sender: TObject);
|
|
begin
|
|
with SaveDialog do
|
|
if Execute then
|
|
SaveUserDefinedStyleSheets(FileName);
|
|
end;
|
|
|
|
procedure TStylesMultiDemoMainForm.actLoadFromFileExecute(Sender: TObject);
|
|
begin
|
|
with OpenDialog do
|
|
if Execute then
|
|
begin
|
|
LoadUserDefinedStyleSheets(FileName);
|
|
SelectFistChild(shtUserDefined);
|
|
end;
|
|
end;
|
|
|
|
procedure TStylesMultiDemoMainForm.ChangeVisibility(AType: TcxStyleRepositoryType);
|
|
begin
|
|
btnEdit.Enabled := AType = shtUserDefined;
|
|
btnSave.Enabled := AType = shtUserDefined;
|
|
end;
|
|
|
|
procedure TStylesMultiDemoMainForm.actEditStyleSheetExecute(
|
|
Sender: TObject);
|
|
begin
|
|
{ remove/add the closing brace on this line to disable/enable the following code}
|
|
|
|
ShowcxStyleSheetEditor(GetCurrentStyleSheet, nil);
|
|
|
|
//}
|
|
end;
|
|
|
|
procedure TStylesMultiDemoMainForm.FormShow(Sender: TObject);
|
|
begin
|
|
{ remove/add the closing brace on this line to disable/enable the following code
|
|
|
|
ShowMessage('WARNING: tutorial not completed. First, please apply the steps '+
|
|
'shown in the StylesMultiDemo.doc file');
|
|
|
|
//}
|
|
end;
|
|
|
|
function TStylesMultiDemoMainForm.GetCurrentStyleSheet: TcxTreeListStyleSheet;
|
|
begin
|
|
Result := TcxTreeListStyleSheet(cxDBTreeList.Styles.StyleSheet);
|
|
end;
|
|
|
|
procedure TStylesMultiDemoMainForm.LoadUserDefinedStyleSheets(AFileName: TFileName);
|
|
begin
|
|
{ remove/add the closing brace on this line to disable/enable the following code}
|
|
|
|
UpdateGridStyleSheets(nil);
|
|
ClearUserDefinedStyleSheets;
|
|
|
|
LoadStyleSheetsFromIniFile(AFileName, StylesMultiDemoDataDM.strepUserDefined,
|
|
TcxTreeListStyleSheet);
|
|
|
|
CreateStyleSheetsList(shtUserDefined);
|
|
//}
|
|
end;
|
|
|
|
procedure TStylesMultiDemoMainForm.SaveUserDefinedStyleSheets(AFileName: TFileName);
|
|
var
|
|
AList: TList;
|
|
begin
|
|
{ remove/add the closing brace on this line to disable/enable the following code}
|
|
|
|
AList := TList.Create;
|
|
try
|
|
PopulateStyleSheetsList(AList);
|
|
SaveStyleSheetsToIniFile(AFileName, AList);
|
|
finally
|
|
AList.Free;
|
|
end;
|
|
|
|
//}
|
|
end;
|
|
|
|
procedure TStylesMultiDemoMainForm.ClearUserDefinedStyleSheets;
|
|
begin
|
|
with StylesMultiDemoDataDM.strepUserDefined do
|
|
begin
|
|
Clear;
|
|
ClearStyleSheets;
|
|
end;
|
|
end;
|
|
|
|
procedure TStylesMultiDemoMainForm.FormActivate(Sender: TObject);
|
|
begin
|
|
OpenDialog.InitialDir := ExtractFileDir(Application.ExeName);
|
|
SaveDialog.InitialDir := OpenDialog.InitialDir;
|
|
end;
|
|
|
|
procedure TStylesMultiDemoMainForm.tlStyleSheetsIsGroupNode(
|
|
Sender: TObject; ANode: TcxTreeListNode; var IsGroup: Boolean);
|
|
begin
|
|
if (ANode.Level = 0) and (ANode.Index <> Integer(shtNone)) then
|
|
IsGroup := True;
|
|
end;
|
|
|
|
procedure TStylesMultiDemoMainForm.tlStyleSheetsStylesGetContentStyle(
|
|
Sender, AItem: TObject; ANode: TcxTreeListNode; var AStyle: TcxStyle);
|
|
begin
|
|
with StylesMultiDemoDataDM do
|
|
if ANode.Level = 0 then
|
|
AStyle := styGroupNode
|
|
else
|
|
AStyle := styOptionalNode;
|
|
end;
|
|
|
|
procedure TStylesMultiDemoMainForm.tlStyleSheetsStylesGetNodeIndentStyle(
|
|
Sender: TObject; ANode: TcxTreeListNode; ALevel: Integer;
|
|
var AStyle: TcxStyle);
|
|
begin
|
|
with StylesMultiDemoDataDM do
|
|
AStyle := styGroupNode;
|
|
end;
|
|
|
|
procedure TStylesMultiDemoMainForm.tlStyleSheetsSelectionChanged(
|
|
Sender: TObject);
|
|
procedure SetCheckedNode(ANode: TcxTreeListNode);
|
|
var
|
|
I: Integer;
|
|
begin
|
|
if ANode <> nil then
|
|
ANode.Values[0] := 1;
|
|
with tlStyleSheets do
|
|
for I := 0 to Nodes.Count - 1 do
|
|
if Nodes[I] <> ANode then
|
|
Nodes[I].Values[clnRadio.ItemIndex] := False;
|
|
end;
|
|
|
|
var
|
|
ANode: TcxTreeListNode;
|
|
begin
|
|
if tlStyleSheets.SelectionCount > 0 then
|
|
begin
|
|
ANode := tlStyleSheets.Selections[0];
|
|
if not ANode.IsGroupNode then
|
|
begin
|
|
SetCheckedNode(ANode);
|
|
UpdateGridStyleSheets(TcxTreeListStyleSheet(ANode.Data));
|
|
ANode.Values[clnRadio.ItemIndex] := True;
|
|
ChangeVisibility(TcxStyleRepositoryType(ANode.Parent.Index));
|
|
end;
|
|
tlStyleSheets.Update;
|
|
end;
|
|
end;
|
|
|
|
procedure TStylesMultiDemoMainForm.CreateStyleSheetsList(
|
|
AStyleRepositoryType: TcxStyleRepositoryType);
|
|
var
|
|
I: Integer;
|
|
ANode: TcxTreeListNode;
|
|
AStyleRepository: TcxStyleRepository;
|
|
begin
|
|
if AStyleRepositoryType = shtNone then
|
|
Exit;
|
|
with StylesMultiDemoDataDM do
|
|
if AStyleRepositoryType = shtUserDefined then
|
|
AStyleRepository := strepUserDefined
|
|
else
|
|
AStyleRepository := strepPredefined;
|
|
with AStyleRepository do
|
|
begin
|
|
ANode := tlStyleSheets.Nodes.Root[Integer(AStyleRepositoryType)];
|
|
ANode.DeleteChildren;
|
|
for I := 0 to StyleSheetCount - 1 do
|
|
with ANode.AddChild do
|
|
begin
|
|
Values[clnGroupName.ItemIndex] := StyleSheets[I].Caption;
|
|
Data := StyleSheets[I];
|
|
end;
|
|
end;
|
|
end;
|
|
procedure TStylesMultiDemoMainForm.SelectFistChild(
|
|
AStyleRepositoryType: TcxStyleRepositoryType);
|
|
var
|
|
ANode: TcxTreeListNode;
|
|
begin
|
|
ANode := tlStyleSheets.Nodes.Root[Integer(AStyleRepositoryType)];
|
|
if ANode.Count > 0 then
|
|
begin
|
|
ANode[0].Focused := True;
|
|
ANode[0].MakeVisible;
|
|
end;
|
|
end;
|
|
|
|
procedure TStylesMultiDemoMainForm.cxDBTreeListInitInsertingRecord(
|
|
Sender: TObject; AFocusedNode: TcxTreeListDataNode;
|
|
var AHandled: Boolean);
|
|
begin
|
|
if AFocusedNode <> nil then
|
|
StylesMultiDemoDataDM.SetParentValue(AFocusedNode.ParentValue);
|
|
end;
|
|
|
|
procedure TStylesMultiDemoMainForm.cxDBTreeListDragOver(Sender,
|
|
Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
|
|
begin
|
|
inherited;
|
|
//
|
|
end;
|
|
|
|
end.
|