freepascal.ru

Sorry, it was like a broken phone...

debi12345 писал(а):Чего тогда стесняемся сами в конференции вопросы задавать ?

А можно кратко объяснить как пользоваться StatFile?
нужно упаковать в него оформление
Даже не знаю с какой стороны подступить...

TDrawGrid в событие oncellevent/cek_keydown - info.grid = nil
Долго не мог понять, почему по клику я могу выделить ячейку, а по нажатию клавиши получаю SIGSEGV...

debi12345 писал(а):Здесь нужно анализировать, от кого событие - и потом читать из соответствующих полей "переключаемой" структуры INFO ( похоже на UNION из C/C++).

мне лень в конфу ломиться Embarassed
я раньше такими конфами не пользовался ничего не знаю и разбираться в лом...

чтобы вызывать форму редактирования "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;

Т.к. info.grid во преки ожиданиям равен nil приходиться делать оберки для двух гридов:

debi12345 писал(а):Наконец-то смог сосредоточиться. Да, похоже на баг - не настраивается член структуры. Уже пофиксено ?