» Использование DevExpress (часть 4)

всем привет.
может есть у кого локализованные pas файлы для девок 2011.2.3 ?

vetal71
В варезнике в копилке есть DevExpress.v2011.2.5.Rus.Lib......Постов я думаю Вам хватит

Здравствуйте! Подскажите, пожалуйста, как в cxgrid сделать объединение общего нижнего footer-а на все видимые столбцы. Ну чтобы была одна строка с итогами. А то у меня текст длинный и не влазит в короткий footer

simplecs
по моему не как..но я точно не уверен...но как вариант выведите свой тотал

mdid
А можно пример кода?

simplecs
пример чего? пример того как положить компонент на форму и вывести в него результат?
могу поделиться тем как я выводил суммы в банковских выписках...создавал для сумм dxBar с компонентами типа Label (Приход/Расход/Разница)...создавал сумму по колонкам приход/расход...делал их невидимым...при изменении значения в этих колонках делал footer.visible:=true и сразу же footer.visible:=false...при этом считывал сумму в событии суммирования колонки и выводил их в dxBar...выглядит на много красивее нежели стандартный футер +на dxBar можно извращаться как угодно

я понял.....но ко мне это не подходит....потом надо на печать выводить.....а одновременно dxbar и cxgrid - там хрен выведешь. Мне нужно в самом cxgrid создать свой footer чтоб потом при печати просто подключить его в целом

simplecs

ну как-то так


Код:
...
FooterText:=DupeString('бла-',30);
...
procedure TForm1.cxGrid1DBTableView1CustomDrawPartBackground(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxCustomGridCellViewInfo; var ADone: Boolean);
var
AText: string;
R: TRect;
begin
if AViewInfo is TcxGridFooterViewInfo then begin
R := AViewInfo.Bounds;
ACanvas.Canvas.FillRect(R);
ACanvas.DrawText(FooterText, R, cxAlignLeft or cxAlignVCenter);

ADone := True;
end;
end;

procedure TForm1.dxComponentPrinter1Link1CustomDrawFooterCell(
Sender: TdxGridReportLink; ACanvas: TCanvas; AView: TcxGridTableView;
ARecord: TcxCustomGridRecord; AColumn: TcxGridColumn; ALevel: Integer;
AnItem: TdxReportCellString; var ADone: Boolean);
var
ARect: TRect;
begin
if AColumn <> cxGrid1DBTableView1NAME then
Exit;
ARect := AnItem.BoundsRect;
Sender.DrawText(ACanvas, ARect, 0, FooterText, AnItem.Font, AnItem.Color, taLeft, taCenterY, True, False, False);
ADone := True;
end;

procedure TForm1.dxComponentPrinter1Link1InitializeFooterCell(
Sender: TdxGridReportLink; AView: TcxGridTableView;
ARecord: TcxCustomGridRecord; AColumn: TcxGridColumn; ALevel: Integer;
AnItem: TdxReportCellString);
var
ARect: TRect;
begin
if AColumn <> cxGrid1DBTableView1NAME then
Exit;
ARect := AnItem.BoundsRect;
ARect.Right := ARect.Right + AView.ViewInfo.Canvas.TextWidth(FooterText);
AnItem.BoundsRect := ARect;
end;

procedure TForm1.dxComponentPrinter1StartGenerateReport(Sender: TObject;
AReportLink: TBasedxReportLink);
begin
cxGrid1DBTableView1NAME.Summary.FooterKind := skCount;
end;

procedure TForm1.dxComponentPrinter1EndGenerateReport(Sender: TObject;
AReportLink: TBasedxReportLink);
begin
cxGrid1DBTableView1NAME.Summary.FooterKind := skNone;
end;

Czechoslovak
Спасибо. Но к сожалению не хватает постов

пара вопросов по dxLayoutControl
1 как сделать, чтобы все контролы на форме занимали всю ширину? поставил AutoContentSize но растягиваются только группы, а не контролы в них.
2 как LayoutGroup задать ширину? Ставил в SizeOptions - не помогает.

Цитата:

1 как сделать, чтобы все контролы на форме занимали всю ширину? поставил AutoContentSize но растягиваются только группы, а не контролы в них.

Свойства AlignHorz, AlignVert.

Цитата:

2 как LayoutGroup задать ширину? Ставил в SizeOptions - не помогает.

А в AssignedValues проставили true?
Настройка LayoutGroup:
Ссылка
Вид границы, если есть возможность изменить размер:
Ссылка

vetal71
Как не хватает если у тебя 242, а там под 150?

Czechoslovak
Посты учитываются только в ветках связанных с программированием, таких у меня 100

в силу обстоятельств надо словить нажатие пкм на dxBarButton..как?
пробовал сделать свой класс на основе TdxBarButton и всунуть туда ловлю события пкм..но беда в том что вываливается AV при NewItemLink.Item :=but;

при cxLookupComboBox1.PopupWindow.Popup получаю AV без него работает, но PopupWindow не открывается при вводе.

Код: procedure TfmOrd.cxLookupComboBox1PropertiesChange(Sender: TObject);
var
str: string;
begin
str := cxLookupComboBox1.Text;
str := trim(str);

if (Length(str)) > 1 then
begin
with qCustomerSelect do
begin
Close;
SQL.Clear;
SQL.Add('select * from "table" where lower("name") like lower('''+ str + '%'');');
Open();
end;
cxLookupComboBox1.PopupWindow.CloseUp;
cxLookupComboBox1.PopupWindow.Popup(cxLookupComboBox1); // AV
end
else
begin
qCustomerSelect.Close;
end
end;

neznayka3
cxLookupComboBox1.PopupWindow.Show; ?
сейчас проверить не могу..но кажется было что то подобное

Цитата:

cxLookupComboBox1.PopupWindow.Show;

есть такое, открывается в верхнем левом углу экрана) и сам не закрывается. CloseUP, Hide, ClosePopup как то с ним не дружат.

neznayka3
cxLookupComboBox1.DroppedDown := True

mdid

Цитата:

в силу обстоятельств надо словить нажатие пкм на dxBarButton..как?
пробовал сделать свой класс на основе TdxBarButton и всунуть туда ловлю события пкм..но беда в том что вываливается AV при NewItemLink.Item :=but;

Код: procedure TFormMain.FormCreate(Sender: TObject);
begin
// ...
Application.OnMessage := onAnyMessage;
// ...
end;

procedure TFormMain.onAnyMessage(var Msg: TMsg; var Handled: Boolean);
var AWinCtrl: TWinControl;
ABarCtrl: TdxBarControl;
begin
if (Msg.message = WM_RBUTTONDOWN) then
begin
AWinCtrl := FindControl(Msg.hwnd);
if AWinCtrl is TdxBarControl then
begin
ABarCtrl := TdxBarControl(AWinCtrl);
if Assigned(ABarCtrl.BarManager.SelectedItem) then
if ABarCtrl.BarManager.SelectedItem.Item = btnCreate then
ShowMessage('Щелчок правой кнопкой по btnCreate.');
end;
end;
Handled := False;
end;

andreybear
попробую что то выжать из этого...спасибо...просто у меня есть юнит который описывает действия mdi форм..и все события с этой формой(в том числе и кнопки) описываются в этом юните и с классом Application он не связан...лана пасиб...ща попробую как то связать
--------
ура...заработало...еще раз спасибо...а то я кнопки на dxbar добавлял по средством контейнера в котором cxbutton у которого можно обработать пкм

возможно в TcxDBLookupComboBox перед значением вставить картинку?

поторопился...плохо отрабатывает(( если нажать пкм на первую кнопку а потом на вторую..то для второй появится меню первой(...не срабатывает выделение второй кнопки при клике

mdid
У меня все отрабатывает. А можно код?

http://rghost.ru/37434208
нажмите на кнопку 2 и когда появится меню - на кнопку 1

хочу чтобы было так для рисунка можно использовать простой cxImage. как сместить тескт?

Кто-нибудь использовал TcxDBTreeList совместно с TUniQuery (IniDAC)?

Проблема проявляется во время исполнения программы.

Если во время исполнения программы вызвать Open, то 16 раз появляется такое сообщение:

Цитата:

Project raised exception class EVariantTypeCastError with message 'Could not convert variant of type (Null) into type (Integer)'.

структура таблицы в MySQL простая:

Код: CREATE TABLE kvartal_prem.rub(
id INT(11) NOT NULL AUTO_INCREMENT,
id_parent INT(11) DEFAULT NULL,
rub_name VARCHAR(255) DEFAULT NULL,
rub_code VARCHAR(255) DEFAULT NULL,
stateindex INT(11) DEFAULT NULL,
imageindex INT(11) DEFAULT NULL,
PRIMARY KEY (id)
)
ENGINE = MYISAM
AUTO_INCREMENT = 1
CHARACTER SET utf8
COLLATE utf8_general_ci;

X11
1. попробуйте тип колонки в TcxDBTreeList поставить как variant
2. возможно в TcxDBTreeList есть какие то обработки событий где идет явная попытка загнать в integer значение null?

Самое интересное, что в дизайне всё работает.

Добавлено:
mdid, тип какой колонки? ID?

Добавлено:
И у TcxDBTreeListColumn не ValueType

Из справки по TcxTreeListOptionsData.Inserting

Цитата:

Set this property to True, to allow end-users to:
Insert nodes using the Ins key. Nodes are inserted before the currently focused node, at the same nesting level.
Append nodes using the Ctrl+Ins key combination. Nodes are appended at the same nesting level as the currently focused node.Insert or append nodes using the cxNavigator linked to the TreeList control

Это верно для TcxDBTreeList и TcxDBNavigator? У меня ноды не добавляются, только вставляются в обоих случаях.

Разобрался. Через OnInitInsertingRecord всё делается.

На старых DevExpress v52 и Win XP sp3 + Delphi 2009 все работало нормально.
Теперь на DevExpress.VCL.2011.vol.2.4 + 7 32bit + Delphi XE2 вылетает ошибка Project1.exe raised exception class EdxTestException with message 'RestoreDC fails'. Это выдает cxGraphic.pas. Кто с таким сталкивался и как это лечиться?