разобрался, через GetDetailDataController
» Использование DevExpress (часть 4)
Как у cxGrid получить доступ к properties объекта колонки конкретного record или row ?
не понимаю, при чём здесь record или row, как будто у двух разных записей свойства одной и той же колонки будут разные
Добавлено:
Странности с TcxDBTreeList
Код: v := treeBaseCars.VisibleCount;
Добавлено:
Странности с TcxDBTreeList
Код: v := treeBaseCars.VisibleCount;
Может неправильно выразился, мне нужно доступ получить не к колонке а к записи, к свойству properties записи, например в properties стоит RichEdit, и мне хочется его разукрасить ...
вот блин бьюсь и все никак не вкурю как это делается
вот блин бьюсь и все никак не вкурю как это делается
есть примеры, готовые
https://www.google.com/search?ie=UTF-8&oe=UTF-8&sourceid=navclient&gfns=1&q=%D1%86%D0%B2%D0%B5%D1%82%D0%BD%D0%BE%D0%B9+cxgrid#bav=on.2,or.r_cp.r_qf.&fp=60e47a96b370080f&q=cxgrid+%D0%BF%D0%BE%D0%B4%D1%81%D0%B2%D0%B5%D1%82%D0%BA%D0%B0+%D1%81%D0%BB%D0%BE%D0%B2
и вот
https://www.google.com/search?ie=UTF-8&oe=UTF-8&sourceid=navclient&gfns=1&q=%D1%86%D0%B2%D0%B5%D1%82%D0%BD%D0%BE%D0%B9+cxgrid#bav=on.2,or.r_cp.r_qf.&fp=60e47a96b370080f&q=cxgrid+%D0%BF%D0%BE%D0%B4%D1%81%D0%B2%D0%B5%D1%82%D0%BA%D0%B0+%D1%81%D0%B8%D0%BC%D0%B2%D0%BE%D0%BB%D0%BE%D0%B2
в итоге вот http://www.sql.ru/forum/940778/podsvetka-slov-v-yacheykah-cxgrid-tcxgriddbtableview
https://www.google.com/search?ie=UTF-8&oe=UTF-8&sourceid=navclient&gfns=1&q=%D1%86%D0%B2%D0%B5%D1%82%D0%BD%D0%BE%D0%B9+cxgrid#bav=on.2,or.r_cp.r_qf.&fp=60e47a96b370080f&q=cxgrid+%D0%BF%D0%BE%D0%B4%D1%81%D0%B2%D0%B5%D1%82%D0%BA%D0%B0+%D1%81%D0%BB%D0%BE%D0%B2
и вот
https://www.google.com/search?ie=UTF-8&oe=UTF-8&sourceid=navclient&gfns=1&q=%D1%86%D0%B2%D0%B5%D1%82%D0%BD%D0%BE%D0%B9+cxgrid#bav=on.2,or.r_cp.r_qf.&fp=60e47a96b370080f&q=cxgrid+%D0%BF%D0%BE%D0%B4%D1%81%D0%B2%D0%B5%D1%82%D0%BA%D0%B0+%D1%81%D0%B8%D0%BC%D0%B2%D0%BE%D0%BB%D0%BE%D0%B2
в итоге вот http://www.sql.ru/forum/940778/podsvetka-slov-v-yacheykah-cxgrid-tcxgriddbtableview
Пардон опять не корректно выразился, я имел ввиду доступ к ричу записи, а properties он только для колонки. Ну вы меня поняли
X11
Я этот пример уже видел, но это не то что хотелось бы. В примере идет перебор всех записей c фокусировкой, а это долго, разве нельзя получить прямой доступ к TcxRichEdit зная Запись ?
X11
Я этот пример уже видел, но это не то что хотелось бы. В примере идет перебор всех записей c фокусировкой, а это долго, разве нельзя получить прямой доступ к TcxRichEdit зная Запись ?
G787
Цитата:
ну вот, например запись текста в ричедит для второй записи в гриде:
Код:
grid1.SetFocus;
gridView1.Controller.FocusedRowIndex := 1;
gridView1.Controller.EditingController.ShowEdit( gridColumn1 );
(gridView1.Controller.EditingController.Edit as TcxRichEdit).Text := 'blabla';
Цитата:
разве нельзя получить прямой доступ к TcxRichEdit зная Запись
ну вот, например запись текста в ричедит для второй записи в гриде:
Код:
grid1.SetFocus;
gridView1.Controller.FocusedRowIndex := 1;
gridView1.Controller.EditingController.ShowEdit( gridColumn1 );
(gridView1.Controller.EditingController.Edit as TcxRichEdit).Text := 'blabla';
A_V
Ну это да, а как без фокусов получить доступ или такое нельзя ?
Ну это да, а как без фокусов получить доступ или такое нельзя ?
G787
а никаких фокусов (кроме SetFocus)) здесь и нет richedit появляется только в момент собственно редактирования ячейки, поэтому его и надо сперва начать, либо обращаться в обработчике события редактирования, OnInitEdit у GridView например. до начала редактирования никакого объекта TcxRichedit просто не существует, зато есть его св-ва TcxRichEditProperties у колонки.
а никаких фокусов (кроме SetFocus)) здесь и нет richedit появляется только в момент собственно редактирования ячейки, поэтому его и надо сперва начать, либо обращаться в обработчике события редактирования, OnInitEdit у GridView например. до начала редактирования никакого объекта TcxRichedit просто не существует, зато есть его св-ва TcxRichEditProperties у колонки.
Так вон оно что
каким образом можно заставить richedit отображать rtf с изображением?из всех richedit'ов я такого эффекта добился только компонентом из пакета jedi, но от этого пакета я по немного отказываюсь.
marser
печально, я делал так, что усеры могли сами создавать файлы помощи, а тут еще и rtf должен быть определенного формата((
спасибо
печально, я делал так, что усеры могли сами создавать файлы помощи, а тут еще и rtf должен быть определенного формата((
спасибо
mdid
Цитата:
Я как бы сделал по другому - локально вики запустил - и пусть "усеры" пишут помощь и остальное ... а от "файловых" хэлпов отказался. Вообще сделано как бы так есть сайт системы - от куда можно и программу запустить для ввода данных (распечатать оперативные документы - путевой лист или накладная), отчеты всевозможные и хэлп ввиде вики.
Цитата:
печально, я делал так, что усеры могли сами создавать файлы помощи, а тут еще и rtf должен быть определенного формата((
Я как бы сделал по другому - локально вики запустил - и пусть "усеры" пишут помощь и остальное ... а от "файловых" хэлпов отказался. Вообще сделано как бы так есть сайт системы - от куда можно и программу запустить для ввода данных (распечатать оперативные документы - путевой лист или накладная), отчеты всевозможные и хэлп ввиде вики.
Подскажите, какими компонентами 13.1.2 можно сэмитировать кнопку с выпадающим меню, как в офисе 2013 на вкладке "Печать" выбор принтера, настройки... Т.е. двустрочные.А, допёр сам. Свойство Description.
А есть ли ответ на этот вопрос :
Цитата:
?
Цитата:
Автор: X11, Отправлено:15:59 25-02-2010
На форме есть dxBarManager и dxBar, на dxBar есть TcxBarEditItem типа CheckBox. Но включать и выключать CheckBox получается только если щёлкнешь мышкой именно на квадратике. А если по Caption, то CheckBox только выделяется и отметить или снять отметку не получается. Можно как-то заставить работать это CheckBox, как нормальный полноценный CheckBox?
?
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.
ну, в качестве быстрого и грязного хака, можно так сделать:
Код:
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.
G787
Можно поместить на бар dxBarControlContainerItem и уже ему указать чекбокс.
Можно поместить на бар dxBarControlContainerItem и уже ему указать чекбокс.
Кто-нибуть сталкивался на 13.1.2 с таким нехорошим моментом:
если TdxRibbonForm.DisableAero := True, то высота формы увеличивается на 2 пикселя.
У меня размер и положение формы восстанавливается/сохраняется в ini-файле, получается что от запуска к запуску высота окна увеличивается. Т.е. при закрытии формы размер записывается в файл, при открытии этот размер читается и присваивается форме, увеличивается на 2, при закрытии сохраняется и т.д.
если TdxRibbonForm.DisableAero := True, то высота формы увеличивается на 2 пикселя.
У меня размер и положение формы восстанавливается/сохраняется в ini-файле, получается что от запуска к запуску высота окна увеличивается. Т.е. при закрытии формы размер записывается в файл, при открытии этот размер читается и присваивается форме, увеличивается на 2, при закрытии сохраняется и т.д.
A_V
Что-то у меня грязный хак не срабатывает
exteris
Смотрится на фоне других контролов не органично
Что-то у меня грязный хак не срабатывает
exteris
Смотрится на фоне других контролов не органично
G787
что именно не срабатывет? метод TMyControl.FocusItemControl вызывется?
что именно не срабатывет? метод TMyControl.FocusItemControl вызывется?
Вот тут всегда False
...
if (AItemControl.Item is TcxBarEditItem)
and (TcxBarEditItem(AItemControl.Item).Properties is TcxCustomCheckBoxProperties) then
...
...
if (AItemControl.Item is TcxBarEditItem)
and (TcxBarEditItem(AItemControl.Item).Properties is TcxCustomCheckBoxProperties) then
...
оставь только нужный item на баре и скажи
AItemControl.Item.ClassType
TcxBarEditItem(AItemControl.Item).Properties.ClassType
чему развны?
AItemControl.Item.ClassType
TcxBarEditItem(AItemControl.Item).Properties.ClassType
чему развны?
Ну там обычный TcxCheckBox , а как посмотреть что возвращается в TcxBarEditItem(AItemControl.Item).Properties.ClassType ?
G787
через Ctrl+F7 (evaluate/modify)
через Ctrl+F7 (evaluate/modify)
A_V
А в рантайме ?
А в рантайме ?
G787
это именно что в рантайме
это именно что в рантайме
DE 2013.1.2 (VCL). Подскажите, пожалуйста, как избавиться от кнопки "Full Screen Mode" на риббоне (скин: Office2013White)?
G787
Я бы посоветовал не использовать в твоём случае CheckBox в свойствах Properties, если использовать CheckGroup, с одним Item'ом в (TcxCheckGroupItems), то по нажатию на Caption Item'а происходит нажатие.
Я бы посоветовал не использовать в твоём случае CheckBox в свойствах Properties, если использовать CheckGroup, с одним Item'ом в (TcxCheckGroupItems), то по нажатию на Caption Item'а происходит нажатие.
A_V
У меня почему-то это все не работает, watch list пустой с надписью process not accessible.
mcdie
Ну да кстати, тоже вариант
У меня почему-то это все не работает, watch list пустой с надписью process not accessible.
mcdie
Ну да кстати, тоже вариант
Страницы: 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211
Предыдущая тема: Помогите пожалуйста с блокировкой клавиатуры и мышки
Форум Ru-Board.club — поднят 15-09-2016 числа. Цель - сохранить наследие старого Ru-Board, истории становления российского интернета. Сделано для людей.