On-line: гостей 0. Всего: 0 [подробнее..]
АвторСообщение
постоянный участник




Пост N: 7956
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 22.03.25 12:35. Заголовок: TsBrowse. Как сделать объединение ячеек ?


Создаю ТСБ из массивов, небольшой отчет по годам.
Возможно ли сделать показ одной большой строки в ТСБ ?
Это как в Экселе делается объединение нескольких ячеек для показа длинного текста - подзаголовка.
Вот так как на картинке:


Спасибо: 0 
ПрофильЦитата Ответить
Ответов - 25 , стр: 1 2 All [только новые]


постоянный участник




Пост N: 7999
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 09.06.25 17:32. Заголовок: Показ карточки с цве..


Показ карточки с цветными TAB из TSB в новой версии МиниГуи
C:\MiniGUI_2506\SAMPLES\Advanced\Tsb_EditDbf\demo3.hbp

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 8000
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 11.06.25 12:08. Заголовок: Что то не собирается..


Что то не собирается пример C:\MiniGUI_2506\SAMPLES\Advanced\Tsb_EditDbf\demo1-ru.hbp
Под новым компилятором:
W:\…ProjectMiniGui\@PROJECT\@TSBROWSE---\Tsb_array_EditDbf>c:\MiniGuiBcc77_2506\build.bat -DDEBUG demo1-ru.hbp 
building...
c:\MiniGuiBcc77_2506\
c:\MiniGuiBcc77_2506\build.bat
c:\bcc770

Harbour 3.2.0dev (r2502211016)
Copyright (c) 1999-2025, https://harbour.github.io/
Borland Resource Compiler Version 5.40
Copyright (c) 1990, 1999 Inprise Corporation. All rights reserved.
Borland Resource Compiler Version 5.40
Copyright (c) 1990, 1999 Inprise Corporation. All rights reserved.
OBJ\demo1.c:
OBJ\demo1_array.c:
OBJ\GetSet_array_dbf.c:
OBJ\demo1_util.c:
OBJ\demo1_line64.c:
OBJ\tsb_Checkerboard.c:
OBJ\tsb_EditWindows.c:
OBJ\tsb_SprDefect.c:
OBJ\tsb_Tovar.c:
OBJ\tsb_tovar_outfit.c:
OBJ\tsb_memo_cell.c:
OBJ\tsb_util.c:
OBJ\util_button.c:
OBJ\_hbmkaut_demo1.c:
Turbo Incremental Link 5.66 Copyright (c) 1997-2002 Borland
Error: Unresolved external '___get_std_stream' referenced from C:\MINIGUIBCC77_2506\HARBOUR\LIB\WIN\BCC\HBVMMT.LIB|fm
Error: Unresolved external 'SwitchToThisWindow' referenced from C:\MINIGUIBCC77_2506\LIB\MINIGUI.LIB|c_windowsAPI
Error: Unresolved external 'PrivateExtractIconsA' referenced from C:\MINIGUIBCC77_2506\LIB\MINIGUI.LIB|c_icon
Error: Unresolved external '__itoa' referenced from C:\MINIGUIBCC77_2506\LIB\MINIGUI.LIB|c_winapimisc
hbmk2[demo1-ru]: Error: Running linker. 2
Для продолжения нажмите любую клавишу . . .


Да и другие тоже.
Harbour 3.2.0dev (r2502211016)
Copyright (c) 1999-2025, https://harbour.github.io/
D:\TEMP\hbmk_krl4a2.dir\demo.c:
D:\TEMP\hbmk_puhvy8.c:
Turbo Incremental Link 5.66 Copyright (c) 1997-2002 Borland
Error: Unresolved external '___get_std_stream' referenced from C:\MINIGUIBCC77_2506\HARBOUR\LIB\WIN\BCC\HBVM.LIB|fm
Error: Unresolved external 'SwitchToThisWindow' referenced from C:\MINIGUIBCC77_2506\LIB\MINIGUI.LIB|c_windowsAPI
Error: Unresolved external 'PrivateExtractIconsA' referenced from C:\MINIGUIBCC77_2506\LIB\MINIGUI.LIB|c_icon
Error: Unresolved external '__itoa' referenced from C:\MINIGUIBCC77_2506\LIB\MINIGUI.LIB|c_winapimisc
hbmk2: Error: Running linker. 2

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 8055
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 07.10.25 15:07. Заголовок: https://i.postimg.cc..



Имею построенный ТСБ, все колонки текстовые.
Нужно превратить определенную колонку по выбору в числовую и выдать итог в подвале.
Проблема, не получается изменить тип колонки.
Как это сделать ???
Вот код:
   aSum[x] := { числа, полученное из текстовой колонки } 
oCol := oBrw:GetColumn("Col_10")
oCNew := oCol:Clone()
nPos := 11
oBrw:InsColumn(nPos, oCNew)
oCol := oBrw:aColumns[nPos]
oCol:cPicture := NIL
oCol:cDataType := "N"
oBrw:Reset()
oBrw:GoTop()
FOR nJ := 1 TO oBrw:nLen
oBrw:SetValue(nPos,aSum[nJ])
oBrw:Skip(1)
NEXT
....
oBrw:DelColumn( nPos-1 ) // удалить колонку в таблицу
oBrw:DrawFooters()
oBrw:Reset()
oBrw:Refresh(.T.) // перечитывает данные в таблице
oBrw:GoTop()
oBrw:SetFocus()
DO EVENTS

После перерисовки ТСБ - прога падает с ошибкой:
 
Error BASE/2022 Неверный аргумент: ALLTRIM
Args:
[1] = N 1.00
Called from ALLTRIM(0)
Called from (b)EVAL(523) in module: demo.prg
Called from TSBROWSE:BDATAEVAL(1993) in module: h_tbrowse.prg
Called from TSBROWSE:DRAWSELECT(4795) in module: h_tbrowse.prg
Called from TSBROWSE:DRAWSUPER(5054) in module: h_tbrowse.prg
Called from TSBROWSE:PAINT(11268) in module: h_tbrowse.prg
Called from TCONTROL:HANDLEEVENT(872) in module: TControl.prg
Called from TSBROWSE:HANDLEEVENT(9764) in module: h_tbrowse.prg
Called from EVENTS(144) in module: h_events.prg
Called from DOEVENTS(0)
Called from TSB_1COLTRANSF(280) in module: tsb_actions.prg


Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 8056
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 07.10.25 17:04. Заголовок: Отбой. Код заработал..


Отбой. Код заработал !!!

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 8057
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 07.10.25 18:22. Заголовок: Есть отличная функци..


Есть отличная функция в ТСБ - oBrw:FilterFTS( cVal, .T. )
Можно ли такую же сделать для ТСБ с массивом типа oBrw:FilterArr( cVal, .T. ) ?

Спасибо: 0 
ПрофильЦитата Ответить
Ответов - 25 , стр: 1 2 All [только новые]
Ответ:
1 2 3 4 5 6 7 8 9
большой шрифт малый шрифт надстрочный подстрочный заголовок большой заголовок видео с youtube.com картинка из интернета картинка с компьютера ссылка файл с компьютера русская клавиатура транслитератор  цитата  кавычки моноширинный шрифт моноширинный шрифт горизонтальная линия отступ точка LI бегущая строка оффтопик свернутый текст

показывать это сообщение только модераторам
не делать ссылки активными
Имя, пароль:      зарегистрироваться    
Тему читают:
- участник сейчас на форуме
- участник вне форума
Все даты в формате GMT  3 час. Хитов сегодня: 17
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет