powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / Выделение ряда строк
7 сообщений из 7, страница 1 из 1
Выделение ряда строк
    #33691700
Fahrenheit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Уважаемые камрады.
Подскажите, как реализовать в DW выделение нескольких строк сразу: по Ctrl - отдельные строки по клику, по Shift - рейндж от клика до клика? Как потом определить, какие именно строки выделены?
...
Рейтинг: 0 / 0
Выделение ряда строк
    #33691753
Фотография ЗоринАндрей
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
FahrenheitУважаемые камрады.
Подскажите, как реализовать в DW выделение нескольких строк сразу: по Ctrl - отдельные строки по клику, по Shift - рейндж от клика до клика? Как потом определить, какие именно строки выделены?pfcdwsrv.pbl -> pfc_n_cst_dwsrv_rowselection
style = extended.
...
Рейтинг: 0 / 0
Выделение ряда строк
    #33691850
Fahrenheit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Каюсь сразу, PFC у меня нет.
Собственно и вопрос встречный сразу: а есть такая PFC для 10-го PB?
...
Рейтинг: 0 / 0
Выделение ряда строк
    #33691887
Фотография ЗоринАндрей
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
FahrenheitКаюсь сразу, PFC у меня нет.
Собственно и вопрос встречный сразу: а есть такая PFC для 10-го PB?

codexchange
...
Рейтинг: 0 / 0
Выделение ряда строк
    #33692115
Fahrenheit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Благодарствую. Буду разбираться.
...
Рейтинг: 0 / 0
Выделение ряда строк
    #33693895
Фотография ChV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Можно "повесить" для обработки события Clicked :
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
Long lRow,lStartRow,lEndRow,lFocusRow
	if Row> 0  then
			if KeyDown(KeyControl!) then
					if this.IsSelected(Row) then
							this.SelectRow (Row,False)
					else
							this.SelectRow (Row,True)
					end if
					lFocusRow=Row
			elseif KeyDown(KeyShift!) then
					this.SetRedraw(False)
					this.SelectRow ( 0 ,False)
					lStartRow=this.GetRow()
					lEndRow=Row
					if lEndRow<lStartRow then
							for lRow=lStartRow to lEndRow Step - 1 
									this.SelectRow (lRow,True)
							next	
							lFocusRow=lStartRow
					else
							for lRow=lStartRow to lEndRow
									this.SelectRow (lRow,True)
							next	
							lFocusRow=lEndRow
					end if
					this.SetRedraw(True)
			else
					this.SelectRow ( 0 ,False)
					this.SelectRow (Row,True)
					lFocusRow=Row
			end if
			this.SetRow(lFocusRow)
	end if

...
Рейтинг: 0 / 0
Выделение ряда строк
    #33694429
Фотография Riska
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
DW event clicked:f_select_rows (This, row, ii_last_click)

f_select_rows (adw - datawindow, ai_row - integer, ai_last_click - integer[reference]):
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
long ll_i
boolean lb_result
// integer ii_last_click - instance variables in the window.

IF ai_row <  1  THEN RETURN

IF KeyDown(KeyControl!) THEN
	ai_last_click = ai_row
	lb_result = adw.IsSelected(ai_row)
	IF lb_result THEN
		adw.SelectRow(ai_row, FALSE)
	ELSE
		adw.SelectRow(ai_row, TRUE)
	END IF
ELSEIF KeyDown(KeyShift!) THEN
	IF ai_last_click < ai_row THEN
		FOR ll_i = ai_last_click TO ai_row
			adw.SelectRow(ll_i, TRUE)
		NEXT
	ELSEIF ai_last_click > ai_row THEN
		FOR ll_i = ai_last_click TO ai_row STEP - 1 
			adw.SelectRow(ll_i, TRUE)
		NEXT
	END IF
ELSE
	ai_last_click = ai_row
	adw.SelectRow( 0 , FALSE)
	adw.SelectRow(ai_row, TRUE)
END IF
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / Выделение ряда строк
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]