Модератор: Модераторы
shade » 31.01.2008 19:57:57
shade » 31.01.2008 21:02:20
debi12345 писал(а):Чего тогда стесняемся сами в конференции вопросы задавать ?
debi12345 » 01.02.2008 00:20:25
А можно кратко объяснить как пользоваться StatFile?
нужно упаковать в него оформление
Даже не знаю с какой стороны подступить...
TDrawGrid в событие oncellevent/cek_keydown - info.grid = nil
Долго не мог понять, почему по клику я могу выделить ячейку, а по нажатию клавиши получаю SIGSEGV...
shade » 01.02.2008 14:03:04
debi12345 писал(а):Здесь нужно анализировать, от кого событие - и потом читать из соответствующих полей "переключаемой" структуры INFO ( похоже на UNION из C/C++).
debi12345 » 01.02.2008 15:29:26
procedure tmainfo.personsevent(const sender: TObject;
var info: celleventinfoty);
begin
if iscellclick(info,[ccr_dblclick]) then begin
actEdit.execute;
end;
end;
shade » 01.02.2008 16:45:21
{$assertions on}
procedure tmainfo.personsevent(const sender: TObject;
var info: celleventinfoty);
begin
assert(info.grid <> nil);
if iscellclick(info,[ccr_dblclick]) then begin
actEdit.execute;
end;
end; 
debi12345 » 01.02.2008 17:18:32
мне лень в конфу ломиться Embarassed
я раньше такими конфами не пользовался ничего не знаю и разбираться в лом...
debi12345 » 01.02.2008 18:15:23
чтобы вызывать форму редактирования "editfo" при двойном щелчке мыши по строке :
mainform->grdPersons->oncellevent:= personsevent :
- Код: Выделить всё
procedure tmainfo.personsevent(
const sender: TObject;
var info: celleventinfoty);
begin
if (cek_buttonrelease = info.eventkind) and
(sender as twidget).isdblclick(info.mouseeventinfopo^) then
begin
actEdit.execute;
end;
end;
то есть анализируем факт отпускания мыши в пределах "grdPersons", и если этот факт соответствует двойному щелку левой кнопокой - напрямую запускаем действие, назначенное компоненту "actEdit"
или еще более упрощенный ( рекомендуемый ) вариант :
- Код: Выделить всё
procedure tmainfo.personsevent(
const sender: TObject;
var info: celleventinfoty);
begin
if iscellclick( info,[ccr_dblclick] ) then begin
actEdit.execute;
end;
end;
и (для справки) совсем низкоуровневый код :
- Код: Выделить всё
with info,mouseeventinfopo^ do begin
if (cek_buttonrelease = info.eventkind ) and
(ss_double in shiftstate) and
(button = mb_left)
then begin
actEdit.execute;
end;
end;
Примечания :
"iscellclick" удобна еще и тем, что, по умолчанию, нажатие "Enter" эквивалентно двойному щелчку ( отключить это поведение можно, включив ограничение "ccr_nokeyreturn" в "[..]" списке)
вот мы увидели еще один вариант активизации компонентов типа "taction" - через прямой вызов "execute", и получили еще одно подтверждение большого удобства и гибкости "taction"
по умолчанию интервал обнаружения двойного щелчка в "MSEgui" равен 0.4 сек, весьма сильно отличающееся от значения 0.2 сек, принятому по умолчанию в среде X11 ; данный интервал можно изменить следующим способом :
в самой MSEgui-программе - в стартовом файле проекта :
// измеряется в (1/1.000.000) секунды
application.dblclicktime:= 200000;
application.createform(tmainfo,mainfo);
application.run;
Примечание :
в принципе, данную настройку можно задавать и менять в любом месте программы
MSEgui использует собственный алгоритм для исключения неверной интерпретации "двойного щелчка " в случаях, когда указатель мыши за время между щелчками успевает переместиться на другой визуальный компонент ( или ячейку таблицы ), причем данный алгоритм не зависит от ожидаемого интервала между щелчками .
Поэтому "application.dblclicktime" может принимать весьма большие значения без каких-либо проблем, и пользователю не нужно торопиться со щелчками.
Единственное , о чем в этом случае надо помнить - для таблиц используйте именно "iscellclick( info,[ccr_dblclick]", так как только здесь выполняется проверка на перемещение в соседние ячейки таблицы
procedure tmainfo.cellevent(const sender: TObject; var info:
celleventinfoty);
begin
case info.eventkind of
cek_buttonrelease:
if (sender as twidget).isdblclicked(info.mouseeventinfopo^) then
showmessage('Double clicked when column ' + IntTostr(info.grid.col) + '
was in input focus','msg'); <<-----------
cek_keyup:
showmessage( 'The code of ' + inttostr(longint(info.keyeventinfopo^.key))
+ ' is pressed','msg');
end;
end;
shade » 01.02.2008 19:09:02
procedure tmainfo.OnCellEvent(const sender: TObject; var info: celleventinfoty);
var
cell: gridcoordty;
p: PPanelInfo;
begin
if (info.eventkind = cek_keydown) and (info.keyeventinfopo^.key = key_insert) then
begin
p := PPanelInfo(info.grid.tag);
p^.Selection[info.cell.row] := not p^.Selection[info.cell.row];
cell.col := info.cell.col;
cell.row := info.cell.row + 1;
p^.Grid.focuscell(cell);
p^.grid.invalidatecell(info.cell);
end; // if
end;procedure tmainfo.OnCellEventLeft(const sender: TObject; var info: celleventinfoty);
begin
info.grid := LeftGrid; // patch info.grid
OnCellEvent(sender, info);
end;
procedure tmainfo.OnCellEventRight(const sender: TObject; var info: celleventinfoty);
begin
info.grid := RightGrid; // patch info.grid
OnCellEvent(sender, info);
end;
debi12345 » 01.02.2008 22:20:01
Т.к. info.grid во преки ожиданиям равен nil приходиться делать оберки для двух гридов:
shade » 02.02.2008 11:19:48
debi12345 писал(а):Наконец-то смог сосредоточиться. Да, похоже на баг - не настраивается член структуры. Уже пофиксено ?
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4