A_V
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
G787
ну, в качестве быстрого и грязного хака, можно так сделать:
Код:
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxCheckBox, dxBar, cxBarEditItem,
cxClasses, Vcl.StdCtrls;
type
TdxBar = class(dxBar.TdxBar)
function GetControlClass: TdxBarControlClass; override;
end;
TMyControl = class(TdxBarControl)
procedure FocusItemControl(AItemControl: TdxBarItemControl); override;
end;
TForm1 = class(TForm)
dxBarManager1: TdxBarManager;
dxBarManager1Bar1: TdxBar;
cxBarEditItem1: TcxBarEditItem;
cxBarEditItem2: TcxBarEditItem;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TMyItem }
function TdxBar.GetControlClass: TdxBarControlClass;
begin
Result := TMyControl;
end;
{ TMyControl }
procedure TMyControl.FocusItemControl(AItemControl: TdxBarItemControl);
var
Item: TcxBarEditItem;
begin
inherited;
if Assigned(AItemControl) then
begin
if (AItemControl.Item is TcxBarEditItem)
and (TcxBarEditItem(AItemControl.Item).Properties is TcxCustomCheckBoxProperties) then
begin
Item := TcxBarEditItem(AItemControl.Item);
if Item.EditValue = null then
Item.EditValue := true
else
Item.EditValue := not Item.EditValue ;
end;
end;
end;
end.
|
особо не тестил, может и отвалится в каких случаях ) |
Всего записей: 770 | Зарегистр. 07-04-2002 | Отправлено: 01:48 10-08-2013 | Исправлено: A_V, 01:56 10-08-2013 |
|
