PC Toledo

Alterei o xbrowse pra mostrar ícone mas aconteceu uma coisa:

- A altura da linha do browse ficou maior
- Textos estão sendo divididos em duas linhas

Alguma dica pra isso não acontecer ?

C:\FWH\SAMPLES:

xbrimag1, xbrimag2, xbrimag3, etc.

https://fivewin.com.br/index.php?/topic ... om-imagem/

Ou mostre como está fazendo.

Regards, saludso.

Kapiaba escreveu:Ou mostre como está fazendo.

É xbrowse com ícones.
Está funcionando, os ícones aparecem.
Já reduzi largura da coluna, o que reduziu o tamanho dos ícones.
Mesmo assim, todas as linhas dobram a altura, e por exemplo, o nome da cidade fica "SÃO BERNARDO", "DO CAMPO", em duas linhas.

Não se trata de como estou fazendo, mas do que precisa adicionar pra mudar o default.
Não é o que tem, mas sim o que falta.

em todo caso, foi voce quem pediu kkkkk
Note que tem coisas comentadas, que testei e não fez diferença.

Código: Selecionar todos

   FOR EACH aItem IN oTBrowse
      oCol := xControl:AddCol()
      IF Len( aItem ) > 3
         FOR EACH cIcon IN aItem[ 5 ]
            oCol:AddResource( cIcon )
         NEXT
      ENDIF
      oCol:cHeader := aItem[ 1 ]
      IF Len( aItem ) < 4
         oCol:bStrData := aItem[ 2 ]
      ELSE
         oCol:bBmpData      := aItem[ 4 ]
         oCol:nWidth        := 16
         //oCol:nHeadBmpNo := 3
         //oCol:lBmpStretch   := .F.
         //oCol:nDataBmpAlign := AL_CENTER
         //oCol:bStrData := aItem[ 4 ]
         //:nRowHeight := 20
         //:lAllowColSwapping := .F.
         //:lAllowRowSizing   := .F.
         //:nStretchCol       := STRETCHCOL_WIDEST
      ENDIF
   NEXT
   WITH OBJECT xControl
      :bOnSkip        := { || xControl:xUserData:Move( xControl:nArrayAt - 1, 1 ) }
      :SetArray( Array( xControl:xUserData:RecordCount() ) )
      :lFitGridHeight := .T. // adjust extra space to header/footer
      :bClrStd        := { || { CLR_BLACK, iif( Mod( cnSQL:AbsolutePosition, 2 ) == 0, CLR_WHITE, RGB(179,207,231) ) } }
      :bClrSel                 := {|| { CLR_WHITE, RGB(30,144,255) } } //cor da barra de seleção sem focu
      :bClrSelFocus            := {|| { CLR_WHITE, CLR_HBLUE } }       //cor da barra de seleção com foco
      :nMarqueeStyle  := 8
      //:lRecordSelector         := .f.                             //mostrar seta da posição da linha
      :CreateFromCode()
      :bKeyDown := { | nKey | FWBrowseKey( xDlg, xControl, nKey, cnSQL, ;
         @cFilter, @cFilterKey, @aADOFilterList, @nADOFilterPos, xLabel, bKeyboard, @cKeyboard ) }
   ENDWITH

sem ícone

com ícone

Agora que vi.
Testei algumas coisas no xControl mesmo, mas depois de comentado movi pra coluna.
Mesmo assim, melhor reavaliar cada um.

Então, o problema é:

Com ícone a linha está com altura maior, e as colunas estão divididas em duas linhas.

O ICONE(BitMap) é 16x16?

Regards, saludos.

Mesmo problema se 32x32 ou 16x16

Veja se ajuda:

https://forums.fivetechsupport.com/view ... 0051679891

Regards, saludos.

Valeu.
Sei lá o que resolveu, mas resolveu.
Talvez o DataType = "F"

Legal o de mudar cor, era minha última alternativa e tem no link também.

Cheguei a procurar lá no fórum, mas não encontrei.
É mesmo esquema daqui.
procurar com texto "xbrowse", e depois procurar outro texto no resultado, "ico", e outros.

Sinceramente sincero, sem mentir.
Não sei o que resolveu.
Fui removendo um por um pra ver qual resolveu e continua funcionando.
Inclusive Ícone 32 x 32.