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

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

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

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

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

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

 Отправлено: 25.09.20 21:54. Заголовок: SergKis пишет: это ..

SergKis пишет:

цитата:

это надо учитывать

Поправил этот код.
Благодарю за помощь

 Отправлено: 25.09.20 21:56. Заголовок: PS Для поля "M&#..

PS
Для поля "M" получим valtype() -> "C" и не попадем на веточку

 
           ElseIf cType == "M"  
              nSize := iif( ::nMemoWV == Nil, 200, ::nMemoWV )  
 

, для "=@" получим "T", но это, наверно, нормально веточка сработает

 
           ElseIf cType $ "=@T"  
              nSize := GetTextWidth( 0, Replicate( "9", 24 ), hFont )  
 а 
           ElseIf cType $ "^+"  
              nSize := GetTextWidth( 0, Replicate( "9", 10 ), hFont )  
 не сработает 
 

т.е. в целом нужна большая переработка, но можно пойти др. путем
Игорь, какой тип получаем в структуре aStru[ nE, 2 ] для поля "CICHARACTER" U или пусто ?
Может Valtype делать для таких полей (с неопределенной структурой) и для них делать Valtype() и результат заносить в aStru[ nE, 2 ], тогда метод не меняется практически

 Отправлено: 25.09.20 22:08. Заголовок: PS тогда, наверно, п..

PS
тогда, наверно, придется определять и aStru[ nE, 3 ] и aStru[ nE, 4 ], но в методе дальше ничего не меняется

 Отправлено: 25.09.20 22:39. Заголовок: PS2 Как то так получ..

PS2
Как то так получится

 
       cType := aStru[ nE, 2 ] 
       IF Empty(cType) .or. cType == "U" 
          cData := ( cAlias )->( FieldGet( nE ) ) 
          aStru[ nE, 2 ] := Valtype( cData ) 
          cType := aStru[ nE, 2 ] 
          IF cType == "C" 
             aStru[ nE, 3 ] := Len( cData ) 
             aStru[ nE, 4 ] := 0 
          ELSE 
 // тут смотреть твои (ADS) варианты и добавить 
          ENDIF 
       ENDIF 
 

 Отправлено: 26.09.20 08:09. Заголовок: SergKis пишет: како..

SergKis пишет:

цитата:

какой тип получаем в структуре aStru[ nE, 2 ] для поля "CICHARACTER"

Dbstruct() возвратит именно CICHARACTER , valtype() вернет С.
В ADS есть и другие символьные поля это просто CHAR и VARCHAR! но valtype() справедливо вернет С. Тоже касается поля с автоинкрементом в ADS это AUTUINC , valtype вернет N, есть поле дата время TIMESTAMP , valtype его вернет как T (тут надо проверить )

Могу прописать по аналогии с dbf кусок кода для ADS с особенностями его типов полей. Вроде это пока единственный rdd выбивающийся из структуры классического dbf. Но с другой стороны логичнее все же привязываться к типам данных которые знает харбур , а не дергать их из структуры. То есть, valtype будет универсальнее чем dbsruct()

 Отправлено: 26.09.20 09:04. Заголовок: Haz пишет Могу пропи..

Haz пишет

цитата:

Могу прописать по аналогии с dbf кусок кода для ADS с особенностями его типов полей. Вроде это пока единственный rdd выбивающийся из структуры классического dbf. Но с другой стороны логичнее все же привязываться к типам данных которые знает харбур , а не дергать их из структуры. То есть, valtype будет универсальнее чем dbsruct()

Думаю, надо прописать (или определять весь список полей dbf), будет правильнее, т.к. лучше понимать ситуацию. Можно даже завести переменную hash в классе для такого списка с "правильной" перекодировкой. Ведь надо еще правильно формировать aStru[ nE, 3\4 ]. От полученного значения (cAlias)->(FieldGet(nE)) может возникать вариантность этих значений.
ADS все таки RDD и сделать такую штуку, включив в тсб - нормальное решение

 Отправлено: 26.09.20 09:12. Заголовок: Haz пишет То есть, v..

Haz пишет

цитата:

То есть, valtype будет универсальнее чем dbsruct()

Так и будем прыгать сначала от valtype, но для определения cType и nLen, nDec для работы метода.
Если dbStruct() дает правильные типы в aStru, то их можно оставлять для :cFieldTyp, :cFieldLen, :cFieldDec для правильной привязки к полю.

 Отправлено: 26.09.20 09:30. Заголовок: SergKis пишет: надо..

SergKis пишет:

цитата:

надо прописать (или определять весь список полей dbf), будет правильнее

в понедельник с работы пропишу

 Отправлено: 26.09.20 09:43. Заголовок: SergKis пишет: смот..

SergKis пишет:

цитата:

смотрю версию 2.07 от 2012 года там в LoadFields aStru := ( cAlias )->( DbStruct() ) и

Тогда не пойму в чем дело. Последний раз обновлял сборку примерно полгода-год назад. Все строковые данные отображались корректно по колонкам где пикчи не было.
Пару дней назад перешёл на последнюю сборку, записал проект в работу и посыпались жалобы. По коду только на loadfilds похоже, что еще может быть не пойму. В проекте после примерно 50 правок явного указания пикчи устал и просто в функцию создающую tsb после определения бровса добавил код который указал выше для символьных полей. Все заработало.
Но вот если это тянется с 2012 года, я реально не понимаю что случилось

 Отправлено: 26.09.20 12:03. Заголовок: SergKis пишет: Так ..

SergKis пишет:

цитата:

Так и будем прыгать сначала от valtype, но для определения cType и nLen, nDec для работы метода.

Для того, чтобы сделать этот код универсальным, записал в методе так:

 
       cData := ( cAlias )->( FieldGet( nE ) ) 
       cType := ValType( cData ) 
  
       If cType == "C" 
          cPicture := "@K " + Replicate( 'X', aStru[ nE, 3 ] ) 
       ElseIf cType == "N" .and. aStru[ nE, 2 ] $ "^+" 
          cPicture := Replicate( '9', 10 ) 
       ElseIf cType == "N" 
          cPicture := Replicate( '9', aStru[ nE, 3 ] ) 
          If aStru[ nE, 4 ] > 0 
             cPicture := SubStr( cPicture, 1, aStru[ nE, 3 ]-aStru[ nE, 4 ] - 1 ) + '.' + Replicate( '9', aStru[ nE, 4 ] ) 
          EndIf 
          cPicture := "@K " + cPicture 
       EndIf 
  
       If nSize == Nil 
          cType  := aStru[ nE, 2 ] 
          nSize  := aStru[ nE, 3 ] 
          nDec   := aStru[ nE, 4 ] 
          hFont  := iif( ::hFont != Nil, ::hFont, 0 ) 
          hFontH := iif( ::hFontHead != Nil, ::hFontHead, ::hFont ) 
  
          If cType == "C" 
             cData := PadR( Trim( cData ), nSize, "B" ) 
             nSize := GetTextWidth( 0, cData, hFont ) 
          ElseIf cType == "N" 
             cData := StrZero( cData, nSize, nDec ) 
             nSize := GetTextWidth( 0, cData, hFont ) 
          ElseIf cType == "D" 
             cData := cValToChar( iif( Empty( cData ), Date(), cData ) ) 
             nSize := Int( GetTextWidth( 0, cData + "BB", hFont ) ) + iif( lEditable, 30, 0 ) 
          ElseIf cType == "M" 
             nSize := iif( ::nMemoWV == Nil, 200, ::nMemoWV ) 
          ElseIf cType $ "=@T" 
             nSize := GetTextWidth( 0, Replicate( "9", 24 ), hFont ) 
          ElseIf cType $ "^+" 
             nSize := GetTextWidth( 0, Replicate( "9", 10 ), hFont ) 
          Else 
             cData := cValToChar( cData ) 
             nSize := GetTextWidth( 0, cData, hFont ) 
          EndIf 
 ... 
 

 Отправлено: 26.09.20 13:46. Заголовок: Григорий, видимо для..

Григорий, видимо для универсальности нужно будет явно прописать типы ads. Их там гораздо больше чем в dbf. http://devzone.advantagedatabase.com/dz/webhelp/advantage7.1/server1/adt_field_types_and_specifications.htm
В понедельник пришлю правку подних (дома нет компа ). За основу возьму код последним выложенный здесь .
Заодно попрошу обновить библиотеку ads, в поставке она устарела . последняя версия ads v12 . именно на ней sap похоронил этот продукт после покупки. Библиотеку под 12 для bcc тоже вышлю

 Отправлено: 26.09.20 13:59. Заголовок: gfilatov2002 пишет ..

gfilatov2002 пишет

 
        cData := ( cAlias )->( FieldGet( nE ) )  
        cType := ValType( cData )  
    
        If cType == "C"  
           cPicture := "@K " + Replicate( 'X', aStru[ nE, 3 ] )  
        ElseIf cType == "N" .and. aStru[ nE, 2 ] $ "^+"  
           cPicture := Replicate( '9', 10 )  
        ElseIf cType == "N"  
           cPicture := Replicate( '9', aStru[ nE, 3 ] )  
           If aStru[ nE, 4 ] > 0  
              cPicture := SubStr( cPicture, 1, aStru[ nE, 3 ]-aStru[ nE, 4 ] - 1 ) + '.' + Replicate( '9', aStru[ nE, 4 ] )  
           EndIf  
           cPicture := "@K " + cPicture  
        EndIf  
    
        If nSize == Nil  
           cType  := aStru[ nE, 2 ]  
           nSize  := aStru[ nE, 3 ]  
           nDec   := aStru[ nE, 4 ]  
           hFont  := iif( ::hFont != Nil, ::hFont, 0 )  
           hFontH := iif( ::hFontHead != Nil, ::hFontHead, ::hFont )  
    
           If cType == "C"  
              cData := PadR( Trim( cData ), nSize, "B" )  
              nSize := GetTextWidth( 0, cData, hFont )  
           ElseIf cType == "N"  
 ... 
 

1. Предлагаю убрать выделенное синим цветом, т.к. если задан массив размеров, то из него не правильно берется размер, для всех колонок и тогда всегда надо делать переустановку. Если убрать, то формируются данные из структуры dbf и это более точно получается, но поправить потом можно. У себя убрал это давно
2. Предложенное не подойдет, т.к. CICHARACTER в cType := aStru[ nE, 2 ] после If nSize == Nil не сработает If cType == "C"
На мой взгляд надо, сто то такое

 
 cType := aStru[ nE, 2 ] 
 If Len(cType) > 1 
    If cType == ""AUTOINC 
       cType := "^" 
    Else 
       cType := Valtype( (cAlias)->(FieldGet(nE)) ) 
    EndIf 
 // может еще варианты, Игорь должен подсказать 
 EndIf 
 

Тогда в aStru[ nE, 2 ] будет реальный тип и попадет в :cFieldTyp, а логика отработает в методе нормально.
Надо посмотреть на Len и Dec в aStru, если они нормальные, то они отработают ок

 Отправлено: 26.09.20 14:01. Заголовок: Haz пишет За основу ..

Haz пишет

цитата:

За основу возьму код последним выложенный здесь

Надо брать код из либы последней, выложенный на основе valtype будет работать неверно

 Отправлено: 26.09.20 14:04. Заголовок: SergKis пишет: Надо..

SergKis пишет:

цитата:

Надо брать код из либы последней,

Договорились.

 Отправлено: 28.09.20 14:13. Заголовок: SergKis пишет: Надо..

SergKis пишет:

цитата:

Надо брать код из либы последней, выложенный на основе valtype будет работать неверно

Примерно так получилось, можно было на хеш массиве сделать , но выигрыша в скорости на таком коротком не будет
Далее по коду ищется в массиве aType значение из dbstruct, а возвращается соответствующее valtype

 
      local aType := {} 
  
       aType := {} 
       aAdd( aType, {"CICHARACTER", "C"} ) // CiCharacter 
       aAdd( aType, {"C",           "C"} ) // Character 
       aAdd( aType, {"C:U",         "C"} ) // nChar 
       aAdd( aType, {"C:B",         "C"} ) // Raw 
       aAdd( aType, {"Q",           "C"} ) // VarCharFox 
       aAdd( aType, {"Q:U",         "C"} ) // nVarChar 
       aAdd( aType, {"Q:B",         "C"} ) // VarBinaryFox 
                   
       aAdd( aType, {"D",           "D"} ) // Date 
  
       aAdd( aType, {"T",           "T"} ) // Time 
       aAdd( aType, {"@",           "T"} ) // TimeStamp 
       aAdd( aType, {"=",           "T"} ) // ModTime 
  
       aAdd( aType, {"I",           "N"} ) // Integer, ShortInt, LongInt 
       aAdd( aType, {"B",           "N"} ) // Double 
       aAdd( aType, {"+",           "N"} ) // Autoinc 
       aAdd( aType, {"N",           "N"} ) // Numeric 
       aAdd( aType, {"Y",           "N"} ) // Money 
       aAdd( aType, {"Z",           "N"} ) // Curdouble 
       aAdd( aType, {"^",           "N"} ) // RowVersion 
  
       aAdd( aType, {"M",           "M"} ) // Memo 
       aAdd( aType, {"M:U",         "M"} ) // nMemo 
       aAdd( aType, {"W",           "M"} ) // Binary 
       aAdd( aType, {"P",           "M"} ) // Image 
  
       aAdd( aType, {"L",           "L"} ) //  
  
       If aType[Ascan( aType, {|e| e[1] == cType })][2] == "C" 
          cPicture := "@K " + Replicate( 'X', aStru[ nE, 3 ] ) 
       ElseIf aType[Ascan( aType, {|e| e[1] == cType })][2] == "N" 
          cPicture := Replicate( '9', aStru[ nE, 3 ] ) 
          If aStru[ nE, 4 ] > 0 
             cPicture := SubStr( cPicture, 1, aStru[ nE, 3 ]-aStru[ nE, 4 ] - 1 ) + '.' + Replicate( '9', aStru[ nE, 4 ] ) 
          EndIf 
          cPicture := "@K " + cPicture 
       ElseIf cType $ "^+" 
          cPicture := Replicate( '9', 10 ) 
       EndIf 
  
  
  
  
       If nSize == Nil 
          cData  := ( cAlias )->( FieldGet( nE ) ) 
          cType  := aStru[ nE, 2 ] 
          nSize  := aStru[ nE, 3 ] 
          nDec   := aStru[ nE, 4 ] 
          hFont  := iif( ::hFont != Nil, ::hFont, 0 ) 
          hFontH := iif( ::hFontHead != Nil, ::hFontHead, ::hFont ) 
  
          If aType[Ascan( aType, {|e| e[1] == cType })][2] ==  "C" 
             cData := PadR( Trim( cData ), nSize, "B" ) 
             nSize := GetTextWidth( 0, cData, hFont ) 
          ElseIf aType[Ascan( aType, {|e| e[1] == cType })][2] ==  "N" 
             cData := StrZero( cData, nSize, nDec ) 
             nSize := GetTextWidth( 0, cData, hFont ) 
          ElseIf aType[Ascan( aType, {|e| e[1] == cType })][2] ==  "D" 
             cData := cValToChar( iif( Empty( cData ), Date(), cData ) ) 
             nSize := Int( GetTextWidth( 0, cData + "BB", hFont ) ) + iif( lEditable, 30, 0 ) 
          ElseIf aType[Ascan( aType, {|e| e[1] == cType })][2] ==  "M" 
             nSize := iif( ::nMemoWV == Nil, 200, ::nMemoWV ) 
          ElseIf aType[Ascan( aType, {|e| e[1] == cType })][2] == "T" 
             nSize := GetTextWidth( 0, Replicate( "9", 24 ), hFont ) 
          ElseIf cType $ "^+" 
             nSize := GetTextWidth( 0, Replicate( "9", 10 ), hFont ) 
          Else 
             cData := cValToChar( cData ) 
             nSize := GetTextWidth( 0, cData, hFont ) 
          EndIf 
  
          nSize := Max( GetTextWidth( 0, Replicate( "B", Len( cHeading ) + 1 ), hFontH ), nSize ) 
          nSize += iif( ! Empty( cOrder ), 14, 0 ) 
  
 	 ElseIf ValType( ::aColSizes ) == "A" .and. ! Empty( ::aColSizes ) .and. n <= Len( ::aColSizes ) 
          nSize := ::aColSizes[ n ] 
       EndIf 
  
 

 Отправлено: 28.09.20 14:22. Заголовок: Haz пишет: aType ==..

Haz пишет:

цитата:

aType[Ascan( aType, {|e| e[1] == cType })][2]

Думаю этот код нужно выполнить до сравнения один раз с проверкой на возврат нуля, иначе будет вылет если dbstruct вернет не прописанный в массиве тип

 Отправлено: 28.09.20 14:50. Заголовок: Haz пишет: Примерно..

Haz пишет:

цитата:

Примерно так получилось

Вынес поиск в массиве в статическую функцию GetDbfFieldType()
и записал этот фрагмент таким образом:

      cType := aStru[ nE, 2 ] 
       If GetDbfFieldType( cType ) == "C" 
          cPicture := "@K " + Replicate( 'X', aStru[ nE, 3 ] ) 
       ElseIf cType $ "^+" 
          cPicture := Replicate( '9', 10 ) 
       ElseIf GetDbfFieldType( cType ) == "N" 
          cPicture := Replicate( '9', aStru[ nE, 3 ] ) 
          If aStru[ nE, 4 ] > 0 
             cPicture := SubStr( cPicture, 1, aStru[ nE, 3 ]-aStru[ nE, 4 ] - 1 ) + '.' + Replicate( '9', aStru[ nE, 4 ] ) 
          EndIf 
          cPicture := "@K " + cPicture 
       EndIf 
  
       If nSize == Nil 
          cData  := ( cAlias )->( FieldGet( nE ) ) 
          cType  := GetDbfFieldType( aStru[ nE, 2 ] ) 
          nSize  := aStru[ nE, 3 ] 
          nDec   := aStru[ nE, 4 ] 
          hFont  := iif( ::hFont != Nil, ::hFont, 0 ) 
          hFontH := iif( ::hFontHead != Nil, ::hFontHead, ::hFont ) 
  
          If cType == "C" 
             cData := PadR( Trim( cData ), nSize, "B" ) 
             nSize := GetTextWidth( 0, cData, hFont ) 
          ElseIf aStru[ nE, 2 ] $ "^+" 
             nSize := GetTextWidth( 0, Replicate( "9", 10 ), hFont ) 
          ElseIf cType == "N" 
             cData := StrZero( cData, nSize, nDec ) 
             nSize := GetTextWidth( 0, cData, hFont ) 
          ElseIf cType == "D" 
             cData := cValToChar( iif( Empty( cData ), Date(), cData ) ) 
             nSize := Int( GetTextWidth( 0, cData + "BB", hFont ) ) + iif( lEditable, 30, 0 ) 
          ElseIf cType == "M" 
             nSize := iif( ::nMemoWV == Nil, 200, ::nMemoWV ) 
          ElseIf cType == "T" 
             nSize := GetTextWidth( 0, Replicate( "9", 24 ), hFont ) 
          Else 
             cData := cValToChar( cData ) 
             nSize := GetTextWidth( 0, cData, hFont ) 
          EndIf 
  
          nSize := Max( GetTextWidth( 0, Replicate( "B", Len( cHeading ) + 1 ), hFontH ), nSize ) 
          nSize += iif( ! Empty( cOrder ), 14, 0 ) 
  
       ElseIf ValType( ::aColSizes ) == "A" .and. ! Empty( ::aColSizes ) .and. n <= Len( ::aColSizes ) 
          nSize := ::aColSizes[ n ] 
       EndIf 
 

Благодарю за помощь

 Отправлено: 28.09.20 15:01. Заголовок: Haz пишет код нужно ..

Haz пишет

цитата:

код нужно выполнить до сравнения один раз с проверкой на возврат нуля, иначе будет вылет если dbstruct вернет не прописанный в массиве тип

Предлагаю так (можно будет расширять список, если что)

 
      DATA aFieldTypes AS ARRAY INIT { ; 
                                      {"CICHARACTER", "C"}, ; // CiCharacter  
                                      {"C",           "C"}, ; // Character  
                                      {"C:U",         "C"}, ; // nChar  
                                      {"C:B",         "C"}, ; // Raw  
                                      {"Q",           "C"}, ; // VarCharFox  
                                      {"Q:U",         "C"}, ; // nVarChar  
                                      {"Q:B",         "C"}, ; // VarBinaryFox  
                                      {"D",           "D"}, ; // Date  
                                      {"T",           "T"}, ; // Time  
                                      {"@",           "T"}, ; // TimeStamp  
                                      {"=",           "T"}, ; // ModTime  
                                      {"I",           "N"}, ; // Integer, ShortInt, LongInt  
                                      {"B",           "N"}, ; // Double  
                                      {"+",           "N"}, ; // Autoinc  
                                      {"N",           "N"}, ; // Numeric  
                                      {"Y",           "N"}, ; // Money  
                                      {"Z",           "N"}, ; // Curdouble  
                                      {"^",           "N"}, ; // RowVersion  
                                      {"M",           "M"}, ; // Memo  
                                      {"M:U",         "M"}, ; // nMemo  
                                      {"W",           "M"}, ; // Binary  
                                      {"P",           "M"}, ; // Image  
                                      {"L",           "L"}  ; //   
                                     } 
       
      Local aType := ::aFieldTypes, nType 
      ... 
      cType := aStru[ nE, 2 ] 
  
      IF ( nType := Ascan( aType, {|e| e[1] == cType }) ) > 0 
         cType := aType[nType ][2] 
      ENDIF 
      ... 
 Далее по тексту метода, как был 
 

 Отправлено: 28.09.20 15:48. Заголовок: SergKis пишет: Пред..

SergKis пишет:

цитата:

Предлагаю так (можно будет расширять список, если что)

Согласен, погоняю еще позже отпишусь . Сейчас занят очень

 Отправлено: 28.09.20 15:57. Заголовок: SergKis пишет: Пред..

SergKis пишет:

цитата:

Предлагаю так

Принято, тестовый пример отработал нормально
Благодарю за помощь