[sqlwin] Fw: Picture em listbox

Ubirajara de S. Mattos Fri, 05 Jan 2001 07:55:15 -0800

----- Original Message -----

Sent: Thursday, December 28, 2000 8:48 AM

Subject: Picture em listbox

Caro Adm, estou com uma d�vida em SQLWindows(GUPTA) e n�o sei se pode me ajudar.

Estou criando uma aplica��o, que ter� um menu din�mico, onde ao clique de cada bot�o da minha ToolBar, � exibida uma cPictureListBox, a qual deveria exibir uma lista de �cones com 3k (em m�dia), como se fosse um submenu. Mas a quest�o � que eu n�o consigo visualizar os �cones nesta ListBox... e A �nica vez em que consegui, ele n�o me exibiu a figura do �cone corretamente, a imagem ficou desfigurada, como se ele n�o suportasse sua exibi��o! Ser� que � isso mesmo, o GUPTA n�o suporta �cones que tenham mais de 2k, para serem exibidos em ListBox? N�o entendo, pois nos bot�es, eles funcionam corretamente. Segue abaixo, a instru��o que estou utilizando, para vc ver se pode me ajudar, aceito at� mesmo outra solu��o.

Muito obrigado desde j� e um Abra�o,

Ubirajara Mattos

Isso eu utilizo na ListBox

cPictureListBox: lbPictures
Class Child Ref Key: 0
Class ChildKey: 0
Class: cPictureListBox
Property Template:
Class DLL Name:
Window Location and Size
  Left:   0.013"
  Top:    0.594"
  Width: 1.575"
  Width Editable? Class Default
  Height: 3.792"
  Height Editable? Class Default
Visible? Class Default
Multiple selection? Class Default
Sorted? Class Default
Vertical Scroll? Class Default
Font Name: Arial
Font Size: 8
Font Enhancement: Class Default
Text Color: Blue
Background Color: Class Default
Horizontal Scroll? No
List Initialization
Message Actions
  On VTM_Create
   Call SalSendClassMessage( VTM_Create, wParam, lParam )
   Call cPictureListBox.SetStyle( LBS_ShowPicCenter | LBS_DragSelect )
  On SAM_Create
   Call SalHideWindow( hWndItem )
   Call cPictureListBox.AddPictureValue( 'Clientes', ghPicVis, ghPicVis, 1 )
  On SAM_Click
   If lParam = 1
    Call SalSetWindowLoc( hWndItem, 0.013, 0.594 )
    Call SalShowWindow( hWndItem )
   ! Else
     Call SalHideWindow( hWndItem )
     Call SalSetWindowLoc( hWndItem, 0, 0 )
   Call SalListClear( lbPictures )
   Set nCount = SalListQueryMultiCount( hWndItem )
   Call SalListGetMultiSelect( hWndItem, nSelected )
   Set nIndex = 0
   While nIndex < nCount
    Call SalListInsert( lbPictures, nIndex, SalNumberToStrX( nSelected[nIndex], 0 ) )
    Set nIndex = nIndex + 1

Isso eu utilizo na On SAM_Create

On SAM_Create
Call SalSetWindowLoc( hWndMDI, 0.0, 0.0 )
Esta linha n�o funciona!!!?? Mas � dela que preciso...

! Set ghPicVis = VisPicLoad (PIC_LoadFile | PIC_FormatIcon,'', 'c:\\fefacel\\icos\\usu1.ico')

Esta funciona!!??
Set ghPicVis = VisPicLoad( PIC_LoadResource | PIC_FormatIcon, VT_DLLName, 'vt' )

[sqlwin] Fw: Picture em listbox

Responder a