| Автор | Сообщение |
|
|
| постоянный участник
|
Пост 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)} ) Может неправильно делаю ?  |
 |
  
|
|
Ответов - 75
, стр:
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 Как такое возможно используя один и тот же исходник ? Что нужно исправить/добавить в новом проекте для ТСБ ? |
|
|
|
Ответов - 75
, стр:
1
2
3
4
All
[только новые]
|
|
У WAPI_GETKEYSTATE() есть параметр 
- участник сейчас на форуме
- участник вне форума