cxsplittereditor.pas

来自「胜天进销存源码,国产优秀的进销存」· PAS 代码 · 共 243 行

{********************************************************************}
{                                                                    }
{       Developer Express Visual Component Library                   }
{       ExpressEditors                                               }
{                                                                    }
{       Copyright (c) 1998-2008 Developer Express Inc.               }
{       ALL RIGHTS RESERVED                                          }
{                                                                    }
{   The entire contents of this file is protected by U.S. and        }
{   International Copyright Laws. Unauthorized reproduction,         }
{   reverse-engineering, and distribution of all or any portion of   }
{   the code contained in this file is strictly prohibited and may   }
{   result in severe civil and criminal penalties and will be        }
{   prosecuted to the maximum extent possible under the law.         }
{                                                                    }
{   RESTRICTIONS                                                     }
{                                                                    }
{   THIS SOURCE CODE AND ALL RESULTING INTERMEDIATE FILES            }
{   (DCU, OBJ, DLL, ETC.) ARE CONFIDENTIAL AND PROPRIETARY TRADE     }
{   SECRETS OF DEVELOPER EXPRESS INC. THE REGISTERED DEVELOPER IS    }
{   LICENSED TO DISTRIBUTE THE EXPRESSEDITORS AND ALL                }
{   ACCOMPANYING VCL CONTROLS AS PART OF AN EXECUTABLE PROGRAM ONLY. }
{                                                                    }
{   THE SOURCE CODE CONTAINED WITHIN THIS FILE AND ALL RELATED       }
{   FILES OR ANY PORTION OF ITS CONTENTS SHALL AT NO TIME BE         }
{   COPIED, TRANSFERRED, SOLD, DISTRIBUTED, OR OTHERWISE MADE        }
{   AVAILABLE TO OTHER INDIVIDUALS WITHOUT EXPRESS WRITTEN CONSENT   }
{   AND PERMISSION FROM DEVELOPER EXPRESS INC.                       }
{                                                                    }
{   CONSULT THE END USER LICENSE AGREEMENT FOR INFORMATION ON        }
{   ADDITIONAL RESTRICTIONS.                                         }
{                                                                    }
{********************************************************************}

unit cxSplitterEditor;

{$I cxVer.inc}

interface

uses
{$IFDEF DELPHI6}
  Variants,
{$ENDIF}
  Windows, Classes, Controls, Dialogs, ExtCtrls, Forms, Graphics, Messages,
  StdCtrls, SysUtils, cxButtons, cxCheckBox, cxContainer, cxControls, cxEdit,
  cxGroupBox, cxListBox, cxLookAndFeelPainters, cxLookAndFeels, cxMaskEdit,
  cxRadioGroup, cxSpinEdit, cxSplitter, cxTextEdit, cxTrackBar;

type
  TcxSplitEditor = class(TForm)
    cxGroupBox1: TcxGroupBox;
    Panel1: TPanel;
    cxListBox1: TcxListBox;
    cxSplit: TcxSplitter;
    cxListBox2: TcxListBox;
    cxGroupBox2: TcxGroupBox;
    cxCbAhd: TcxCheckBox;
    cxCbAp: TcxCheckBox;
    cxCbSnap: TcxCheckBox;
    cxCbRu: TcxCheckBox;
    Label1: TLabel;
    cxSeMs: TcxSpinEdit;
    Label2: TLabel;
    cxSePao: TcxSpinEdit;
    cxGroupBox3: TcxGroupBox;
    cxRbHzNone: TcxRadioButton;
    cxRbHzMp8: TcxRadioButton;
    cxRbHzMp9: TcxRadioButton;
    cxRbHzSimple: TcxRadioButton;
    cxRbHzXp: TcxRadioButton;
    cxLookAndFeelController1: TcxLookAndFeelController;
    cxCbHzVisible: TcxCheckBox;
    cxTbHzWidth: TcxTrackBar;
    Label3: TLabel;
    cxBtnOK: TcxButton;
    cxBtnCancel: TcxButton;
    procedure cxCbAhdClick(Sender: TObject);
    procedure cxCbApClick(Sender: TObject);
    procedure cxCbSnapClick(Sender: TObject);
    procedure cxCbRuClick(Sender: TObject);
    procedure cxSeMsPropertiesChange(Sender: TObject);
    procedure cxSePaoPropertiesChange(Sender: TObject);
    procedure cxCbHzVisiblePropertiesChange(Sender: TObject);
    procedure cxRbHzNoneClick(Sender: TObject);
    procedure cxRbHzMp8Click(Sender: TObject);
    procedure cxTbHzWidthPropertiesChange(Sender: TObject);
  public
    procedure SetSplitControls;
  end;

procedure ShowSplitterEditor(ASplitter: TcxSplitter);

implementation

{$R *.dfm}

uses
  cxExtEditConsts;

procedure ShowSplitterEditor(ASplitter: TcxSplitter);
var
  AOwnerCaption: string;
begin
  with TcxSplitEditor.Create(Application) do
  try
    if ASplitter.Owner <> nil then
      AOwnerCaption := ASplitter.Owner.Name + '.'
    else
      AOwnerCaption := '';
    Caption := Format('%s%s - Splitter Control', [AOwnerCaption, ASplitter.Name]);
    cxSplit.AllowHotZoneDrag := ASplitter.AllowHotZoneDrag;
    cxSplit.AutoPosition := ASplitter.AutoPosition;
    cxSplit.AutoSnap := ASplitter.AutoSnap;
    cxSplit.PositionAfterOpen := ASplitter.PositionAfterOpen;
    cxSplit.MinSize := ASplitter.MinSize;
    cxSplit.ResizeUpdate := ASplitter.ResizeUpdate;
    if Assigned(ASplitter.HotZone) then
    begin
      cxSplit.HotZoneClassName := ASplitter.HotZoneClassName;
      cxSplit.HotZone.Assign(ASplitter.Hotzone);
    end;
    SetSplitControls;
    if ShowModal = mrOK then
    begin
      ASplitter.AllowHotZoneDrag := cxSplit.AllowHotZoneDrag;
      ASplitter.AutoPosition := cxSplit.AutoPosition;
      ASplitter.AutoSnap := cxSplit.AutoSnap;
      ASplitter.PositionAfterOpen := cxSplit.PositionAfterOpen;
      ASplitter.MinSize := cxSplit.MinSize;
      ASplitter.ResizeUpdate := cxSplit.ResizeUpdate;
      if Assigned(cxSplit.HotZone) then
      begin
        ASplitter.HotZoneClassName := cxSplit.HotZoneClassName;
        ASplitter.HotZone.Assign(cxSplit.HotZone);
      end
      else
        ASplitter.HotZoneClassName := '';
      SetDesignerModified(ASplitter);
    end;
  finally
    Free;
  end;
end;

procedure TcxSplitEditor.cxCbAhdClick(Sender: TObject);
begin
  cxSplit.AllowHotZoneDrag := cxCbAhd.Checked;
end;

procedure TcxSplitEditor.cxCbApClick(Sender: TObject);
begin
  cxSplit.AutoPosition := cxCbAp.Checked;
end;

procedure TcxSplitEditor.cxCbSnapClick(Sender: TObject);
begin
  cxSplit.AutoSnap := cxCbSnap.Checked;
end;

procedure TcxSplitEditor.cxCbRuClick(Sender: TObject);
begin
  cxSplit.ResizeUpdate := cxCbRu.Checked;
end;

procedure TcxSplitEditor.cxSeMsPropertiesChange(Sender: TObject);
begin
  cxSplit.MinSize := Integer(cxSeMs.Value);
end;

procedure TcxSplitEditor.cxSePaoPropertiesChange(Sender: TObject);
begin
  cxSplit.PositionAfterOpen := Integer(cxSePao.Value);
end;

procedure TcxSplitEditor.cxCbHzVisiblePropertiesChange(Sender: TObject);
begin
  if Assigned(cxSplit.Hotzone) then
    cxSplit.HotZone.Visible := cxCbHzVisible.Checked;
end;

procedure TcxSplitEditor.cxRbHzNoneClick(Sender: TObject);
begin
  cxCbHzVisible.Checked := False;
  cxSplit.HotZoneClassName := '';
  cxCbHzVisible.Enabled := False;
  cxTbHzWidth.Enabled := False;
end;

procedure TcxSplitEditor.cxRbHzMp8Click(Sender: TObject);
var
  vText: string;
  vHzcl: TcxHotZoneStyleClass;
begin
  vText := TcxRadioButton(Sender).Hint;
  vHzCl := TcxHotZoneStyleClass(GetRegisteredHotZoneStyles.FindByClassName(vText));
  if vHzCl = nil then
    vHzCl := TcxHotZoneStyleClass(GetRegisteredHotZoneStyles.FindByDescription(vText));
  cxSplit.HotZoneStyleClass := vHzCl;
  cxCbHzVisible.Enabled := True;
  cxCbHzVisible.Checked := True;
  cxTbHzWidth.Enabled := True;
  cxTbHzWidth.EditValue := Variant(cxSplit.HotZone.SizePercent);
end;

procedure TcxSplitEditor.cxTbHzWidthPropertiesChange(Sender: TObject);
begin
  if Assigned(cxSplit.HotZone) then
    cxSplit.HotZone.SizePercent := Integer(cxTbHzWidth.EditValue);
end;

Procedure TcxSplitEditor.SetSplitControls;
Var
  vHzt: Integer;
Begin
  cxCbAhd.Checked := cxSplit.AllowHotZoneDrag;
  cxCbAp.Checked := cxSplit.AutoPosition;
  cxSePao.Value := Variant(cxSplit.PositionAfterOpen);
  cxCbSnap.Checked := cxSplit.AutoSnap;
  cxSeMs.Value := Variant(cxSplit.MinSize);
  cxCbRu.Checked := cxSplit.ResizeUpdate;
  if Assigned(cxSplit.HotZone) then
  begin
    cxTbHzWidth.EditValue := TcxEditValue(cxSplit.HotZone.SizePercent);
    cxCbHzVisible.Checked := cxSplit.HotZone.Visible;
    vHzt := GetRegisteredHotZoneStyles.GetIndexByClass(cxSplit.HotZone.ClassType);
    case vHzt of
      0: cxRbHzMp8.Checked := True;
      1: cxRbHzMp9.Checked := True;
      2: cxRbHzXp.Checked := True;
      3: cxRbHzSimple.Checked := True;
    end;
  end
  else
  begin
    cxRbHzNone.Checked := True;
  end;
  cxTbHzWidth.Enabled := Assigned(cxSplit.HotZone);
end;

end.