Автор | Сообщение |
|
| постоянный участник
|
Пост N: 5971
Зарегистрирован: 12.09.06
|
|
Отправлено: 19.07.18 12:15. Заголовок: Пример экспорта Tsbrowse в разные форматы (Tsb_Export)...
Всем привет. Что то у меня цвета с таблицы Tsbrowse не такими экспортируются в XML. Т.е. что-то в библиотеке hbxlsxml цвета по другому получаются... В Tsb2xml.prg цвет задаю так: nColor := oBrw:aColumns[nCol]:nClrBack If hb_isBlock( nColor ) nColor := Eval(nColor, oBrw:nAt, nCol, oBrw ) end // в aColors храним массивы ( строка, столбец. стиль ) Aadd( aColors, {nLine, nCol, "S" + hb_ntoc(nColor, 16)} ) Может неправильно делаю ?
|
|
|
Новых ответов нет
, стр:
1
2
3
4
All
[см. все]
|
|
|
| |
Пост N: 1413
Зарегистрирован: 20.02.11
|
|
Отправлено: 30.11.18 13:22. Заголовок: Haz пишет: При таск..
Haz пишет: цитата: | При таскании за угол - не меняется (НОЛЬ) тогда искать другое решение |
| Ловится через WAPI_GETKEYSTATE()
|
|
|
|
| постоянный участник
|
Пост N: 2143
Зарегистрирован: 17.02.12
|
|
Отправлено: 30.11.18 15:06. Заголовок: Haz пишет Значит кли..
Haz пишет цитата: | Значит клики при таскании парента за угол так не поймать |
| Да это так, но и в др. местах не очень ловится цитата: | Ловится через WAPI_GETKEYSTATE() |
| Не ловится, как и через _HMG_MouseState Добавил Скрытый текст
STATIC _App_OnEvent_ := .F. ... SET EVENTS FUNCTION TO App_OnEvents ... DEFINE WINDOW test ; ... ON INIT ( OnInitTest(oBrw,cParam), This.Topmost := .F., ; _App_OnEvent_ := .T. ) ... DEFINE TIMER Timer_MTest INTERVAL 100 ACTION iif( !_App_OnEvent_, , ; _LogFile(.T., 'Timer: _HMG_MouseState', _HMG_MouseState, WAPI_GETKEYSTATE()) ) END WINDOW CENTER WINDOW test ACTIVATE WINDOW test ... #define WM_SIZING 532 #define WM_NCPAINT 133 FUNC App_OnEvents( hWnd, nMsg, wParam, lParam ) LOCAL nRes := 0 If _App_OnEvent_ switch nMsg case WM_LBUTTONDOWN ? procname(), WM_LBUTTONDOWN, 'WM_LBUTTONDOWN', WAPI_GETKEYSTATE(), '_HMG_MouseState', _HMG_MouseState exit case WM_LBUTTONUP ? procname(), WM_LBUTTONUP, 'WM_LBUTTONUP', WAPI_GETKEYSTATE(), '_HMG_MouseState', _HMG_MouseState exit case WM_SIZE ? procname(), WM_SIZE, 'WM_SIZE', WAPI_GETKEYSTATE(), '_HMG_MouseState', _HMG_MouseState exit case WM_SIZING ? procname(), WM_SIZING, 'WM_SIZING', WAPI_GETKEYSTATE(), '_HMG_MouseState', _HMG_MouseState exit case WM_NCPAINT ? procname(), WM_NCPAINT, 'WM_NCPAINT', WAPI_GETKEYSTATE(), '_HMG_MouseState', _HMG_MouseState exit end EndIf RETURN Events( hWnd, nMsg, wParam, lParam ) ... STATIC FUNCTION ResizeTable(oBrw) LOCAL cForm := oBrw:cParentWnd LOCAL nMaxWidth, nMaxHeight, nPBarWidth, nCol, oCol LOCAl nW, nS, nN, nK ? procname() nMaxWidth := This.ClientWidth nMaxHeight := This.ClientHeight ... Получил в _MsgLog.txt Start - Tsb_export987bcc.exe Number of records in the table: 1005 Windows 8.1 6.3 Harbour MiniGUI Extended Edition 18.10 (32-bit) . Timer: _HMG_MouseState 0 0 Timer: _HMG_MouseState 0 0 Timer: _HMG_MouseState 0 0 Timer: _HMG_MouseState 0 0 Timer: _HMG_MouseState 0 0 Timer: _HMG_MouseState 0 0 Timer: _HMG_MouseState 0 0 Timer: _HMG_MouseState 0 0 Timer: _HMG_MouseState 0 0 Timer: _HMG_MouseState 0 0 Timer: _HMG_MouseState 0 0 Timer: _HMG_MouseState 0 0 Timer: _HMG_MouseState 0 0 Timer: _HMG_MouseState 0 0 Timer: _HMG_MouseState 0 0 Timer: _HMG_MouseState 0 0 Timer: _HMG_MouseState 0 0 Timer: _HMG_MouseState 0 0 Timer: _HMG_MouseState 0 0 Timer: _HMG_MouseState 0 0 Timer: _HMG_MouseState 0 0 Timer: _HMG_MouseState 0 0 Timer: _HMG_MouseState 0 0 Timer: _HMG_MouseState 0 0 Timer: _HMG_MouseState 0 0 Timer: _HMG_MouseState 0 0 Timer: _HMG_MouseState 0 0 Timer: _HMG_MouseState 0 0 APP_ONEVENTS 532 WM_SIZING 0 _HMG_MouseState 0 APP_ONEVENTS 133 WM_NCPAINT 0 _HMG_MouseState 0 APP_ONEVENTS 5 WM_SIZE 0 _HMG_MouseState 0 RESIZETABLE Timer: _HMG_MouseState 0 0 APP_ONEVENTS 532 WM_SIZING 0 _HMG_MouseState 0 APP_ONEVENTS 133 WM_NCPAINT 0 _HMG_MouseState 0 APP_ONEVENTS 5 WM_SIZE 0 _HMG_MouseState 0 RESIZETABLE Timer: _HMG_MouseState 0 0 APP_ONEVENTS 532 WM_SIZING 0 _HMG_MouseState 0 APP_ONEVENTS 133 WM_NCPAINT 0 _HMG_MouseState 0 APP_ONEVENTS 5 WM_SIZE 0 _HMG_MouseState 0 RESIZETABLE Timer: _HMG_MouseState 0 0 Timer: _HMG_MouseState 0 0 Timer: _HMG_MouseState 0 0 Timer: _HMG_MouseState 0 0 Timer: _HMG_MouseState 0 0 Timer: _HMG_MouseState 0 0 Timer: _HMG_MouseState 0 0 Timer: _HMG_MouseState 0 0 Timer: _HMG_MouseState 0 0 Timer: _HMG_MouseState 0 0 Timer: _HMG_MouseState 0 0 Timer: _HMG_MouseState 0 0
| т.е. не поймали нажатие WM_LBUTTONDOWN, WM_LBUTTONUP, т.к. ловится нажатия над окном, но не при resize
|
|
|
|
| |
Пост N: 1414
Зарегистрирован: 20.02.11
|
|
Отправлено: 30.11.18 15:19. Заголовок: SergKis пишет: Не л..
SergKis пишет: Ловится ! У WAPI_GETKEYSTATE() есть параметр WAPI_GETKEYSTATE( VK_LBUTTON ) при попытке ресайза парент окна за угол возвращает значение по модулю больше 1 при нажатой кнопке и 0/1 при отпускании
|
|
|
|
| постоянный участник
|
Пост N: 2144
Зарегистрирован: 17.02.12
|
|
Отправлено: 30.11.18 15:35. Заголовок: Haz пишет У WAPI_GET..
Haz пишет цитата: | У WAPI_GETKEYSTATE() есть параметр |
| Добавил в примере параметр, теперь вывод выглядит примерно так: ? procname(), ..., 'VK_LBUTTON', WAPI_GETKEYSTATE(VK_LBUTTON), '_HMG_MouseState', _HMG_MouseState получил файл Скрытый текст
Start - Tsb_export987bcc.exe Number of records in the table: 1005 Windows 8.1 6.3 Harbour MiniGUI Extended Edition 18.10 (32-bit) . Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 Timer: _HMG_MouseState 0 VK_LBUTTON 0 APP_ONEVENTS 532 WM_SIZING VK_LBUTTON -127 _HMG_MouseState 0 Timer: _HMG_MouseState 0 VK_LBUTTON -127 APP_ONEVENTS 532 WM_SIZING VK_LBUTTON -127 _HMG_MouseState 0 APP_ONEVENTS 133 WM_NCPAINT VK_LBUTTON -127 _HMG_MouseState 0 APP_ONEVENTS 5 WM_SIZE VK_LBUTTON -127 _HMG_MouseState 0 RESIZETABLE VK_LBUTTON -127 _HMG_MouseState 0 Timer: _HMG_MouseState 0 VK_LBUTTON -127 APP_ONEVENTS 532 WM_SIZING VK_LBUTTON -127 _HMG_MouseState 0 APP_ONEVENTS 133 WM_NCPAINT VK_LBUTTON -127 _HMG_MouseState 0 APP_ONEVENTS 5 WM_SIZE VK_LBUTTON -127 _HMG_MouseState 0 RESIZETABLE VK_LBUTTON -127 _HMG_MouseState 0 Timer: _HMG_MouseState 0 VK_LBUTTON -127 APP_ONEVENTS 532 WM_SIZING VK_LBUTTON -127 _HMG_MouseState 0 APP_ONEVENTS 133 WM_NCPAINT VK_LBUTTON -127 _HMG_MouseState 0 APP_ONEVENTS 5 WM_SIZE VK_LBUTTON -127 _HMG_MouseState 0 RESIZETABLE VK_LBUTTON -127 _HMG_MouseState 0 Timer: _HMG_MouseState 0 VK_LBUTTON -127 APP_ONEVENTS 532 WM_SIZING VK_LBUTTON -127 _HMG_MouseState 0 APP_ONEVENTS 133 WM_NCPAINT VK_LBUTTON -127 _HMG_MouseState 0 APP_ONEVENTS 5 WM_SIZE VK_LBUTTON -127 _HMG_MouseState 0 RESIZETABLE VK_LBUTTON -127 _HMG_MouseState 0 Timer: _HMG_MouseState 0 VK_LBUTTON -127 APP_ONEVENTS 532 WM_SIZING VK_LBUTTON -127 _HMG_MouseState 0 APP_ONEVENTS 133 WM_NCPAINT VK_LBUTTON -127 _HMG_MouseState 0 APP_ONEVENTS 5 WM_SIZE VK_LBUTTON -127 _HMG_MouseState 0 RESIZETABLE VK_LBUTTON -127 _HMG_MouseState 0 Timer: _HMG_MouseState 0 VK_LBUTTON -127 Timer: _HMG_MouseState 0 VK_LBUTTON 1 Timer: _HMG_MouseState 0 VK_LBUTTON 1 Timer: _HMG_MouseState 0 VK_LBUTTON 1 Timer: _HMG_MouseState 0 VK_LBUTTON 1 Timer: _HMG_MouseState 0 VK_LBUTTON 1 Timer: _HMG_MouseState 0 VK_LBUTTON 1 Timer: _HMG_MouseState 0 VK_LBUTTON 1 Timer: _HMG_MouseState 0 VK_LBUTTON 1 Timer: _HMG_MouseState 0 VK_LBUTTON 1 Timer: _HMG_MouseState 0 VK_LBUTTON 1 Timer: _HMG_MouseState 0 VK_LBUTTON 1 Timer: _HMG_MouseState 0 VK_LBUTTON 1 Timer: _HMG_MouseState 0 VK_LBUTTON 1 Timer: _HMG_MouseState 0 VK_LBUTTON 1 Timer: _HMG_MouseState 0 VK_LBUTTON 1 Timer: _HMG_MouseState 0 VK_LBUTTON 1 Timer: _HMG_MouseState 0 VK_LBUTTON 1 Timer: _HMG_MouseState 0 VK_LBUTTON 1 Timer: _HMG_MouseState 0 VK_LBUTTON 1
| т.е. во всех событиях, кроме timer значение -127 и надо переносить перерисовку на on timer ?
|
|
|
|
| |
Пост N: 1415
Зарегистрирован: 20.02.11
|
|
Отправлено: 30.11.18 15:40. Заголовок: SergKis пишет: и на..
SergKis пишет: цитата: | и надо переносить перерисовку на on timer ? |
| Нет , в процедуре по On Resize если -127 то не рисуем бровс, а ждем когда отпустят кнопку . Но парадокс в том когда ее отпустят - то и on Resize уже не вызовется ЗЫ таймер я испорльзовал для простоты и наглядности
|
|
|
|
| |
Пост N: 1416
Зарегистрирован: 20.02.11
|
|
Отправлено: 30.11.18 15:46. Заголовок: Haz пишет: Но парад..
Haz пишет: цитата: | Но парадокс в том когда ее отпустят - то и on Resize уже не вызовется |
| Получается с началом ON RESIZE запускаем сторожа ( через поток или через таймер ) и в нем ждем когда кнопка освободится. Потом перерисовываем бровс в новых размерах. Все реализуемо, но мне оно тоже не надо )))
|
|
|
|
| постоянный участник
|
Пост N: 2145
Зарегистрирован: 17.02.12
|
|
Отправлено: 30.11.18 15:49. Заголовок: SergKis пишет т.е. в..
SergKis пишет цитата: | т.е. во всех событиях, кроме timer значение -127 |
| Еще -128 появляется, точно не понял от чего, но похоже чередуются с -127, но может и не так Haz пишет цитата: | Но парадокс в том когда ее отпустят - то и on Resize уже не вызовется |
| Потому и переносить прорисовку надо на куда то и timer активировать. Мудрено как то. По мне лучше zoom +\- 10% к ширине окна добавлять и плясать перерисовкой контролов
|
|
|
|
| |
Пост N: 1417
Зарегистрирован: 20.02.11
|
|
Отправлено: 30.11.18 15:54. Заголовок: SergKis пишет: Еще ..
SergKis пишет: цитата: | Еще -128 появляется, точно не понял от чего, но похоже чередуются с -127, но может и не так Haz пишет |
| Именно так , сам не пойму почему Чередуется -127/-128 и 0/1 SergKis пишет: Да, ну если кто-то захочет маньячить в потоке или на таймере - то реализуемо.
|
|
|
|
| |
Пост N: 113
Зарегистрирован: 23.06.08
|
|
Отправлено: 02.12.18 19:42. Заголовок: Haz пишет: Получает..
Haz пишет: цитата: | Получается с началом ON RESIZE запускаем сторожа ( через поток или через таймер ) и в нем ждем когда кнопка освободится. Потом перерисовываем бровс в новых размерах. |
| Зачем так сложно, когда в WinApi есть готовые WM_ENTERSIZEMOVE/WM_EXITSIZEMOVE? Они же, кстати, и используются в C# под капотом у Form->ResizeBegin/ResizeEnd. Andrey пишет: цитата: | Как бы сделать ТАК ЖЕ и для Tsb_Export ? |
| Через свою функцию-обработчик сообщений: PROCEDURE Main() SET EVENTS FUNCTION TO MYEVENTS DEFINE WINDOW Form_1 ; // ........... CENTER WINDOW Form_1 ACTIVATE WINDOW Form_1 RETURN #define WM_ENTERSIZEMOVE 0x0231 #define WM_EXITSIZEMOVE 0x0232 FUNCTION MyEvents ( hWnd, nMsg, wParam, lParam ) DO CASE CASE nMsg == WM_ENTERSIZEMOVE Form1_ResizeBegin() CASE nMsg == WM_EXITSIZEMOVE Form1_ResizeEnd() OTHERWISE Events ( hWnd, nMsg, wParam, lParam ) ENDCASE RETURN Events ( hWnd, nMsg, wParam, lParam ) Было бы хорошо, если эти события добавили в MiniGUI к Window, чтобы можно было просто задавать ON SIZE_BEGIN / SIZE_END.
|
|
|
|
| постоянный участник
|
Пост N: 2146
Зарегистрирован: 17.02.12
|
|
Отправлено: 03.12.18 08:26. Заголовок: SkyNET пишет Через с..
SkyNET пишет цитата: | Через свою функцию-обработчик сообщений: ... Было бы хорошо, если эти события добавили в MiniGUI к Window, чтобы можно было просто задавать ON SIZE_BEGIN / SIZE_END. |
| Тогда все, действительно, получается хорошо. Скрытый текст
Добавка в пример (timer убран) #define WM_ENTERSIZEMOVE 0x0231 #define WM_EXITSIZEMOVE 0x0232 FUNC App_OnEvents( hWnd, nMsg, wParam, lParam ) If _App_OnEvent_ switch nMsg case WM_ENTERSIZEMOVE ? procname(), WM_ENTERSIZEMOVE, 'WM_ENTERSIZEMOVE' exit case WM_EXITSIZEMOVE ? procname(), WM_EXITSIZEMOVE , 'WM_EXITSIZEMOVE' exit end EndIf RETURN Events( hWnd, nMsg, wParam, lParam ) дает результат Start - Tsb_export987bcc.exe Number of records in the table: 1005 Windows 8.1 6.3 Harbour MiniGUI Extended Edition 18.10 (32-bit) . APP_ONEVENTS 561 WM_ENTERSIZEMOVE RESIZETABLE VK_LBUTTON -128 _HMG_MouseState 0 RESIZETABLE VK_LBUTTON -128 _HMG_MouseState 0 RESIZETABLE VK_LBUTTON -128 _HMG_MouseState 0 RESIZETABLE VK_LBUTTON -128 _HMG_MouseState 0 RESIZETABLE VK_LBUTTON -128 _HMG_MouseState 0 RESIZETABLE VK_LBUTTON -128 _HMG_MouseState 0 APP_ONEVENTS 562 WM_EXITSIZEMOVE APP_ONEVENTS 561 WM_ENTERSIZEMOVE RESIZETABLE VK_LBUTTON -127 _HMG_MouseState 0 RESIZETABLE VK_LBUTTON -127 _HMG_MouseState 0 RESIZETABLE VK_LBUTTON -127 _HMG_MouseState 0 RESIZETABLE VK_LBUTTON -127 _HMG_MouseState 0 RESIZETABLE VK_LBUTTON -127 _HMG_MouseState 0 RESIZETABLE VK_LBUTTON -127 _HMG_MouseState 0 RESIZETABLE VK_LBUTTON -127 _HMG_MouseState 0 RESIZETABLE VK_LBUTTON -127 _HMG_MouseState 0 APP_ONEVENTS 562 WM_EXITSIZEMOVE
|
|
|
|
|
| постоянный участник
|
Пост N: 6148
Зарегистрирован: 12.09.06
|
|
Отправлено: 09.12.18 00:04. Заголовок: Вышла новая версия п..
Вышла новая версия примера Tsb_Export(9.88). Реализована плавное увеличение окон и автоматическое увеличение/уменьшение таблицы. Спасибо большое Григорию и Сергею за помощь ! Большая просьба протестировать на ваших компах следующее меню - " Export to C# Dll Ole-Excel (xls)" ! И результаты пожалуйста напишите здесь. У меня даже на игровом компе не вылетает. Григорий пишет, что у него на 7-ке вылетает. Сами ехе-ники собраны на 2-х компиляторах: https://cloud.mail.ru/public/C2ae/pkQkZh9kY В системе должен быть установлен Microsoft.NET Framework версии 4.0.3 и выше. Заранее благодарю за помощь.
|
|
|
|
|
| постоянный участник
|
Пост N: 6781
Зарегистрирован: 12.09.06
|
|
Отправлено: 12.08.20 14:45. Заголовок: hbxlsxml + tsbrowse ..
hbxlsxml + tsbrowse и картинка ? А как можно вывести картинку для таблицы, пример SAMPLES\Advanced\Tsb_Export - для меню "Export to Excel 2 (xml-files)" Смотрел либу, вроде нет методов вывода картинки...
|
|
|
|
| |
Пост N: 1593
Зарегистрирован: 20.02.11
|
|
Отправлено: 12.08.20 21:44. Заголовок: Andrey пишет: Смотр..
Andrey пишет: цитата: | Смотрел либу, вроде нет методов вывода картинки |
| Давно не смотрел исходник, но там вроде и правда не было. Поступаю так: создаю XML, затем открываю через ole и дорисовываю .
|
|
|
|
| постоянный участник
|
Пост N: 6782
Зарегистрирован: 12.09.06
|
|
Отправлено: 13.08.20 13:02. Заголовок: Haz пишет: Поступаю..
Haz пишет: цитата: | Поступаю так: создаю XML, затем открываю через ole и дорисовываю . |
| Понял. Спасибо !
|
|
|
|
| постоянный участник
|
Пост N: 6829
Зарегистрирован: 12.09.06
|
|
Отправлено: 27.09.20 14:36. Заголовок: Версия МиниГуи 20.08..
Версия МиниГуи 20.08 (Update 3) Есть пример SAMPLES\Advanced\Tsb_Export_2\demo.exe Беру оттуда Tsb7xlsOle.prg, Tsb7xml.prg, TsbCell.prg в новый проект. В новом проекте вылет из-за TsbCell - не заполняется формат oCol:cPicture в функции myGetTsbCell(oBrw) Т.е. в примере в модуле TsbCell.prg ставлю отладку ? aRet ; ?v aRet выводит правильно, типа: {0, 15794175, 1879708121, 0d20200331, "D", "99.99.99", "DCALC", "Center"} А в новом проекте выводит так: {0, 15794175, 1611272175, 0d20200920, "D", NIL, "DEVENT", "Center"} все выводы формата oCol:cPicture - NIL Как такое возможно используя один и тот же исходник ? Что нужно исправить/добавить в новом проекте для ТСБ ?
|
|
|
Новых ответов нет
, стр:
1
2
3
4
All
[см. все]
|
|