Posty bez odpowiedzi |oraz Aktywne tematy Dzisiaj jest 2024-03-29, 13:11x



Odpowiedz w temacie  [ Posty: 5 ] 
Własne bitmapy w mxgrid 
Autor Wiadomość

Rejestracja: 2010-09-21, 09:20
Posty: 14
Post Własne bitmapy w mxgrid
Witam
Czy ktoś próbował dodawać własne bitmapy w kontrolce mxgrid. W instrukcji jest opis "
" Utworzenie listy: Położenie na formie kontrolki ImageList (Microsoft Windows Common Controls 6.0) i wstawienie do niej odpowiednich bitmap z plików."
Czy ktoś ma może przykład wykorzystania. Byłbym wdzięczny za podpowiedź.


2013-04-04, 09:02
Wyświetl profil
Autor Wiadomość
 


Ekspert
Ekspert

Rejestracja: 2007-11-16, 15:08
Posty: 3982
Pomógł: 445
Post Re: Własne bitmapy w mxgrid
AmBasic czy VBA?

_________________
Skontaktuj się z Ekspertem | Zamów dodatek

tel. 22 7 538 538
ekspert@mojaSymfonia.pl
http://www.mojaSymfonia.pl


2013-04-04, 09:06
Wyświetl profil

Rejestracja: 2010-09-21, 09:20
Posty: 14
Post Re: Własne bitmapy w mxgrid
Ambasic


2013-04-04, 09:19
Wyświetl profil
Ekspert
Ekspert

Rejestracja: 2007-11-16, 15:08
Posty: 3982
Pomógł: 445
Post Re: Własne bitmapy w mxgrid
W AmBasic nie ma typu Picture, który potrzebny jest do załadowania bitmapy do Image List. Nie ma także polecenia LoadPicture jak w VBA.

Rozwiązaniem jest zastosowanie załączonej kontrolki do załadowania grafiki do ImageList.

Załącznik:
MixCtrl.zip [3.4 KiB]
Pobrany 207 razy


Zarejestruj ją w systemie

Załącznik:
mxgridpic01.jpg
mxgridpic01.jpg [ 26.27 KiB | Przeglądany 2640 razy ]


Przykładowy kod w AMBasic

Kod:
#define EC_EXTRENAL_BITMAP 29
dispatch dGrid
Dispatch dImg
Dispatch dVBA

dImg = "MSComctlLib.ImageListCtrl"
dVBA = "MixCtrl.Picture"

dVBA.MixLoadPicture(KatalogFirmy()+"comp01.jpg")
dImg.ListImages.Add(1, "comp01", dVBA.MixGetPicture)
dVBA.MixLoadPicture(KatalogFirmy()+"comp02.jpg")
dImg.ListImages.Add(2, "comp02", dVBA.MixGetPicture)


int sub OnCommand(int id, int msg)
if id == 0 && msg == 0 then
  dGrid.ColHeader = 0
  dGrid.RowHeader = 0
  dGrid.ColumnCount = 1
  dGrid.RowCount = 2
  dGrid.RowHeight = 200


  dGrid.Columns(0).FieldType( 17, 1001)
  dGrid.Columns(0).Width = 200


dGrid.Execute (EC_EXTRENAL_BITMAP, dImg.ListImages, "")
dGrid.Rows(0).Cell(0).Value = 1001
dGrid.Rows(1).Cell(0).Value = 1002

endif
endsub

form "AMBasic WIOSNA w mxGrid", 340, 460
Control "grid", dGrid, 5, 5, 320, 420
execform OnCommand

error ""


Wynik działania przykładowego kodu

Załącznik:
mxgridpic02.jpg
mxgridpic02.jpg [ 29.88 KiB | Przeglądany 2640 razy ]


Kontrolka musi być zainstalowana na każdej stacji roboczej Symfonii lub FORTE

_________________
Skontaktuj się z Ekspertem | Zamów dodatek

tel. 22 7 538 538
ekspert@mojaSymfonia.pl
http://www.mojaSymfonia.pl


2013-04-04, 14:44
Wyświetl profil

Rejestracja: 2010-09-21, 09:20
Posty: 14
Post Re: Własne bitmapy w mxgrid
Witam
Bardzo dziękuję za pomoc.
Działa.


2013-04-04, 15:26
Wyświetl profil
Wyświetl posty nie starsze niż:  Sortuj wg  
Odpowiedz w temacie   [ Posty: 5 ] 
   Podobne tematy   Autor   Odpowiedzi   Odsłony   Ostatni post 
Na tym forum nie ma nowych nieprzeczytanych postów. MxGrid i dropdown

w Programowanie

vectorcom

7

4762

2014-12-03, 23:34

vectorcom Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. Załączniki Drzewo w MxGrid

w Programowanie

infonet

1

2683

2012-09-24, 21:54

rafal Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. VBA MxGrid

w Programowanie

zz

0

2703

2019-12-23, 15:16

zz Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. Załączniki MxGrid i VBA

w Programowanie

zz

3

2840

2018-03-28, 07:53

zz Wyświetl najnowszy post



Kto jest online

Użytkownicy przeglądający to forum: Nie ma żadnego zarejestrowanego użytkownika i 10 gości


Nie możesz tworzyć nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz dodawać załączników

Szukaj:
Przejdź do:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group.
Support forum phpbb by phpBB Assistant