Archivado/Componentes.Terceros.DevExpressVCL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
b2e7942eef
Componentes.Terceros.DevExp.../internal/x.44/1/ExpressSideBar/Sources/dxsppred.pas
david 47aaf11578 Compilado para Delphi 2009 (D12) 
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@38 05c56307-c608-d34a-929d-697000501d7a
2009-06-29 12:09:02 +00:00

313 lines
10 KiB
ObjectPascal
Raw Blame History

{*******************************************************************}
{ }
{ Developer Express Visual Component Library }
{ Express properties store editor }
{ }
{ Copyright (c) 1998-2009 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 EXPRESSBARS 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 dxsppred;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, dximctrl;
type
TfrmSpinImagePropEditor = class(TForm)
Panel1: TPanel;
bAdd: TButton;
bInsert: TButton;
bDelete: TButton;
Panel2: TPanel;
Panel3: TPanel;
Edit1: TEdit;
ListBox: TdxImageListBox;
bUp: TButton;
bDown: TButton;
LabelHint: TLabel;
bClear: TButton;
LabelValue: TLabel;
LabelImageIndex: TLabel;
Edit2: TEdit;
BOk: TButton;
bCancel: TButton;
bHelp: TButton;
SpinImage: TdxSpinImage;
Edit3: TMemo;
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure Edit2Exit(Sender: TObject);
procedure bAddClick(Sender: TObject);
procedure bInsertClick(Sender: TObject);
procedure bDeleteClick(Sender: TObject);
procedure Edit1Exit(Sender: TObject);
procedure ListBoxClick(Sender: TObject);
procedure bUpClick(Sender: TObject);
procedure bDownClick(Sender: TObject);
procedure ListBoxDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure ListBoxDragDrop(Sender, Source: TObject; X, Y: Integer);
procedure bClearClick(Sender: TObject);
procedure Edit3Exit(Sender: TObject);
procedure SpinImageChange(Sender: TObject; ItemIndex: Integer);
private
public
end;
function ExpressSpinImageItemsPropEditor(Control : TdxCustomSpinImage) : Boolean;
implementation
function ExpressSpinImageItemsPropEditor(Control : TdxCustomSpinImage) : Boolean;
Var
Form : TfrmSpinImagePropEditor;
Item : TdxSpinImageItem;
i : Integer;
begin
Result := False;
Form := TfrmSpinImagePropEditor.Create(Nil);
Form.Caption := Form.Caption + Control.Name;
Form.ListBox.ImageList := TdxSpinImage(Control).ImageList;
Form.SpinImage.ImageList := TdxSpinImage(Control).ImageList;
for i := 0 to Control.Items.Count - 1 do begin
Form.ListBox.AddItem(Control.Items[i].Value, Control.Items[i].ImageIndex);
Form.ListBox.Values[i] := Control.Items[i].Hint;
end;
Form.SpinImage.ItemIndex := -1;
if(Form.ListBox.Items.Count > 0) then
Form.ListBox.ItemIndex := 0;
Form.ListBoxClick(Nil);
Form.ShowModal;
if(Form.ModalResult = mrOk) then begin
Control.Items.Clear;
for i := 0 to Form.ListBox.Items.Count - 1 do begin
Item := Control.Items.Add;
with Form.ListBox do begin
Item.ImageIndex := ImageIndexes[i];
Item.Value := Items[i];
Item.Hint := Values[i];
end;
end;
Result := True;
end;
Form.Free;
end;
{$R *.DFM}
procedure TfrmSpinImagePropEditor.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if((Key < '0') Or (Key > '9')) And (Key <> Char(VK_BACK))
And ((Key <> '-') Or ((Edit2.Text <> '') And (Edit2.Text <> Edit2.SelText))) then begin
Key := #0;
MessageBeep(0);
end;
end;
procedure TfrmSpinImagePropEditor.Edit2Exit(Sender: TObject);
begin
if(ListBox.ItemIndex > -1) and (ListBox.Items.Count > 0) then begin
if(Edit2.Text = '-') then
Edit2.Text := '-1';
SpinImage.ItemIndex := StrToInt(Edit2.Text);
ListBox.ImageIndexes[ListBox.ItemIndex] := SpinImage.ItemIndex;
end;
end;
procedure TfrmSpinImagePropEditor.bAddClick(Sender: TObject);
begin
ListBox.AddItem(IntToStr(ListBox.Items.Count), -1);
ListBox.ItemIndex := ListBox.Items.Count - 1;
ListBoxClick(Sender);
Edit2.SetFocus;
end;
procedure TfrmSpinImagePropEditor.bInsertClick(Sender: TObject);
begin
if(ListBox.ItemIndex > -1) and (ListBox.Items.Count > 0) then begin
ListBox.InsertItem(ListBox.ItemIndex - 1, 'New Item', -1);
ListBoxClick(Sender);
Edit2.SetFocus;
end
else bAddClick(Sender);
end;
procedure TfrmSpinImagePropEditor.bDeleteClick(Sender: TObject);
Var
index : Integer;
begin
if(ListBox.ItemIndex > -1) and (ListBox.Items.Count > 0) then begin
index := ListBox.ItemIndex;
ListBox.Items.Delete(ListBox.ItemIndex);
if(index < ListBox.Items.Count) then
ListBox.ItemIndex := index
else if (index > 0) then
ListBox.ItemIndex := index - 1;
ListBoxClick(Sender);
end;
end;
procedure TfrmSpinImagePropEditor.Edit1Exit(Sender: TObject);
Var
index, imindex : Integer;
St : String;
begin
if(Edit1.Text <> ListBox.Items[ListBox.ItemIndex]) then begin
St := Edit1.Text;
imindex := ListBox.ImageIndexes[ListBox.ItemIndex];
index := ListBox.ItemIndex;
ListBox.Items.Delete(index);
ListBox.InsertItem(index, St, imindex);
ListBox.ItemIndex := index;
end;
end;
type
TtempAutoImageListBox = class(TdxImageListBox)
public
property Values;
end;
procedure TfrmSpinImagePropEditor.ListBoxClick(Sender: TObject);
begin
Edit1.Enabled := (ListBox.ItemIndex > -1) and (ListBox.Items.Count > 0);
Edit2.Enabled := Edit1.Enabled;
SpinImage.Enabled := Edit1.Enabled;
bDelete.Enabled := Edit1.Enabled;
bUp.Enabled := Edit1.Enabled;
bDown.Enabled := Edit1.Enabled;
Edit3.Enabled := Edit1.Enabled;
if(Edit1.Enabled) then begin
Edit1.Text := ListBox.Items[ListBox.ItemIndex];
Edit2.Text := IntToStr(ListBox.ImageIndexes[ListBox.ItemIndex]);
SpinImage.ItemIndex := ListBox.ImageIndexes[ListBox.ItemIndex];
Edit3.Text := TtempAutoImageListBox(ListBox).Values[ListBox.ItemIndex];
end else begin
Edit1.Text := '';
Edit2.Text := '';
Edit3.TExt := '';
SpinImage.ItemIndex := -1;
end;
end;
procedure TfrmSpinImagePropEditor.bUpClick(Sender: TObject);
Var
index, imind1, imind2 : Integer;
begin
if(ListBox.ItemIndex > 0) then begin
index := ListBox.ItemIndex;
imind1 := ListBox.ImageIndexes[index];
imind2 := ListBox.ImageIndexes[index - 1];
ListBox.Items.Exchange(index, index - 1);
ListBox.ImageIndexes[index - 1] := imind1;
ListBox.ImageIndexes[index] := imind2;
ListBox.ItemIndex := index - 1;
end;
end;
procedure TfrmSpinImagePropEditor.bDownClick(Sender: TObject);
Var
index, imind1, imind2 : Integer;
begin
if(ListBox.ItemIndex < ListBox.Items.Count - 1) then begin
index := ListBox.ItemIndex;
imind1 := ListBox.ImageIndexes[index];
imind2 := ListBox.ImageIndexes[index + 1];
ListBox.Items.Exchange(index, index + 1);
ListBox.ImageIndexes[index + 1] := imind1;
ListBox.ImageIndexes[index] := imind2;
ListBox.ItemIndex := index + 1;
end;
end;
procedure TfrmSpinImagePropEditor.ListBoxDragOver(Sender, Source: TObject; X,
Y: Integer; State: TDragState; var Accept: Boolean);
Var
p : TPoint;
item : Integer;
begin
Accept := False;
p.x := X;
p.y := Y;
item := ListBox.ItemAtPos(p, True);
if(item > -1) And (item < ListBox.Items.Count) then
Accept := Not ListBox.Selected[Item];
end;
procedure TfrmSpinImagePropEditor.ListBoxDragDrop(Sender, Source: TObject; X,
Y: Integer);
Var
p : TPoint;
Item, Item1 : Integer;
flag : Boolean;
begin
ListBoxDragOver(Sender, Source, X, Y, dsDragLeave, flag);
if Not flag then exit;
p.x := X;
p.y := Y;
item := ListBox.ItemAtPos(p, True);
if(item > -1) And (item < ListBox.Items.Count) then begin
if(Item > ListBox.ItemIndex) then
Inc(Item);
ListBox.InsertItem(Item, ListBox.Items[ListBox.ItemIndex],
ListBox.ImageIndexes[ListBox.ItemIndex]);
item1 := ListBox.ItemIndex;
ListBox.Items.Delete(Item1);
if(Item >= Item1) then
Dec(Item);
ListBox.ItemIndex := Item;
end;
end;
procedure TfrmSpinImagePropEditor.bClearClick(Sender: TObject);
begin
ListBox.Items.Clear;
ListBoxClick(Sender);
end;
procedure TfrmSpinImagePropEditor.Edit3Exit(Sender: TObject);
begin
if(ListBox.ItemIndex > -1) and (ListBox.Items.Count > 0)
and (Edit3.Text <> TtempAutoImageListBox(ListBox).Values[ListBox.ItemIndex]) then
TtempAutoImageListBox(ListBox).Values[ListBox.ItemIndex] := Edit3.Text;
end;
procedure TfrmSpinImagePropEditor.SpinImageChange(Sender: TObject;
ItemIndex: Integer);
begin
if(ListBox.ItemIndex > -1) and (ListBox.Items.Count > 0) then begin
Edit2.Text := IntToStr(ItemIndex);
Edit2Exit(Sender);
end;
end;
end.
Reference in New Issue View Git Blame Copy Permalink