Новая версия Расширенного релиза библиотеки MiniGUI (часть VI ) (продолжение)
gfilatov: Начало темы находится здесь, а теперь АНОНС * АНОНС * АНОНС * АНОНС * АНОНС Готовится к опубликованию новая сборка №48, которая выйдет в конце недели. Если у Вас есть интересные наработки для включения в новый релиз, то сейчас самое удобное время для их отправки мне Кратко, что нового: - исправление обнаруженных ошибок и неточностей кода; - новый класс HEADERIMAGE для Grid и Browse; - свойство Address в Hyperlink может теперь открывать папку или файл на диске; - добавлен NOTABSTOP класс для Browse; - поддержка пользовательских компонентов (заимствована из оффициального релиза); - расширения и исправления в библиотеках TsBrowse и PropGrid; - обновлены сборки Харбор и HMGS-IDE; - новые и обновленные старые примеры (как обычно ).
SergKis: gfilatov2002 У себя сделал[pre2] CLASS TWndData ... METHOD Hide() INLINE _HideWindow( ::cName ) METHOD SetFocus( xName ) INLINE iif( empty(xName), SetFocus(::nHandle) , ::GetObj(xName):SetFocus() ) METHOD SetSize( y, x, w, h ) INLINE _SetWindowSizePos( ::cName, y, x, w, h ) [/pre2] Переключать фокус на контрол окна oWnd:SetFocus('oBrw') focus на tsb
gfilatov2002: SergKis пишет: У себя сделал OK, принято
SergKis: gfilatov2002 Пример довел до какой то кондиции. http://my-files.ru/923enb Старое не сломалось (вроде), новое работает. Показал, как избавиться от public переменных базы колонок. На модальных окнах справ. включается edit (не ключевые поля)
gfilatov2002: SergKis пишет: Пример довел Очень хорошо! SergKis пишет: Старое не сломалось (вроде), новое работает. У меня работает тоже
SergKis: gfilatov2002 Добавьте строку в пример (у меня автоматом уст. в lib, в hmg забываю ставить)[pre2] FUNC Tsb_Create( cName, nY, nX, nW, nH, aCols ) ... :lFooting := .T. :lNoKeyChar := .T. :lNoVScroll := .F. ... [/pre2]
gfilatov2002: SergKis пишет: Добавьте строку в пример Благодарю, уже добавил...
SergKis: gfilatov2002 Сделал вариант[pre2] #xcommand DEFINE TBROWSE <name> TO <obrw> ; AT <row>,<col> ; ... =>; <obrw> :=_DefineTBrowse (<"name"> , ; ... with object <obrw> ... разделил имя тсб и имя переменной [/pre2]
gfilatov2002: SergKis пишет: разделил имя тсб и имя переменной Благодарю за идею! Только использовал ключевое слово OBJ вместо TO #xcommand DEFINE TBROWSE <name> OBJ <obrw> ; AT <row>,<col> ;
SergKis: gfilatov2002 пишет Только использовал ключевое слово OBJ вместо TO еще [pre2] #xcommand DEFINE TBROWSE <name> OBJ <obrw> ; [ AT <row>,<col> ] ; [/pre2]
SergKis: gfilatov2002 Пример тогда выглядит так http://my-files.ru/bl7ds2
gfilatov2002: SergKis пишет: работает и такой вариант У меня - НЕ работает. После этих изменений пропал фоновый цвет в контрольном примере (sample 4 и sample 7), а также фон у фантомной колонки селектора. Если возможно, выложите исправленные исходники библиотеки для сверки изменений. SergKis пишет: вместо // :SetColor( { CLR_FOCUSB }, { { |a,b,c| If( c:nCell == b, {RGB( 66, 255, 236), RGB(209, 227, 248)}, ; // Через установку :SetColor цвет есть
SergKis: gfilatov2002 От архива сверки еще немного поправил (сохранить цвета из define column ... команды)[pre2] METHOD New( cHeading, bData, cPicture, aColors, aAlign, nWidth, ; ... cDefData, cName, cAlias, DefineCol ) CLASS TSColumn ... ::lDefineColumn := ! empty(DefineCol) If ::lDefineColumn ::aColors := aTmpColor ::aColorsBack := aTmpColor Else ::DefColor( oBrw, aTmpColor ) ::DefFont ( oBrw ) EndIf ... METHOD AddColumn( oColumn ) CLASS TSBrowse Local nHeight, nAt, cHeading, cRest, nOcurs, ; hFont := If( ::hFont != Nil, ::hFont, 0 ) If oColumn:lDefineColumn oColumn:DefColor( Self, oColumn:aColors ) oColumn:DefFont ( Self ) EndIf ... METHOD InsColumn( nPos, oColumn ) CLASS TSBrowse Local nI, ; nCell := ::nCell If oColumn:lDefineColumn oColumn:DefColor( Self, oColumn:aColors ) oColumn:DefFont ( Self ) EndIf ... [/pre2]
SergKis: PS сделал в sample 7[pre2] DEFINE TBROWSE Brw_7 AT 0,0 CELLED ALIAS "Employee" Transparent Selector "Bitmaps\Arrow.bmp" ; WIDTH nBrwWidth HEIGHT nBrwHeight ; COLORS {CLR_BLACK, CLR_WHITE} ; // CLR_PINK [/pre2] получил белый фон, как раньше, т.е. пример совпал
gfilatov2002: SergKis пишет: METHOD DefColor( oBrw, aTmpColor ) CLASS TSColumn Default aTmpColor := Array( 20 ) Мыслим одинаково! Я тоже добавил у себя эти изменения SergKis пишет: COLORS {CLR_BLACK, CLR_WHITE} Согласен, что требуется установить белый цвет фона для этого примера с учетом исправленной Вами обработки цветов Сейчас внесу последние предложенные исправления и проверю работу контрольного примера Благодарю за помощь
gfilatov2002: SergKis пишет: В примере работает Подтверждаю - работает и Ваш пример, и контрольный пример SergKis пишет: в примере с базой колонок в Report колонку Добавил. Большое спасибо за помощь и терпение