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

andreybear
да, так ведь если я руками клацаю кнопки все норм, а если перехватываю то проблемы

MagistrAnatol

Цитата:

Может не совсем в тему но я не могу понять ето глюки грида или моя ошибка
если я руками нажимаю кнопку а потом на новой форме давлю отмена- все норм.
если делаю програмно получаю
First chance exception at $00D0D77C. Exception class $C0000005 with message 'access violation at 0x00d0d77c: read of address 0x00000000'. Process vdgo.exe (1044)

Из сказанного вами, понял, что вы создаете форму, на которой есть как минимум кнопка "отмена". Если вы кликаете мышкой по кнопке "отмена", то все идет как надо. Если вы пытаетесь из кода инициировать событие click какой-то кнопки на главной форме, то получаете ошибку. Если убрать кусок кода

Код: dm->tAboLich->Append();
dm->tAboLich->FBN("ABO_ID")->AsInteger=dm->tAbo->FBN("ABO_ID")->AsInteger;
dm->tAboLich->FBN("LICH_KOLVO")->AsInteger=1;
dm->tAboLich->FBN("OPER_DATA")->AsDateTime=Date();

MagistrAnatol
а dm->tAboLich не nil часом?

salexn1

Цитата:

if (frmNewAboLich->ShowModal()==mrOk)
{
dm->tAboLich->Post();
dm->tAboLich->FullRefresh();
}
else dm->tAboLich->Cancel();

Я так понял, что этот код отрабатывает.
Хотя, честно говоря, нет четкого представления, что отрабатывает, что нет и при каких условиях.

вроде как автор и пишет, что ругается на
dm->tAboLich->Append();
и ниже..
раз access violation - значит nil или проблема с памятью

народ а просветите плиз по поводу док панелей
как сделать что бы она не закрывалась при потере фокуса? а то думаю усеры взбунтуются рано или поздно

mdid
Странно, но у меня она и не закрывается при потере фокуса. В дизайн-тайме видно свойство AutoHide, но у меня оно постоянно в False и нельзя изменить.

mdid
AutoHide = false
sam291074
Можно изменить и в runtime, и design time, что приведет к скрытию панели (это же свойство меняется, когда пользователь нажимает кнопку cbHide заголовка панели).

AutoHide = false
не вариант..пропадает кнопка с DockSiteи панель постоянно видима..то есть развернута на ширину DockSite

mdid

Цитата:

не вариант..пропадает кнопка с DockSiteи панель постоянно видима

Какая кнопка? cbHide?
Сам использую TdxDockPanel, никаких проблем не возникает. Надо скрыть - нажал кнопку в заголовке. Если не надо, чтоб скрывалась - нажал на ту же кнопку и панель закрепилась.
А размер панели можно менять перетаскивая границу хоть при AutoHide = false, хоть при AutoHide = true.
Может я неправильно понял, что требуется? Или панель другая?

andreybear
черт..а это идея..пасиб...та про размер я в курсе

добрый день, подскажите, как обработать щелчок по этому кусочку грида?



спасибо

fortezza

Код: procedure TForm1.ViewMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if View.GetHitTest(X,Y).HitTestCode = htIndicatorHeader then
begin
// Ваши действия
end;
end;

большое спасибо, повесила туда Ctrl+A


Код:
procedure ....cxGrdMouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
AHitTest: TcxCustomGridHitTest;
begin
if not (Sender is TcxGridSite) then Exit;
AHitTest := TcxGridSite(Sender).ViewInfo.GetHitTest(X, Y);

case AHitTest.HitTestCode of
htIndicatorHeader:
begin
keybd_event(vk_control, 0, 0, 0);
keybd_event(ord('A'), 0, 0, 0);
keybd_event(ord('A'), 0, KEYEVENTF_KEYUP, 0);
keybd_event(vk_control, 0, KEYEVENTF_KEYUP, 0);
end;
end;
end;

Кто знает или может подсказать: какой метод или свойство XtraGrid отвечает за фильтрацию по индексу строки?

Тоже вопрос по фильтрам, только нубский Как в таблице BandedTableView отловить событие изменения условий отбора строк? Какого-то события типа "OnFilterChanged" или "OnFilterConditionChanged" не нашел

Цитата:

Какого-то события типа "OnFilterChanged" или "OnFilterConditionChanged" не нашел

procedure TForm2.cxGrid1BandedTableView1DataControllerFilterChanged(Sender: TObject);
begin
end;

Вопросик по cxGrid: при подключении поля DateTime из оракловой базы происходит ошибка Invalid Argument если попадается дата вида "01.01.000". Что можно с этим сделать?

AndreyAgrh
А что это за дата такая?
поле Date?

tanaseduard, да Date .. БД разрабатывалась еще под досом на 9 оракле.. откуда там такие поля я не могу сказать ..

AndreyAgrh

Date именно в DDL таблице? Какая версия Oracle щас? Какие NLS прописанны в Default?
Попробойте использовать To_Date()->To_Char()

tanaseduard:
nls: AMERICAN_AMERICA.CL8MSWIN1251
Oracle 9.2.0.4.0
DDL в таблице.

Спасибо, попробую через функции ..

AndreyAgrh
Всеравно странно. Сделайте выборку через PL/SQL или аналогичный редактор первых 10 строк и сюда давайте. Интересно что покажет.
И какое значение у NLS_DATE_FORMAT?

AndreyAgrh
А что за компоненты доступа?

tanaseduard, хорошо, завтра посмотрю и сделаю.
wasilissk, компоненты UniDac.

Добрый день!
Подскажите, как можно определить порядок band'ов в пределах каждого уровня в TcxGridBandedTableView (для "объектов"), и сквозную нумерацию предпоследних band'ов в каждой колонке (для "показателей") слева на право?
Пример структуры

tanaseduard,

NLS_DATE_FORMAT: DD-MON-RR

Name Data Type
------------------------------ ------------------------------
CONTNUM VARCHAR2(9 BYTE) NOT NULL
CLOSEDATE DATE

Данные отображаемые в SQL Navigator:
" 361","13-дек-2007"
" 363","28-апр-2008"
" 364","09-июн-2008"
" 2609","01-янв-0001"
" 626","25-янв-2008"
" 390","02-мар-2010"
" 640","07-май-2007"
" 2630","01-янв-0001"
" 411","01-янв-0001"
" 10006031","29-дек-2011"

Попробовал на пустом проекте .. все тоже самое:
" Project Project1.exe raised exception class EVariantInvalidArgError with message 'Invalid argument'. "

AndreyAgrh

Попробуйте ограничить выбор в SQL по CLOSEDATE>'01.01.2001'. Ошибка будет появляться?

AndreyAgrh
Чет тупанул.

Цитата:

Вопросик по cxGrid: при подключении поля DateTime из оракловой базы происходит ошибка Invalid Argument если попадается дата вида "01.01.000". Что можно с этим сделать?

А эти записи такого вида нужны вообще?

AndreyAgrh
Либо отфильтровывать такие даты, как уже посоветовали.
Либо в виде строки выводить (календарика девэкспрессовского тогда не будет)

Код:
select ... TO_CHAR(CLOSEDATE, 'DD-MON-RR') CLOSEDATE, ....