Отправлено: 29.01.08 13:59. Заголовок: Новая версия Расширенного релиза библиотеки MiniGUI (часть V) (продолжение)

Начало темы находится здесь, а теперь

АНОНС * АНОНС * АНОНС * АНОНС * АНОНС

Готовится к опубликованию новая сборка №48, которая выйдет в конце недели.
Если у Вас есть интересные наработки для включения в новый релиз, то сейчас самое удобное время для их отправки мне

Кратко, что нового:

- исправление обнаруженных ошибок и неточностей кода;
- новый класс HEADERIMAGE для Grid и Browse;
- свойство Address в Hyperlink может теперь открывать папку или файл на диске;
- добавлен NOTABSTOP класс для Browse;
- поддержка пользовательских компонентов (заимствована из оффициального релиза);
- расширения и исправления в библиотеках TsBrowse и PropGrid;
- обновлены сборки Харбор и HMGS-IDE;
- новые и обновленные старые примеры (как обычно ).

 Отправлено: 10.07.14 00:27. Заголовок: Haz пишет: это реша..

Haz пишет:

цитата:

это решается заменой BRC32 на ресурс компилер от микрософт

А как это сделать ? Поделись пожалуйста опытом...

 Отправлено: 10.07.14 10:18. Заголовок: Andrey пишет: Подел..

Andrey пишет:

цитата:

Поделись пожалуйста опытом...

а чего тут делиться BRCC32.EXE - компилятор ресурсов от Borland
RC.EXE - тож самое от Microsoft ( можно любой другой брать т.к. RES он и в африке RES)
Набираешь в консоли RC.EXE /? и читаешь справку по командной строке, потом правишь батник сборки проекта под синтаксис RC.

PS Если использовать HBmk2 при использовании BCC32 вызывает его компилятор ресурсов, я когда-то правил исходник HBmk2 под синтаксис RC
Можно наверное и свою обманку BRCC32 написать , которая принимает параметры командной строки и передает их RC

 Отправлено: 31.07.14 10:15. Заголовок: АНОНС * АНОНС * АНОН..

АНОНС * АНОНС * АНОНС * АНОНС * АНОНС

Завершается подготовка к опубликованию новой версии 2.3.8, которая выйдет на следующей неделе.

Кратко, что нового:
- добавлен новый элемент управления - owner-draw ListBox со встроенными Checkbox-ами;
- продолжена оптимизация использования внутренних функций с целью уменьшения ядра библиотеки;
- небольшие изменения библиотеки MiniPrint;
- обновлена unicode-сборка Харбора версии 3.2.0dev и библиотека SQLITE3 до версии 3.8.6dev;
- добавлены новые и обновлены/исправлены некоторые старые примеры.

Благодарю за внимание!

 Отправлено: 05.08.14 10:07. Заголовок: Новый релиз библиоте..

Новый релиз библиотеки для компилятора BCC выложил, как и обещал,
на официальном сайте библиотеки по адресу:

http://hmgextended.com/files/CONTRIB/hmg-2.3.8-setup.zip

Также доступна полная сборка для компилятора MinGW по адресу:

http://hmgextended.com/files/CONTRIB/hmg238-mingw.exe

и компактный архив для свежей версии компилятора xHarbour

http://hmgextended.com/files/CONTRIB/xhmg238_xhb10008.zip

Желаю всем мира, добра и надежды!

 Отправлено: 05.08.14 17:17. Заголовок: Григорий, спасибо БО..

Григорий, спасибо БОЛЬШОЕ за твой огромный труд !

 Отправлено: 28.08.14 12:12. Заголовок: To Григорий - Возможно ли добавить метод

Григорий , возможно ли в TsBrowse HMG добавить новый метод ? ( себе добавляю его в новые сборки, но не удобно же )
На базе ::Resize() написал ::RewsizeWin() который позволяет динамически менять само окно TsBrows

Вот сам метод
Скрытый текст

* ============================================================================ * METHOD TSBrowse:ReSizeWin() * ============================================================================ METHOD ReSizeWin( nSizeType, nTop, nLeft, nWidth, nHeight ) CLASS TSBrowse Local /*nMin, nMax, nPage,*/ ; nTotPix := 0 MoveWindow ( ::oWnd:hWnd, nLeft, nTop, nWidth, nHeight, .T. ) ::nTop := nTop If Empty( ::aColSizes ) Return Nil EndIf AEval( ::aColSizes, {|n| nTotPix += n } ) If ::lEditing .and. ::aColumns[ ::nCell ]:oEdit != Nil SendMessage( ::aColumns[ ::nCell ]:oEdit:hWnd, WM_KEYDOWN, VK_ESCAPE, 0 ) EndIf If ! Empty( ::nAdjColumn ) ::nAdjColumn := Min( Len( ::aColumns ), ::nAdjColumn ) EndIf ::nRowPos := Min( ::nRowPos, Max( ::nRowCount(), 1 ) ) If ! Empty( ::nAdjColumn ) .and. nTotPix != nWidth ::aColumns[ ::nAdjColumn ]:nWidth := ; ::aColSizes[ ::nAdjColumn ] += ( nWidth - nTotPix ) EndIf ::Super:ReSize( nSizeType, nWidth, nHeight ) ::ResetVScroll() Return ::Refresh(.T.)

Вот пример использования , бровс привязан к форме и при изменении размера фориы - меняется размер бровса
Скрытый текст

#include "minigui.ch" #include "tsbrowse.ch" FUNC Main() Local aArray := { ; {'AAAAAAAAAAAAAAAA', 1, Date() }, ; {'BBBBBBBBBBBBBBBB', 2, Date() }, ; {'CCCCCCCCCCCCCCCC', 3, Date() }, ; {'DDDDDDDDDDDDDDDD', 4, Date() }, ; {'EEEEEEEEEEEEEEEE', 5, Date() }, ; {'FFFFFFFFFFFFFFFF', 6, Date() }, ; {'GGGGGGGGGGGGGGGG', 7, Date() } ; } Public oBrw DEFINE WINDOW Form_1 ; AT 0,0 ; WIDTH 400 ; HEIGHT 300 ; TITLE "TsBrowse ReSize Test" ; MAIN ; FONT 'Tahoma' SIZE 9; ON SIZE { || oBrw:ResizeWin( 0, ; GetProperty("Form_1", 'Row') + 5, ; GetProperty("Form_1", 'Col') + 5, ; GetProperty("Form_1", 'Width') - 17, ; GetProperty("Form_1", 'Height') - 45 ) } ; ON MINIMIZE { || oBrw:ResizeWin( 0, ; GetProperty("Form_1", 'Row') + 5, ; GetProperty("Form_1", 'Col') + 5, ; GetProperty("Form_1", 'Width') - 17, ; GetProperty("Form_1", 'Height') - 45 ) } ; ON MAXIMIZE { || oBrw:ResizeWin( 0, ; GetProperty("Form_1", 'Row') + 5, ; GetProperty("Form_1", 'Col') + 5, ; GetProperty("Form_1", 'Width') - 17, ; GetProperty("Form_1", 'Height') - 45 ) } ; DEFINE TBROWSE oBrw ; AT 5,5 ; OF Form_1 ; WIDTH GetProperty("Form_1", 'Width') - 17 ; HEIGHT GetProperty("Form_1", 'Height') - 45 ; FONT "Tahoma" ; SIZE 9 ; GRID oBrw:nAdjColumn := 1 oBrw:SetArray( aArray, .T. ) END TBROWSE END WINDOW ACTIVATE WINDOW Form_1 RETURN NIL

 Отправлено: 28.08.14 13:46. Заголовок: Haz пишет: возможно..

Haz пишет:

цитата:

возможно ли в TsBrowse HMG добавить новый метод ?

Вынужден Вам отказать, поскольку новый метод практически повторяет уже существующий метод ::Resize()

Вместо добавления нового метода предлагаю использовать простую функцию типа

 
 FUNCTION ResizeWin( oBrw ) 
 Local nTop := 5 
 Local nLeft := 5 
 Local nWidth := GetProperty("Form_1", 'Width') - 17 
 Local nHeight := GetProperty("Form_1", 'Height') - 45 
  
    MoveWindow( oBrw:oWnd:hWnd, nTop, nLeft, nWidth, nHeight, .T. )  
  
    oBrw:Resize( 0, nWidth, nHeight ) 
  
    oBrw:ResetVScroll()  
  
    oBrw:Refresh(.T.) 
  
 RETURN NIL

 Отправлено: 28.08.14 15:02. Заголовок: Нет так нет gfilat..

Нет так нет

gfilatov2002 пишет:

цитата:

предлагаю использовать простую функцию типа

Почти так и делаю
METHOD ReSizeWin( nSizeType, nTop, nLeft, nWidth, nHeight ) CLASS TSBrowse
MoveWindow ( ::oWnd:hWnd, nLeft, nTop, nWidth, nHeight, .T. )
::nTop := nTop
::Resize( nSizeType, nWidth, nHeight )
::ResetVScroll()
Return ::Refresh(.T.)

PS без выделенной строки будет глюк с Get объектами если на форме не один бровс

 Отправлено: 28.08.14 17:12. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Local nWidth := GetProperty("Form_1", 'Width') - 17 Local nHeight := GetProperty("Form_1", 'Height') - 45

А зачем это делать ?
На ХР будет один размер, на Win8 будет другой размер.
Я уже пробовал.
Использую теперь, то что SergKis посоветовал.
STATIC FUNCTION MyResizeBrowse()
LOCAL hWnd := GetFormHandle(ThisWindow)
LOCAL nHStBar := GetWindowHeight(GetControlHandle('STATUSBAR', hWnd)) // высота StatusBar
nHStBar := 0 // если не используется StatusBar
oBrw_5:Move( oBrw_5:nLeft ,oBrw_5:nTop , GetClientWidth(hWnd)-2, ;
GetClientHeight(hWnd) - oBrw_5:nTop - nHStBar, .T.)
oBrw_5:Paint() // Иначе не перерисовываются вертикальные разделители у бровса
CorrectionFirstLast("oBrw_5")
MyToolBar(.T.) //----- перерисовать свои кнопки ----
Return nil

Может и не прав, но вроде работает. Поправьте меня, если не прав.
Может быть лучше эти функции (GetClientWidth() и GetClientHeight() ) добавить в библиотеку, чтобы стандартными были ?

 Отправлено: 28.08.14 20:27. Заголовок: Andrey ошибка LOCAL..

Andrey
ошибка
LOCAL nHStBar := GetWindowHeight(GetControlHandle('STATUSBAR', hWnd))
надо
LOCAL nHStBar := GetWindowHeight(GetControlHandle('STATUSBAR', <здесь имя окна, а не hWnd>))

 Отправлено: 28.08.14 20:41. Заголовок: SergKis пишет: надо..

SergKis пишет:

цитата:

надо LOCAL nHStBar := GetWindowHeight(GetControlHandle('STATUSBAR', <здесь имя окна, а не hWnd>))

А можно вместо <здесь имя окна, а не hWnd> поставить ThisWindow или _HMG_ThisFormName ?

 Отправлено: 28.08.14 21:00. Заголовок: Andrey пишет:А можно..

Andrey пишет:

цитата:

А можно вместо

если вызов MyResizeBrowse() происходит между
DEFINE WINDOW ...
END WINDOW
то да, ThisWindow.Name или _HMG_ThisFormName,
если после END WINDOW до ACTION ..., тогда не через эти переменные.

 Отправлено: 03.09.14 10:42. Заголовок: АНОНС * АНОНС * АНОН..

АНОНС * АНОНС * АНОНС * АНОНС * АНОНС

Завершается подготовка к опубликованию новой версии 2.3.9, которая выйдет на следующей неделе.

Кратко, что нового:
- переработана и дополнена Error-система библиотеки;
- теперь команда PRINT IMAGE в библиотеке MiniPrint поддерживает вывод PNG картинок;
- небольшие изменения в библиотеке WinReport от автора;
- обновлена HMGS-IDE до версии 1.2.3;
- обновлена unicode-сборка Харбора версии 3.2.0dev и библиотека SQLITE3 до финальной версии 3.8.6;
- добавлены новые и обновлены/исправлены некоторые старые примеры.

Благодарю за внимание!

 Отправлено: 03.09.14 15:19. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

- переработана и дополнена Error-система библиотеки;

А чуть подробней можно описать ?

 Отправлено: 03.09.14 15:26. Заголовок: Andrey Подробнее бу..

Andrey
Подробнее будет видимо в ChangeLog.txt

 Отправлено: 03.09.14 15:33. Заголовок: Dima пишет: Подробн..

Dima пишет:

цитата:

Подробнее будет видимо в ChangeLog.txt

Да, именно так

цитата:

* Enhanced: The following additional information is available in the ErrorLog file at the program crash: - system params; - environmental params; - detailed work area items (it may be empty section); - internal error handling params; - list of available Public and Private variables (it may be empty). Based upon a Harbour xhb contribution. The old behaviour is available also via using of the command SET SHOWDETAILERROR OFF on top of a main module. Requested by Honorio A. S. Almeida <info2000informa@ig.com.br>. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see demo in folder \samples\Basic\ShowDetailError)

 Отправлено: 09.09.14 09:56. Заголовок: Новый релиз библиоте..

Новый релиз библиотеки для компилятора BCC выложил, как и обещал,
на официальном сайте библиотеки по адресу:

http://hmgextended.com/files/CONTRIB/hmg-2.3.9-setup.zip

Также доступна полная сборка для компилятора MinGW по адресу:

http://hmgextended.com/files/CONTRIB/hmg239-mingw.exe

и компактный архив для свежей версии компилятора xHarbour

http://hmgextended.com/files/CONTRIB/xhmg239_xhb10015.zip

Благодарю за внимание

 Отправлено: 10.09.14 13:18. Заголовок: Пересобрал несколько..

Пересобрал несколько программ. Полет нормальный !

 Отправлено: 10.09.14 14:32. Заголовок: Andrey пишет: Полет..

Andrey пишет:

цитата:

Полет нормальный !

Дополнительно в этой сборке добавлен второй параметр в функцию _AutoAdjust():
- это массив с оригинальным разрешением, при котором разрабатывались формы в приложении.
Это удобно использовать для автоматического масштабирования элементов управления в окнах
на компьютере пользователя при старте приложения.

Для проверки я использовал следующий простой пример, который распахивает окно на весь экран
(при этом для дизайна формы использовалось минимальное разрешение 640 х 480):

		#include "minigui.ch" 
  
 		Function Main 
  
 			SET AUTOADJUST ON 
  
 			DEFINE WINDOW Form_1 ; 
 				TITLE 'Hello World!' ; 
 				MAIN ; 
 				ON INIT _AutoAdjust( This.Handle, {640, 480} ) 
  
 				@ 200,10 LABEL Label_1 ; 
 					WIDTH 620 HEIGHT 24 ; 
 					VALUE 'Sample  text' ; 
 					FONT 'Arial' SIZE 12 CENTERALIGN 
  
                                 // здесь на форме располагаются другие элементы управления 
  
 			END WINDOW 
  
 		ACTIVATE WINDOW Form_1 
  
 		Return Nil 
 

 Отправлено: 10.09.14 17:52. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Это удобно использовать для автоматического масштабирования элементов управления в окнах на компьютере пользователя при старте приложения.

Не понятно как это использовать ?
Вот например есть готовое меню для программы - https://cloud.mail.ru/public/ad39650e5d8a%2FButtonEx_OnMouseHover2.7z
Как это меню переделать для всех (основных) разрешений экрана.

И второй вопрос: по тексту программы - не могу сделать автоопределение имени объекта для контекстного меню.
Как его сделать, чтобы понятно было в контекстном меню - какой объект сейчас редактируется ?