Форум » GUI » Новая версия Расширенного релиза библиотеки MiniGUI (часть V) (продолжение) » тема закрыта
	перенос

Автор

Сообщение

gfilatov
модератор
Пост N: 699 Зарегистрирован: 25.05.05

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

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

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

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

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

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

Ответов - 300 , стр: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 All [только новые]

Andrey
постоянный участник
Пост N: 4716 Зарегистрирован: 12.09.06

Отправлено: 19.02.16 00:32. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Попробуй библиотеку по ссылке

Спасибо ! Но это времянка...
Нужен ключ какой то сделать. Одним нравиться без прыганья, другим наоборот.

SergKis
постоянный участник
Пост N: 858 Зарегистрирован: 17.02.12

Отправлено: 19.02.16 02:26. Заголовок: Andrey пишет:Нужен к..

Andrey пишет:

цитата:

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

для прыганья можно ставить на колонку:
oBrw5:aColumns[2]:nHAlign := {|nCol,oBrw| If( nCol == oBrw:nColOrder, DT_LEFT, oBrw:aColumns[nCol]:nHAlign ) }
или
oBrw5:aColumns[2]:nHAlign := {|nCol,oBrw| If( nCol == oBrw:nColOrder, DT_LEFT, DT_CENTER ) }

Andrey
постоянный участник
Пост N: 4717 Зарегистрирован: 12.09.06

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

SergKis пишет:

цитата:

для прыганья можно ставить на колонку:

То что надо ! Спасибо !

SergKis
постоянный участник
Пост N: 859 Зарегистрирован: 17.02.12

Отправлено: 19.02.16 13:53. Заголовок: gfilatov2002 Для уп..

gfilatov2002
Для управления сортировкой колонок при ::lIsArr == .T. (включить\выключить) более простым способом (без bSetOrder) предлагаю использовать переменную колонки (TsColumn) lIndexCol, при работе с массивом она не используется, т.е. oCol:lIndexCol := .T.\.F. - сортируется\нет колонка. Изменения следующие:

 
 METHOD SetOrder( nColumn, cPrefix, lDescend ) CLASS TSBrowse 
 ... 
    ElseIf ::lIsArr 
       If nColumn <= Len( ::aArray[ 1 ] )  .and. oColumn:lIndexCol 
          ::cOrderType := ValType( ::aArray[ ::nAt, nColumn ] ) 
 ... 
  
 METHOD New( cHeading, bData, cPicture, aColors, aAlign, nWidth, ; 
             lBitMap, lEdit, bValid, lNoLite, cOrder, cFooting, ; 
             bPrevEdit, bPostEdit, nEditMove, lFixLite, a3DLook, ; 
             bWhen, oBrw, cData, cWhen, cValid, cPrevEdit, cPostEdit, cMsg, cToolTip, lTotal, ; 
             lSpinner, bUp, bDown, bMin, bMax, cError, cSpcHeading,; 
             cDefData, cName , lIndexCol ) CLASS TSColumn 
 ... 
    Default cHeading  := ""            , ; 
 ... 
            cName        := "" 
  
     
     If ! empty(oBrw) .and. oBrw:lIsArr   // для работы по старому алгоритму - все колонки сортируются 
         lIndexCol  := .T. 
     EndIf 
  
 ..

выделенным добавки
тогда в программе можно колонкам без сортировки (массив) поставить oCol:lInexCol := .F.
попробовал на своей версии - сработало. Может что не учел ?

SergKis
постоянный участник
Пост N: 860 Зарегистрирован: 17.02.12

Отправлено: 19.02.16 13:59. Заголовок: PS поравочка в после..

PS
поправочка в последнем добавлении If ...

::lIndexCol := .T.

gfilatov2002
moderator
Пост N: 884 Зарегистрирован: 11.02.10

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

SergKis пишет:

цитата:

предлагаю использовать переменную колонки (TsColumn) lIndexCol

Принимается

SergKis
постоянный участник
Пост N: 863 Зарегистрирован: 17.02.12

Отправлено: 19.02.16 19:51. Заголовок: gfilatov2002 пишет:П..

gfilatov2002 пишет:

цитата:

Принимается

тогда можно добавить обработку lNoDescend (для одинаковости с ::lIsDbf == .T.)

 
    ElseIf ::lIsArr 
       If nColumn <= Len( ::aArray[ 1 ] ) .and. oColumn:lIndexCol 
          ::cOrderType := ValType( ::aArray[ ::nAt, nColumn ] ) 
 //V90 
          If nColumn == ::nColOrder .or. Empty( oColumn:cOrder ) .or. oColumn:lDescend == Nil 
             If lDescend == Nil 
                lDescend := If( Empty( oColumn:cOrder ) .or. oColumn:lDescend == Nil, .F., ! oColumn:lDescend ) 
             EndIf 
  
             If oColumn:lNoDescend  
                lDescend := .F. 
             EndIf 
  
             oColumn:lDescend := lDescend 
             ::nColOrder      := nColumn 
 ...

gfilatov2002
moderator
Пост N: 885 Зарегистрирован: 11.02.10

Отправлено: 19.02.16 21:10. Заголовок: SergKis пишет: можн..

SergKis пишет:

цитата:

можно добавить обработку lNoDescend

SergKis
постоянный участник
Пост N: 865 Зарегистрирован: 17.02.12

Отправлено: 26.02.16 11:58. Заголовок: gfilatov2002 Правка..

gfilatov2002
Правка

 
 METHOD DrawLine( xRow )                                                CLASS TSBrowse 
 ... 
 было 
 ( line 2913 ) 
          If nJ == ::nColSel .and. ::uBmpSel != Nil .and. lSelected 
             uBmpCell := ::uBmpSel 
             nAlign   := nMakeLong( LoWord( nAlign ), ::nAligBmp ) 
          ElseIf oColumn:lBitMap .and. Valtype( uData ) == "N" .and. ! Empty( ::aBitMaps ) 
             If uData > 0 .and. uData <= Len(::aBitMaps) 
                uBmpCell := ::aBitMaps[ uData ] 
             EndIf 
             nAlign := nMakeLong( oColumn:nAlign, oColumn:nAlign ) 
             uData    := "" 
          ElseIf Empty( cPicture  ) 
             uData := If( Valtype( uData ) != "C", cValToChar( uData ), uData ) 
          Else 
             uData := If( uData == NIL, "", Transform( uData, cPicture ) ) 
          EndIf 
 ...    
 ( line 2969 ) 
          If lCheck 
             Default ::aCheck := { StockBmp( 6 ), StockBmp( 7 )} 
             hBitMap := ::aCheck[ If( Upper( uData ) == "T", 1, 2 ) ] 
             nAlign := nMakeLong( DT_CENTER, DT_CENTER ) 
             uData  := ""  
          ElseIf oColumn:lEmptyValToChar .and. empty(uData) 
             uData  := ""  
          EndIf 
 ... 
 стало 
          If nJ == ::nColSel .and. ::uBmpSel != Nil .and. lSelected 
             uBmpCell := ::uBmpSel 
             nAlign   := nMakeLong( LoWord( nAlign ), ::nAligBmp ) 
          ElseIf oColumn:lBitMap .and. Valtype( uData ) == "N" .and. ! Empty( ::aBitMaps ) 
             If uData > 0 .and. uData <= Len(::aBitMaps) 
                uBmpCell := ::aBitMaps[ uData ] 
             EndIf 
             nAlign := nMakeLong( oColumn:nAlign, oColumn:nAlign ) 
             uData    := ""  
          ElseIf ! lCheck .and. oColumn:lEmptyValToChar .and. empty(uData)  
             uData := ""  
          ElseIf Empty( cPicture  ) 
             uData := If( Valtype( uData ) != "C", cValToChar( uData ), uData ) 
          Else 
             uData := If( uData == NIL, "", Transform( uData, cPicture ) ) 
          EndIf 
 ... 
          If lCheck 
             Default ::aCheck := { StockBmp( 6 ), StockBmp( 7 )} 
             hBitMap := ::aCheck[ If( Upper( uData ) == "T", 1, 2 ) ] 
             nAlign := nMakeLong( DT_CENTER, DT_CENTER ) 
             uData  := "" 
          EndIf 
 ... 
  
 METHOD DrawSelect( xRow )                                              CLASS TSBrowse 
 ... 
 было   
 ( line 3227 ) 
             If nJ == ::nColSel .and. ::uBmpSel != Nil .and. lSelected 
                uBmpCell := ::uBmpSel 
                nAlign   := nMakeLong( LoWord( nAlign ), ::nAligBmp ) 
             ElseIf oColumn:lBitMap .and. Valtype( uData ) == "N" .and. ! Empty( ::aBitMaps ) 
                If uData > 0 .and. uData <= Len(::aBitMaps) 
                   uBmpCell := ::aBitMaps[ uData ] 
                   nAlign := nMakeLong( LoWord( nAlign ), nAlign ) 
                   uData    := "" 
                EndIf 
             ElseIf Empty( cPicture ) 
                uData := If( Valtype( uData ) != "C", cValToChar( uData ), uData ) 
             Else 
                uData := If( uData == NIL, "", Transform( uData, cPicture ) ) 
             EndIf 
 ... 
 стало 
             If nJ == ::nColSel .and. ::uBmpSel != Nil .and. lSelected 
                uBmpCell := ::uBmpSel 
                nAlign   := nMakeLong( LoWord( nAlign ), ::nAligBmp ) 
             ElseIf oColumn:lBitMap .and. Valtype( uData ) == "N" .and. ! Empty( ::aBitMaps ) 
                If uData > 0 .and. uData <= Len(::aBitMaps) 
                   uBmpCell := ::aBitMaps[ uData ] 
                   nAlign := nMakeLong( LoWord( nAlign ), nAlign ) 
                   uData    := "" 
                EndIf  
            ElseIf ! lCheck .and. oColumn:lEmptyValToChar .and. empty(uData)  
               uData := ""  
             ElseIf Empty( cPicture ) 
                uData := If( Valtype( uData ) != "C", cValToChar( uData ), uData ) 
             Else 
                uData := If( uData == NIL, "", Transform( uData, cPicture ) ) 
             EndIf

gfilatov2002
moderator
Пост N: 888 Зарегистрирован: 11.02.10

Отправлено: 26.02.16 13:29. Заголовок: SergKis Благодарю з..

SergKis
Благодарю за поправки, уже сделал эти исправления

Но хотелось бы получить также небольшое пояснение по этому поводу

SergKis
постоянный участник
Пост N: 866 Зарегистрирован: 17.02.12

Отправлено: 26.02.16 14:55. Заголовок: gfilatov2002 пишет:п..

gfilatov2002 пишет:

цитата:

пояснение по этому поводу

начал делать реальную задачу, получилось nValToChar отрабатывала раньше по тексту и для числа пустого уже uData =='0.00', т.е алгоритм не работал, потому перенес выше по тексту (исключив lCheck==.T.), а в DrawSelect обработка пропущена и в строке с курсором lEmptyValToChar совсем не работал

gfilatov2002
moderator
Пост N: 889 Зарегистрирован: 11.02.10

Отправлено: 26.02.16 15:09. Заголовок: SergKis пишет: нача..

SergKis пишет:

цитата:

начал делать реальную задачу

Благодарю за разъяснение, желаю успеха в Ваших делах

fokinal21

Пост N: 12 Зарегистрирован: 22.09.13

Отправлено: 29.02.16 16:39. Заголовок: Всем доброго здравия..

Всем доброго здравия!
Скажите, а IDE никак не прикручивается к 64 разрядной версии?
Или здесь он не катит, нужен другой?

gfilatov2002
moderator
Пост N: 892 Зарегистрирован: 11.02.10

Отправлено: 04.03.16 13:10. Заголовок: Просто к сведению. В..

Просто к сведению. Выпустил сегодня очередную бета-версию для новой сборки библиотеки.
Полный список изменений см. ниже
Скрытый текст

  * Fixed: The hack in the menu's C-code was guarded for applying at the tray 
            menu closing only. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Modified: The constant _PUBLIC_RELEASE_ is turned ON by default in the header 
            file include\minigui.ch instead of the constant _ZEROPUBLIC_. 
            The internal Public variables will be released at window's and 
            control's destruction. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: Replacing the cycles 'For-Next' with 'For Each-Next' for improvement 
            of the speed of the Tab pages updating. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: Adaptation FiveWin Class TSBrowse 9.0 in HMG:  
            - added a new class TCursor for proper processing of TBROWSE cursor 
              which was defined by user for a whole control. 
            Syntax: TCursor():New( cResCursorName [, cPredefinedCursorName ] ) 
            where the predefined names are "ARROW", "IBEAM", "WAIT", "CROSS" etc. 
            Sample code: oBrw:oCursor := TCursor():New( , "HAND" ) 
              Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            - added handling of the column's order in the ARRAY mode with 
              using of the TSColumn variable oCol:lIndexCol. 
              Contributed by SergKis 
              (see demo at Menu TSBrowse->'Grid form' in folder 
              \samples\Advanced\TSBrowse) 
            - added a new service method GetCellInfo( nRowPos, nCell, lColSpecHd ) 
              Contributed by SergKis 
              (see demo2.prg in folder \samples\Advanced\Tsb_array_2) 
   * Updated: HbSQLite3 library: 
            - update for using SQLITE3 version 3.12.0dev (from 3.11.0). 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: Harbour Compiler 3.2.0dev (SVN 2016-02-18 17:02): 
            * Fixed: HbZipArc library source code to support the ASCII characters 
              above 128 in the name of files (see in folder \Source\HbZipArc). 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (look at ReadMe.txt in folder \harbour) 
   * Updated: HMGS-IDE v.1.3.0 Project Manager and Two-Way Visual Form Designer. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (look for what's new at changelog.txt in folder \Ide) 
   * New: 'Minigui Modal Form Designer Utility' sample (spanish only). 
            Contributed by Rafael Moran <webrmoran[at]yahool.com> 
            Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \Utils\xForm) 
   * New: 'Gregorian Calendar to Microsoft Excel through HMG OLE' sample. 
            Contributed by Danny A. del Pilar <dhaine_adp@yahoo.com>. 
            Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\GregorianCalendar) 
   * Updated: 'Vista Command Link Button' sample: 
            - added a write only property 'NoteText'. 
            You can set this property at runtime: 
              Win.CLbutton.NoteText := 'New Note' 
              SetProperty( Form, Control, 'NoteText', 'New Note' ) 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\CommandLink) 
   * Updated: 'SendMailReport Enhanced 1.5' sample. 
            Contributed by Pierpaolo Martinello <pier.martinello[at]alice.it> 
            (see in folder \samples\Applications\SendMailReport)

Поздравляю всех женщин (-программистов) на форуме с наступающим

SergKis
постоянный участник
Пост N: 885 Зарегистрирован: 17.02.12

Отправлено: 04.03.16 15:34. Заголовок: gfilatov2002 доделе..

gfilatov2002
доделел ToolTip на TsBrowse.
1. Работает на всех колонках, строках с индикацией смены nRow, nCol мышой
2. убрал STATIC nToolTip, lToolTip, hToolTip, перенеся их в класс TSB
3. можно задавать ToolTiip так:
oBrw:cToolTip := {|oBr,nCol,nRow| "My TBrowse tooltip. Col ="+str(nCol,3)+" Row ="+str(oBr:nRow,3) }
aEval(oBrw:aColumns, {|oCol| oCol:cToolTip := {|oBr,nCol,nRow| "My column tooltip. Col ="+str(nCol,3)+" Row ="+str(oBr:nRow,3) } })
Изменения: Скрытый текст

 
 h_tsbrowse.prg 
 было 
 Static nLapsus, hPrvWnd, hWndParent, lToolTip, nToolTip, hToolTip := 0   //V90 
 ... 
 ///////////////////////////////////////// 
 Function _DefineTBrowse ( ControlName, ParentFormName, nCol, nRow, nWidth, nHeight,; 
 ... 
         ParentFormHandle = GetFormHandle (ParentFormName) 
         hToolTip := GetFormToolTipHandle (ParentFormName) 
  
         oBrw := TSBrowse():New( ControlName, nRow, nCol, nWidth, nHeight,; 
 ... 
              lTransparent, uSelector, lEditable, lAutoCol, aColSel, tooltip) 
  
         IF ( nColums := Len(oBrw:aColumns) ) > 0                           /* BK    18.05.2015 */ 
 ... 
  
  
 ///////////////////////////////////////// 
 CLASS TSBrowse FROM TControl 
 ... 
    DATA   cToolTip                                   // tooltip when mouse is over Cells 
 ... 
  
 ///////////////////////////////////////// 
 METHOD New( cControlName, nRow, nCol, nWidth, nHeight, bLine, aHeaders, aColSizes, cParentWnd, ; 
 ... 
    EndIf 
  
    SetToolTip ( ::hWnd , ::cToolTip , hToolTip )   //JP  V90 
  
    IF nValue > 0 .AND. nValue <= ::nLen 
 ... 
 ///////////////////////////////////////// 
 METHOD MouseMove( nRowPix, nColPix, nKeyFlags ) CLASS TSBrowse 
  
    Local nI, nIcon, lHeader, lMChange, nFirst, nLast, nDestCol, ; 
          cMsg       := ::cMsg, ; 
          nColPixPos := 0, ; 
          lFrozen    := .F., ; 
          nColumn    := Max( 1, ::nAtCol( nColPix ) )     //V90 
  
    Default ::lMouseDown  := .F., ; 
            ::lNoMoveCols := .F., ;     //V90 
            ::lDontChange := .F., ;     //V90 
            nToolTip      := 0, ;       //V90 
            lToolTip      := .F.        //V90 
  
    If ::lIconView 
  
       If ( nIcon := ::nAtIcon( nRowPix, nColPix ) ) != 0 
  
          If ::nIconPos != 0 .and. ::nIconPos != nIcon 
             ::DrawIcon( ::nIconPos ) 
          EndIf 
  
          ::nIconPos := nIcon 
          ::DrawIcon( nIcon, .T. ) 
          CursorHand() 
          Return 0 
       EndIf 
    EndIf 
  
    If ::nFreeze > 0 
  
       For nI := 1 To ::nFreeze 
          nColPixPos += ::GetColSizes()[ nI ] 
       Next 
  
       If nColPix < nColPixPos 
          lFrozen := .T. 
       EndIf 
    EndIf 
  
    If ( lHeader := ::GetTxtRow( nRowPix ) == 0 ) .and. ! Empty( ::aColumns ) .and. ; 
       ! Empty( ::aColumns[ nColumn ]:cToolTip ) 
       If nToolTip != nColumn 
          SetToolTip ( ::hWnd , ::aColumns[ nColumn ]:cToolTip , hToolTip ) 
          SysRefresh() 
       EndIf 
  
       nToolTip := nColumn 
    Else 
       If nToolTip != 0 
          SetToolTip ( ::hWnd , ::cToolTip , hToolTip ) 
          SysRefresh() 
       endif 
       nToolTip := 0 
    EndIf 
  
    lHeader := (::GetTxtRow( nRowPix ) == 0 .or. ::GetTxtRow( nRowPix ) == -2) 
 ... 
  
 ///////////////////////////////////////// 
 METHOD VertLine( nColPixPos, nColInit, nGapp ) CLASS TSBrowse 
 ... 
    If nColInit != Nil 
       nsCol   := nColInit 
       nsWidth := nColPixPos 
       nGap := If( ! Empty( nGapp ), nGapp, 0 ) 
       nsOldPixPos := 0 
       hWndParent := 0           //V90 
       hPrvWnd    := 0           //V90 
       lToolTip   := .F.         //V90 
       _InvertRect( ::hDC, { 0, nsWidth - ::aColSizes[ nsCol ] - 2, aRect[4], nsWidth - ::aColSizes[ nsCol ] + 2 } ) 
    EndIf 
 ... 
  
  
 стало 
 Static nLapsus, hPrvWnd, hWndParent  
 ... 
 ///////////////////////////////////////// 
 Function _DefineTBrowse ( ControlName, ParentFormName, nCol, nRow, nWidth, nHeight,; 
 ... 
         ParentFormHandle = GetFormHandle (ParentFormName) 
  
         oBrw := TSBrowse():New( ControlName, nRow, nCol, nWidth, nHeight,; 
 ... 
              lTransparent, uSelector, lEditable, lAutoCol, aColSel, tooltip) 
  
         oBrw:hToolTip := GetFormToolTipHandle (ParentFormName) 
  
         IF ( nColums := Len(oBrw:aColumns) ) > 0                           /* BK    18.05.2015 */ 
 ... 
  
 ///////////////////////////////////////// 
 CLASS TSBrowse FROM TControl 
 ... 
    DATA   cToolTip                                   // tooltip when mouse is over Cells 
    DATA   hToolTip        AS NUMERIC INIT 0 
    DATA   nToolTip        AS NUMERIC INIT 0 
    DATA   nToolTipRow     AS NUMERIC INIT 0 
 ... 
 ///////////////////////////////////////// 
 METHOD New( cControlName, nRow, nCol, nWidth, nHeight, bLine, aHeaders, aColSizes, cParentWnd, ; 
 ... 
    EndIf 
  
    ctooltip := ::cToolTip                    
    If Valtype(ctooltip) == "B" 
       ctooltip := Eval(ctooltip, Self) 
    EndIf 
  
    SetToolTip ( ::hWnd , ctooltip , ::hToolTip )    
  
    IF nValue > 0 .AND. nValue <= ::nLen 
 ... 
  
 ///////////////////////////////////////// 
 METHOD MouseMove( nRowPix, nColPix, nKeyFlags ) CLASS TSBrowse 
  
    Local nI, nIcon, lHeader, lMChange, nFirst, nLast, nDestCol, ; 
          cMsg       := ::cMsg, ; 
          nColPixPos := 0, ; 
          lFrozen    := .F., ; 
          nColumn    := Max( 1, ::nAtCol( nColPix ) )     //V90 
    Local nRowLine   := ::GetTxtRow( nRowPix ) 
    Local ctooltip 
           
    Default ::lMouseDown  := .F., ; 
            ::lNoMoveCols := .F., ;     //V90 
            ::lDontChange := .F.        //V90 
  
    If ::lIconView 
  
       If ( nIcon := ::nAtIcon( nRowPix, nColPix ) ) != 0 
  
          If ::nIconPos != 0 .and. ::nIconPos != nIcon 
             ::DrawIcon( ::nIconPos ) 
          EndIf 
  
          ::nIconPos := nIcon 
          ::DrawIcon( nIcon, .T. ) 
          CursorHand() 
          Return 0 
       EndIf 
    EndIf 
  
    If ::nFreeze > 0 
  
       For nI := 1 To ::nFreeze 
          nColPixPos += ::GetColSizes()[ nI ] 
       Next 
  
       If nColPix < nColPixPos 
          lFrozen := .T. 
       EndIf 
    EndIf 
  
    If ( lHeader := nRowLine == 0 ) .and. ! Empty( ::aColumns ) .and. ; 
                                          ! Empty( ::aColumns[ nColumn ]:cToolTip ) 
       If ::nToolTip != nColumn .or. nRowLine != ::nToolTipRow 
          ctooltip := ::aColumns[ nColumn ]:cToolTip 
          If Valtype(ctooltip) == "B" 
             ctooltip := Eval(ctooltip, Self, nColumn, nRowLine)         
          EndIf 
          SetToolTip ( ::hWnd , ctooltip , ::hToolTip )  
          SysRefresh() 
          ::nToolTipRow := nRowLine 
       EndIf 
       ::nToolTip := nColumn 
    Else 
       If ::nToolTip != nColumn .or. nRowLine != ::nToolTipRow 
          ctooltip := ::cToolTip 
          If Valtype(ctooltip) == "B" 
             ctooltip := Eval(ctooltip, Self, nColumn, nRowLine)        
          EndIf 
          SetToolTip ( ::hWnd , ctooltip , ::hToolTip )  
          SysRefresh() 
          ::nToolTipRow := nRowLine 
       endif 
       ::nToolTip := nColumn 
    EndIf 
  
    lHeader := (::GetTxtRow( nRowPix ) == 0 .or. ::GetTxtRow( nRowPix ) == -2) 
 ... 
  
 ///////////////////////////////////////// 
 METHOD VertLine( nColPixPos, nColInit, nGapp ) CLASS TSBrowse 
 ... 
    If nColInit != Nil 
       nsCol   := nColInit 
       nsWidth := nColPixPos 
       nGap := If( ! Empty( nGapp ), nGapp, 0 ) 
       nsOldPixPos := 0 
       hWndParent := 0           //V90 
       hPrvWnd    := 0           //V90 
       _InvertRect( ::hDC, { 0, nsWidth - ::aColSizes[ nsCol ] - 2, aRect[4], nsWidth - ::aColSizes[ nsCol ] + 2 } ) 
    EndIf 
 ...

Andrey
постоянный участник
Пост N: 4762 Зарегистрирован: 12.09.06

Отправлено: 04.03.16 18:27. Заголовок: SergKis пишет: доде..

SergKis пишет:

цитата:

доделел ToolTip на TsBrowse.

Классно !

Григорий, добавляй в новую версию !

gfilatov2002
moderator
Пост N: 893 Зарегистрирован: 11.02.10

Отправлено: 04.03.16 18:30. Заголовок: Andrey пишет: добав..

Andrey пишет:

цитата:

добавляй в новую версию

Уже добавил, обработка кодовых блоков в подсказках работает!
Благодарю за помощь

SergKis
постоянный участник
Пост N: 886 Зарегистрирован: 17.02.12

Отправлено: 04.03.16 18:50. Заголовок: gfilatov2002 Еще к ..

gfilatov2002
Еще к ToolTip

 
 c_controlmisc.c 
 HB_FUNC( SETTOOLTIP ) 
 ... 
 было 
    ti.lpszText = Text; 
    SendMessage( hWnd_ToolTip, ( UINT ) TTM_ADDTOOL, ( WPARAM ) 0, ( LPARAM ) &ti ); 
  
    hb_retni( 0 ); 
  
 стало 
    ti.lpszText = Text; 
    SendMessage( hWnd_ToolTip, ( UINT ) TTM_ADDTOOL, ( WPARAM ) 0, ( LPARAM ) &ti ); 
  
    // Много строчно // (LPARAM)0xFFFFFF); Максимальная ширина очень большая   
    SendMessage( hWnd_ToolTip, ( UINT ) TTM_SETMAXTIPWIDTH, ( WPARAM ) 0, ( LPARAM ) 0x00FFFFFF ); 
    hb_retni( 0 );

gfilatov2002
moderator
Пост N: 894 Зарегистрирован: 11.02.10

Отправлено: 04.03.16 21:03. Заголовок: SergKis пишет: Еще ..

SergKis пишет:

цитата:

Еще к ToolTip

Посмотрите команду

цитата:

SET TOOLTIP MAXWIDTH TO <w> OF <form>

SergKis
постоянный участник
Пост N: 887 Зарегистрирован: 17.02.12

Отправлено: 04.03.16 21:36. Заголовок: gfilatov2002 пишет:П..

gfilatov2002 пишет:

цитата:

Посмотрите команду

команды в ch файле упустил из вида

Ответов - 300 , стр: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 All [только новые]

Форум » GUI » Новая версия Расширенного релиза библиотеки MiniGUI (часть V) (продолжение) » тема закрыта

Тему читают:

- участник сейчас на форуме

- участник вне форума

Все даты в формате GMT 3 час. Хитов сегодня: 500
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет

Создай свой форум на сервисе Borda.ru
Форум находится на 59 месте в рейтинге
Текстовая версия