KGF_dll - nouvelles versions

Sujet: Re: KGF_dll - nouvelles versions Mar 20 Jan 2015 - 11:20

bonjour Klaus et bonjour a tous,

Merci pour ce nouvel objet très pratique.

Il est vrai que si Jack peut l'installer dans panoramic cela sera encore mieux mais bon on connait déjà le travail fourni par Jack...

Au fait Klaus, as tu prévu la possibilité de mettre des couleurs sur les onglets.
Je sais c'est un détail, mais cela peut rendre les programmes encore plus sympa !

En tout cas un grand bravo pour toutes ces options que tu nous invente chaque jour.

cheers

Sujet: Re: KGF_dll - nouvelles versions Mar 20 Jan 2015 - 11:28

Oui: couleurs, choix de polices et attributs, et affichage d'icônes sur les onglets - ce ne sont que quelques exemples des fonctionnalités à venir...

Sujet: Re: KGF_dll - nouvelles versions Mar 20 Jan 2015 - 11:54

Coooool !!!

J'attends la suite avec impatiente...

Sujet: Re: KGF_dll - nouvelles versions Mar 20 Jan 2015 - 11:58

Avec la publication des sources, ça devrait aider un peu Jack en lui faisant gagner du temps, je pense s'il veut intégrer en natif des fonctionnalités ajoutées par Klaus.
Après il faut que ça colle avec ce qu'il souhaite par rapport à sa vision de l'évolution de Panoramic, mais c'est vrai que ces onglets semblent parfaitement "coïncider" avec les principes des objets Panoramic.
Les attributs de couleurs et d'icones sont un plus. Ce serait bien en effet qu'ils soient natifs pour d'autres objets également comme les boutons, voir les forms (pour la partie "icone").

Sujet: Re: KGF_dll - nouvelles versions Mar 20 Jan 2015 - 13:36

Nouvelle version:
KGF.dll V4.07 du 20/01/2015

Nouveautés:
- gestion des objets sans handle dans TabObject (ALPHA, PICTURE, ...)

Modules modifiés:
KGF.dll

Les sources sont à jour. La doc suivra.

Voici le programme de démo étendu à un ALPHA en onglet 1, et un PICTURE en onglet 2, du premier TabObject:

Code:: ' test PageControl.bas

label create1, create2, delete1, delete2

dim res%, s$
dim PC1%, PC2%, PC1pages%(3), PC2pages%(2), PC1handles%(3),PC2handles%(2)

button 1 : top 1,10 : left 1, 10 : width 1,20 : caption 1,"+" : on_click 1,create1
hint 1,"Créer PageControl 1"
button 2 : top 2,10 : left 2,310 : width 2,20 : caption 2,"+" : on_click 2,create2
hint 2,"Créer PageControl 2"

button 3 : top 3,10 : left 3, 30 : width 3,20 : caption 3,"x" : on_click 3,delete1
hint 3,"Supprimer PageControl 1"
button 4 : top 4,10 : left 4,330 : width 4,20 : caption 4,"x" : on_click 4,delete2
hint 4,"Supprimer PageControl 2"

dll_on "KGF.dll"

end

create1:
PC1% = dll_call1("CreateTabObject",handle(0))
res% = dll_call5("TabObjectGeometry",PC1%,10,70,200,300)
s$ = "Onglet 1"
res% = dll_call2("AddTabObjectTab",PC1%,adr(s$))
s$ = "O. 2"
res% = dll_call2("AddTabObjectTab",PC1%,adr(s$))
s$ = "O. 3"
res% = dll_call2("AddTabObjectTab",PC1%,adr(s$))

if object_exists(11)=0
edit 11 : top 11,10 : left 11,10
button 13 : top 13,30 : left 13,50
memo 14 : top 14,40 : left 14,30
alpha 15 : top 15,40 : left 15,20 : caption 15,"Objet ALPHA"
picture 16 : top 16,60 : left 16,10 : color 16,255,0,0
end_if

res% = dll_call3("AddObjectToTabObjectTab",PC1%,1,handle(11))
res% = dll_call3("AddObjectToTabObjectTab",PC1%,2,handle(13))
res% = dll_call3("AddObjectToTabObjectTab",PC1%,3,handle(14))
res% = dll_call3("AddSimpleObjectToTabObjectTab",PC1%,1,object_internal(15))
res% = dll_call3("AddSimpleObjectToTabObjectTab",PC1%,2,object_internal(16))
return

create2:
PC2% = dll_call1("CreateTabObject",handle(0))
res% = dll_call5("TabObjectGeometry",PC2%,310,70,200,300)
s$ = "Paget 1"
res% = dll_call2("AddTabObjectTab",PC2%,adr(s$))
s$ = "P. 2"
res% = dll_call2("AddTabObjectTab",PC2%,adr(s$))
s$ = "P. 3"
res% = dll_call2("AddTabObjectTab",PC2%,adr(s$))

if object_exists(12)=0
edit 12 : top 12,10 : left 12,10
end_if
res% = dll_call3("AddObjectToTabObjectTab",PC2%,2,handle(12))
return

delete1:
res% = dll_call1("DeleteTabObject",PC1%)
PC1% = 0
return

delete2:
res% = dll_call1("DeleteTabObject",PC2%)
PC2% = 0
return

Je vais faire les couleurs, maintenant...

Sujet: Re: KGF_dll - nouvelles versions Mar 20 Jan 2015 - 15:24

Nouvelle version:
KGF.dll V4.08 du 20/01/2015

Nouveautés:
- gestion des couleurs dans TabObject

Modules modifiés:
KGF.dll

Les sources sont à jour. La doc suivra.

En fait, c'était plus facile que je n'imaginais. Voici la démo adaptée:

Code:: ' test PageControl.bas

label create1, create2, delete1, delete2
label change_R1, change_G1, change_B1, couleur_1
label change_R2, change_G2, change_B2, couleur_2

dim res%, s$, rgb%, i%

dim PC1%, PC2%, PC1pages%(3), PC2pages%(2)

height 0,700

button 1 : top 1,10 : left 1, 10 : width 1,20 : caption 1,"+" : on_click 1,create1
hint 1,"Créer PageControl 1"
button 2 : top 2,10 : left 2,310 : width 2,20 : caption 2,"+" : on_click 2,create2
hint 2,"Créer PageControl 2"

button 3 : top 3,10 : left 3, 30 : width 3,20 : caption 3,"x" : on_click 3,delete1
hint 3,"Supprimer PageControl 1"
button 4 : top 4,10 : left 4,330 : width 4,20 : caption 4,"x" : on_click 4,delete2
hint 4,"Supprimer PageControl 2"

combo 101 : top 101,420 : left 101,10
item_add 101,"1=Color"
item_add 101,"2=BorderColor"
item_add 101,"3=SelectedColor"
item_add 101,"4=UnselectedColor"
item_add 101,"5=ModifiedColor"
item_add 101,"6=TabBorderColor"
alpha 102 : top 102,450 : left 102,10 : caption 102,"R:"
edit 103 : top 103,450 :left 103,30 : width 103,40 : text 103,0
scroll_bar 104 : top 104,450 : left 104,80
min 104,0 : max 104,255 : position 104,0
on_change 104,change_R1
alpha 105 : top 105,480 : left 105,10 : caption 105,"G:"
edit 106 : top 106,480 :left 106,30 : width 106,40 : text 106,0
scroll_bar 107 : top 107,480 : left 107,80
min 107,0 : max 107,255 : position 107,0
on_change 107,change_G1
alpha 108 : top 108,510 : left 108,10 : caption 108,"B:"
edit 109 : top 109,510 :left 109,30 : width 109,40 : text 109,0
scroll_bar 110 : top 110,510 : left 110,80
min 110,0 : max 110,255 : position 110,0
on_change 110,change_B1
picture 111 : top 111,540 : left 111,10 : height 111,30
color 111,0,0,0
button 112 : top 112,570 : left 112,10 : caption 112,"Appliquer"
on_click 112,couleur_1

combo 201 : top 201,420 : left 201,310
item_add 201,"1=Color"
item_add 201,"2=BorderColor"
item_add 201,"3=SelectedColor"
item_add 201,"4=UnselectedColor"
item_add 201,"5=ModifiedColor"
item_add 201,"6=TabBorderColor"
alpha 202 : top 202,450 : left 202,310 : caption 202,"R:"
edit 203 : top 203,450 :left 203,330 : width 203,40 : text 203,0
scroll_bar 204 : top 204,450 : left 204,380
min 204,0 : max 204,255 : position 204,0
on_change 204,change_R2
alpha 205 : top 205,480 : left 205,310 : caption 205,"G:"
edit 206 : top 206,480 :left 206,330 : width 206,40 : text 206,0
scroll_bar 207 : top 207,480 : left 207,380
min 207,0 : max 207,255 : position 207,0
on_change 207,change_G2
alpha 208 : top 208,510 : left 208,310 : caption 208,"B:"
edit 209 : top 209,510 :left 209,330 : width 209,40 : text 209,0
scroll_bar 210 : top 210,510 : left 210,380
min 210,0 : max 210,255 : position 210,0
on_change 210,change_B2
picture 211 : top 211,540 : left 211,310 : height 211,30
color 211,0,0,0
button 212 : top 212,570 : left 212,310 : caption 212,"Appliquer"
on_click 212,couleur_2

dll_on "KGF.dll"

res% = dll_call2("SelectComboBoxItem",handle(101),1)
res% = dll_call2("SelectComboBoxItem",handle(201),1)

end

create1:
PC1% = dll_call1("CreateTabObject",handle(0))
res% = dll_call5("TabObjectGeometry",PC1%,10,70,200,300)
s$ = "Onglet 1"
res% = dll_call2("AddTabObjectTab",PC1%,adr(s$))
s$ = "O. 2"
res% = dll_call2("AddTabObjectTab",PC1%,adr(s$))
s$ = "O. 3"
res% = dll_call2("AddTabObjectTab",PC1%,adr(s$))

if object_exists(11)=0
edit 11 : top 11,10 : left 11,10
button 13 : top 13,30 : left 13,50
memo 14 : top 14,40 : left 14,30
alpha 15 : top 15,40 : left 15,20 : caption 15,"Objet ALPHA"
picture 16 : top 16,60 : left 16,10 : color 16,255,0,0
end_if

res% = dll_call3("AddObjectToTabObjectTab",PC1%,1,handle(11))
res% = dll_call3("AddObjectToTabObjectTab",PC1%,2,handle(13))
res% = dll_call3("AddObjectToTabObjectTab",PC1%,3,handle(14))
res% = dll_call3("AddSimpleObjectToTabObjectTab",PC1%,1,object_internal(15))
res% = dll_call3("AddSimpleObjectToTabObjectTab",PC1%,2,object_internal(16))
return

create2:
PC2% = dll_call1("CreateTabObject",handle(0))
res% = dll_call5("TabObjectGeometry",PC2%,310,70,200,300)
s$ = "Paget 1"
res% = dll_call2("AddTabObjectTab",PC2%,adr(s$))
s$ = "P. 2"
res% = dll_call2("AddTabObjectTab",PC2%,adr(s$))
s$ = "P. 3"
res% = dll_call2("AddTabObjectTab",PC2%,adr(s$))

if object_exists(12)=0
edit 12 : top 12,10 : left 12,10
end_if
res% = dll_call3("AddObjectToTabObjectTab",PC2%,2,handle(12))
return

delete1:
res% = dll_call1("DeleteTabObject",PC1%)
PC1% = 0
return

delete2:
res% = dll_call1("DeleteTabObject",PC2%)
PC2% = 0
return

change_R1:
text 103,position(104)
color 111,val(text$(103)),val(text$(106)),val(text$(109))
return

change_G1:
text 106,position(107)
color 111,val(text$(103)),val(text$(106)),val(text$(109))
return

change_B1:
text 109,position(110)
color 111,val(text$(103)),val(text$(106)),val(text$(109))
return

couleur_1:
rgb% = (val(text$(109))*256+val(text$(106)))*256+val(text$(103))
i% = item_index(101)
res% = dll_call5("TabObjectFunction",PC1%,1,i%,rgb%,0)
return

change_R2:
text 203,position(204)
color 211,val(text$(203)),val(text$(206)),val(text$(209))
return

change_G2:
text 206,position(207)
color 211,val(text$(203)),val(text$(206)),val(text$(209))
return

change_B2:
text 209,position(210)
color 211,val(text$(203)),val(text$(206)),val(text$(209))
return

couleur_2:
rgb% = (val(text$(209))*256+val(text$(206)))*256+val(text$(203))
i% = item_index(201)
res% = dll_call5("TabObjectFunction",PC2%,1,i%,rgb%,0)
return

Je poursuis avec la couleur de fond des pages, et les polices...

Sujet: Re: KGF_dll - nouvelles versions Mar 20 Jan 2015 - 17:09

Bravo Klaus

Sujet: Re: KGF_dll - nouvelles versions Mar 20 Jan 2015 - 19:11

Nouvelle version:
KGF.dll V4.09 du 20/01/2015

Nouveautés:
- gestion des couleurs dans le corps des pages de TabObject, gestion des polices et des couleurs des polices.

Modules modifiés:
KGF.dll

Les sources sont à jour. La doc suivra.

On peut maintenant donner une couleur de fond, soit simultanément à toutes les pages, soit à une page spécifique. On peut choisir la police avec ses attributs et sa couleur, séparément pour les onglets "normaux" et l'onglet "sélectionné".

Voici le programme de démo adapté:

Code:: ' test PageControl.bas

label create1, create2, delete1, delete2
label change_R1, change_G1, change_B1, couleur_1, police_1
label change_R2, change_G2, change_B2, couleur_2, police_2

dim res%, s$, rgb%, i%, sz%, att%, ong%

dim PC1%, PC2%, PC1pages%(3), PC2pages%(2)

height 0,760

button 1 : top 1,10 : left 1, 10 : width 1,20 : caption 1,"+" : on_click 1,create1
hint 1,"Créer PageControl 1"
button 2 : top 2,10 : left 2,310 : width 2,20 : caption 2,"+" : on_click 2,create2
hint 2,"Créer PageControl 2"

button 3 : top 3,10 : left 3, 30 : width 3,20 : caption 3,"x" : on_click 3,delete1
hint 3,"Supprimer PageControl 1"
button 4 : top 4,10 : left 4,330 : width 4,20 : caption 4,"x" : on_click 4,delete2
hint 4,"Supprimer PageControl 2"

combo 101 : top 101,420 : left 101,10
item_add 101,"1=Color"
item_add 101,"2=BorderColor"
item_add 101,"3=SelectedColor"
item_add 101,"4=UnselectedColor"
item_add 101,"5=ModifiedColor"
item_add 101,"6=TabBorderColor"
item_add 101,"7=TabColor"
item_add 101,"8=FontColor"
item_add 101,"9=SelectedFontColor"
combo 113 : top 113,420 : left 113,170 : width 113,90
item_add 113,"Tous onglets"
item_add 113,"Onglet 1"
item_add 113,"O. 2"
item_add 113,"O. 3"
alpha 102 : top 102,450 : left 102,10 : caption 102,"R:"
edit 103 : top 103,450 :left 103,30 : width 103,40 : text 103,0
scroll_bar 104 : top 104,450 : left 104,80
min 104,0 : max 104,255 : position 104,0
on_change 104,change_R1
alpha 105 : top 105,480 : left 105,10 : caption 105,"G:"
edit 106 : top 106,480 :left 106,30 : width 106,40 : text 106,0
scroll_bar 107 : top 107,480 : left 107,80
min 107,0 : max 107,255 : position 107,0
on_change 107,change_G1
alpha 108 : top 108,510 : left 108,10 : caption 108,"B:"
edit 109 : top 109,510 :left 109,30 : width 109,40 : text 109,0
scroll_bar 110 : top 110,510 : left 110,80
min 110,0 : max 110,255 : position 110,0
on_change 110,change_B1
picture 111 : top 111,540 : left 111,10 : height 111,30
color 111,0,0,0
button 112 : top 112,570 : left 112,10 : caption 112,"Appliquer couleur"
on_click 112,couleur_1 : width 112,150

combo 120 : top 120,600 : left 120,10 : font_names_load 120
combo 121 : top 121,600 : left 121,160 : width 121,50
item_add 121,"8"
item_add 121,"10"
item_add 121,"12"
item_add 121,"14"
check 122 : top 122,630 : left 122,10 : caption 122,"B" : font_bold 122
check 123 : top 123,630 : left 123,60 : caption 123,"I " : font_italic 123 : font_bold 123
check 124 : top 124,630 : left 124,110 : caption 124,"S" : font_underline 124 : font_bold 124
check 125 : top 125,630 : left 125,160 : caption 125,"B" : font_strike 125 : font_bold 125
button 126 : top 126,660 : left 126,10 : caption 126,"Appliquer police"
on_click 126,police_1 : width 126,150
combo 127 : top 127,660 : left 127,170 : width 127,80
item_add 127,"Normal"
item_add 127,"Sélectionné"

combo 201 : top 201,420 : left 201,310
item_add 201,"1=Color"
item_add 201,"2=BorderColor"
item_add 201,"3=SelectedColor"
item_add 201,"4=UnselectedColor"
item_add 201,"5=ModifiedColor"
item_add 201,"6=TabBorderColor"
item_add 201,"7=TabColor"
item_add 201,"8=FontColor"
item_add 201,"9=SelectedFontColor"
combo 213 : top 213,420 : left 213,470 : width 213,90
item_add 213,"Tous onglets"
item_add 213,"Page 1"
item_add 213,"P. 2"
item_add 213,"P. 3"
alpha 202 : top 202,450 : left 202,310 : caption 202,"R:"
edit 203 : top 203,450 :left 203,330 : width 203,40 : text 203,0
scroll_bar 204 : top 204,450 : left 204,380
min 204,0 : max 204,255 : position 204,0
on_change 204,change_R2
alpha 205 : top 205,480 : left 205,310 : caption 205,"G:"
edit 206 : top 206,480 :left 206,330 : width 206,40 : text 206,0
scroll_bar 207 : top 207,480 : left 207,380
min 207,0 : max 207,255 : position 207,0
on_change 207,change_G2
alpha 208 : top 208,510 : left 208,310 : caption 208,"B:"
edit 209 : top 209,510 :left 209,330 : width 209,40 : text 209,0
scroll_bar 210 : top 210,510 : left 210,380
min 210,0 : max 210,255 : position 210,0
on_change 210,change_B2
picture 211 : top 211,540 : left 211,310 : height 211,30
color 211,0,0,0
button 212 : top 212,570 : left 212,310 : caption 212,"Appliquer couleur"
on_click 212,couleur_2 : width 212,150

combo 220 : top 220,600 : left 220,310 : font_names_load 220
combo 221 : top 221,600 : left 221,460 : width 221,50
item_add 221,"8"
item_add 221,"10"
item_add 221,"12"
item_add 221,"14"
check 222 : top 222,630 : left 222,310 : caption 222,"B" : font_bold 222
check 223 : top 223,630 : left 223,360 : caption 223,"I " : font_italic 223 : font_bold 123
check 224 : top 224,630 : left 224,410 : caption 224,"S" : font_underline 224 : font_bold 124
check 225 : top 225,630 : left 225,460 : caption 225,"B" : font_strike 225 : font_bold 125
button 226 : top 226,660 : left 226,310 : caption 226,"Appliquer police"
on_click 226,police_2 : width 226,150
combo 227 : top 227,660 : left 227,470 : width 227,80
item_add 227,"Normal"
item_add 227,"Sélectionné"

dll_on "KGF.dll"

res% = dll_call2("SelectComboBoxItem",handle(101),1)
res% = dll_call2("SelectComboBoxItem",handle(201),1)
for i%=1 to count(120)
if item_read$(120,i%)="Arial"
res% = dll_call2("SelectComboBoxItem",handle(120),i%)
res% = dll_call2("SelectComboBoxItem",handle(220),i%)
exit_for
end_if
next i%
res% = dll_call2("SelectComboBoxItem",handle(121),1)
res% = dll_call2("SelectComboBoxItem",handle(221),1)
res% = dll_call2("SelectComboBoxItem",handle(113),1)
res% = dll_call2("SelectComboBoxItem",handle(213),1)
res% = dll_call2("SelectComboBoxItem",handle(127),1)
res% = dll_call2("SelectComboBoxItem",handle(227),1)

end

create1:
PC1% = dll_call1("CreateTabObject",handle(0))
res% = dll_call5("TabObjectGeometry",PC1%,10,70,200,300)
s$ = "Onglet 1"
res% = dll_call2("AddTabObjectTab",PC1%,adr(s$))
s$ = "O. 2"
res% = dll_call2("AddTabObjectTab",PC1%,adr(s$))
s$ = "O. 3"
res% = dll_call2("AddTabObjectTab",PC1%,adr(s$))

if object_exists(11)=0
edit 11 : top 11,10 : left 11,10
button 13 : top 13,30 : left 13,50
memo 14 : top 14,40 : left 14,30
alpha 15 : top 15,40 : left 15,20 : caption 15,"Objet ALPHA"
picture 16 : top 16,60 : left 16,10 : color 16,255,0,0
end_if

res% = dll_call3("AddObjectToTabObjectTab",PC1%,1,handle(11))
res% = dll_call3("AddObjectToTabObjectTab",PC1%,2,handle(13))
res% = dll_call3("AddObjectToTabObjectTab",PC1%,3,handle(14))
res% = dll_call3("AddSimpleObjectToTabObjectTab",PC1%,1,object_internal(15))
res% = dll_call3("AddSimpleObjectToTabObjectTab",PC1%,2,object_internal(16))
return

create2:
PC2% = dll_call1("CreateTabObject",handle(0))
res% = dll_call5("TabObjectGeometry",PC2%,310,70,200,300)
s$ = "Paget 1"
res% = dll_call2("AddTabObjectTab",PC2%,adr(s$))
s$ = "P. 2"
res% = dll_call2("AddTabObjectTab",PC2%,adr(s$))
s$ = "P. 3"
res% = dll_call2("AddTabObjectTab",PC2%,adr(s$))

if object_exists(12)=0
edit 12 : top 12,10 : left 12,10
end_if
res% = dll_call3("AddObjectToTabObjectTab",PC2%,2,handle(12))
return

delete1:
res% = dll_call1("DeleteTabObject",PC1%)
PC1% = 0
return

delete2:
res% = dll_call1("DeleteTabObject",PC2%)
PC2% = 0
return

change_R1:
text 103,position(104)
color 111,val(text$(103)),val(text$(106)),val(text$(109))
return

change_G1:
text 106,position(107)
color 111,val(text$(103)),val(text$(106)),val(text$(109))
return

change_B1:
text 109,position(110)
color 111,val(text$(103)),val(text$(106)),val(text$(109))
return

couleur_1:
rgb% = (val(text$(109))*256+val(text$(106)))*256+val(text$(103))
i% = item_index(101)
ong% = item_index(113)
res% = dll_call6("TabObjectFunction",PC1%,1,ong%,i%,rgb%,0)
return

police_1:
s$ = text$(120)
sz% = val(text$(121))
att% = checked(122) + checked(123)*2 + checked(124)*4 + checked(125)*8
ong% = item_index(127) - 1
res% = dll_call6("TabObjectFunction",PC1%,2,ong%,sz%,att%,adr(s$))
return

change_R2:
text 203,position(204)
color 211,val(text$(203)),val(text$(206)),val(text$(209))
return

change_G2:
text 206,position(207)
color 211,val(text$(203)),val(text$(206)),val(text$(209))
return

change_B2:
text 209,position(210)
color 211,val(text$(203)),val(text$(206)),val(text$(209))
return

couleur_2:
rgb% = (val(text$(209))*256+val(text$(206)))*256+val(text$(203))
i% = item_index(201)
ong% = item_index(213)
res% = dll_call6("TabObjectFunction",PC2%,1,ong%,i%,rgb%,0)
return

police_2:
s$ = text$(220)
sz% = val(text$(221))
att% = checked(222) + checked(223)*2 + checked(224)*4 + checked(225)*8
ong% = item_index(227) - 1
res% = dll_call6("TabObjectFunction",PC2%,2,ong%,sz%,att%,adr(s$))
return

Sujet: re Mar 20 Jan 2015 - 20:40

Wahou !!!...
C ' est super !!!
cheers

Sujet: Re: KGF_dll - nouvelles versions Mer 21 Jan 2015 - 8:47

Super travail Klaus, comme d'habitude...

Testé et adopté !

Nombre de messages : 1596 Date d'inscription : 19/01/2014

Bonjour.

@Klaus.

Y aurait-il un problème avec kgf.dll, Klaus ?

J'ai un programme qui s'exécutait en 18 min environ avec l'ancienne version de kgf.dll.
Mais avec la nouvelle version, il s'exécute maintenant en 90 min !!

Pour info, je n'ai pas changé le code du programme.

Mais il fait un usage intensif des StringList.

Je ne comprends pas pourquoi.

Merci de ton aide.

Sujet: Re: KGF_dll - nouvelles versions Mer 21 Jan 2015 - 10:56

Nouvelle version:
KGF.dll V4.10 du 21/01/2015

Nouveautés:
- si la couleur de l'onglet sélectionné (SelectedColor) a été choisie noire (0), alors l'onglet sélectionné prnd automatiquement la couleur de la page associée

Modules modifiés:
KGF.dll

Les sources sont à jour. La doc suivra.

Et après une petite correction d'un bug dans le programme de démo, en ce qui concerne le paramétrage des couleurs des onglets, voici la version opérationnelle:

Code:: ' test PageControl.bas

label create1, create2, delete1, delete2
label change_R1, change_G1, change_B1, couleur_1, police_1
label change_R2, change_G2, change_B2, couleur_2, police_2

dim res%, s$, rgb%, i%, sz%, att%, ong%

dim PC1%, PC2%, PC1pages%(3), PC2pages%(2)

height 0,760

button 1 : top 1,10 : left 1, 10 : width 1,20 : caption 1,"+" : on_click 1,create1
hint 1,"Créer PageControl 1"
button 2 : top 2,10 : left 2,310 : width 2,20 : caption 2,"+" : on_click 2,create2
hint 2,"Créer PageControl 2"

button 3 : top 3,10 : left 3, 30 : width 3,20 : caption 3,"x" : on_click 3,delete1
hint 3,"Supprimer PageControl 1"
button 4 : top 4,10 : left 4,330 : width 4,20 : caption 4,"x" : on_click 4,delete2
hint 4,"Supprimer PageControl 2"

combo 101 : top 101,420 : left 101,10
item_add 101,"1=Color"
item_add 101,"2=BorderColor"
item_add 101,"3=SelectedColor"
item_add 101,"4=UnselectedColor"
item_add 101,"5=ModifiedColor"
item_add 101,"6=TabBorderColor"
item_add 101,"7=TabColor"
item_add 101,"8=FontColor"
item_add 101,"9=SelectedFontColor"
combo 113 : top 113,420 : left 113,170 : width 113,90
item_add 113,"Tous onglets"
item_add 113,"Onglet 1"
item_add 113,"O. 2"
item_add 113,"O. 3"
alpha 102 : top 102,450 : left 102,10 : caption 102,"R:"
edit 103 : top 103,450 :left 103,30 : width 103,40 : text 103,0
scroll_bar 104 : top 104,450 : left 104,80
min 104,0 : max 104,255 : position 104,0
on_change 104,change_R1
alpha 105 : top 105,480 : left 105,10 : caption 105,"G:"
edit 106 : top 106,480 :left 106,30 : width 106,40 : text 106,0
scroll_bar 107 : top 107,480 : left 107,80
min 107,0 : max 107,255 : position 107,0
on_change 107,change_G1
alpha 108 : top 108,510 : left 108,10 : caption 108,"B:"
edit 109 : top 109,510 :left 109,30 : width 109,40 : text 109,0
scroll_bar 110 : top 110,510 : left 110,80
min 110,0 : max 110,255 : position 110,0
on_change 110,change_B1
picture 111 : top 111,540 : left 111,10 : height 111,30
color 111,0,0,0
button 112 : top 112,570 : left 112,10 : caption 112,"Appliquer couleur"
on_click 112,couleur_1 : width 112,150

combo 120 : top 120,600 : left 120,10 : font_names_load 120
combo 121 : top 121,600 : left 121,160 : width 121,50
item_add 121,"8"
item_add 121,"10"
item_add 121,"12"
item_add 121,"14"
check 122 : top 122,630 : left 122,10 : caption 122,"B" : font_bold 122
check 123 : top 123,630 : left 123,60 : caption 123,"I " : font_italic 123 : font_bold 123
check 124 : top 124,630 : left 124,110 : caption 124,"S" : font_underline 124 : font_bold 124
check 125 : top 125,630 : left 125,160 : caption 125,"B" : font_strike 125 : font_bold 125
button 126 : top 126,660 : left 126,10 : caption 126,"Appliquer police"
on_click 126,police_1 : width 126,150
combo 127 : top 127,660 : left 127,170 : width 127,80
item_add 127,"Normal"
item_add 127,"Sélectionné"

combo 201 : top 201,420 : left 201,310
item_add 201,"1=Color"
item_add 201,"2=BorderColor"
item_add 201,"3=SelectedColor"
item_add 201,"4=UnselectedColor"
item_add 201,"5=ModifiedColor"
item_add 201,"6=TabBorderColor"
item_add 201,"7=TabColor"
item_add 201,"8=FontColor"
item_add 201,"9=SelectedFontColor"
combo 213 : top 213,420 : left 213,470 : width 213,90
item_add 213,"Tous onglets"
item_add 213,"Page 1"
item_add 213,"P. 2"
item_add 213,"P. 3"
alpha 202 : top 202,450 : left 202,310 : caption 202,"R:"
edit 203 : top 203,450 :left 203,330 : width 203,40 : text 203,0
scroll_bar 204 : top 204,450 : left 204,380
min 204,0 : max 204,255 : position 204,0
on_change 204,change_R2
alpha 205 : top 205,480 : left 205,310 : caption 205,"G:"
edit 206 : top 206,480 :left 206,330 : width 206,40 : text 206,0
scroll_bar 207 : top 207,480 : left 207,380
min 207,0 : max 207,255 : position 207,0
on_change 207,change_G2
alpha 208 : top 208,510 : left 208,310 : caption 208,"B:"
edit 209 : top 209,510 :left 209,330 : width 209,40 : text 209,0
scroll_bar 210 : top 210,510 : left 210,380
min 210,0 : max 210,255 : position 210,0
on_change 210,change_B2
picture 211 : top 211,540 : left 211,310 : height 211,30
color 211,0,0,0
button 212 : top 212,570 : left 212,310 : caption 212,"Appliquer couleur"
on_click 212,couleur_2 : width 212,150

combo 220 : top 220,600 : left 220,310 : font_names_load 220
combo 221 : top 221,600 : left 221,460 : width 221,50
item_add 221,"8"
item_add 221,"10"
item_add 221,"12"
item_add 221,"14"
check 222 : top 222,630 : left 222,310 : caption 222,"B" : font_bold 222
check 223 : top 223,630 : left 223,360 : caption 223,"I " : font_italic 223 : font_bold 123
check 224 : top 224,630 : left 224,410 : caption 224,"S" : font_underline 224 : font_bold 124
check 225 : top 225,630 : left 225,460 : caption 225,"B" : font_strike 225 : font_bold 125
button 226 : top 226,660 : left 226,310 : caption 226,"Appliquer police"
on_click 226,police_2 : width 226,150
combo 227 : top 227,660 : left 227,470 : width 227,80
item_add 227,"Normal"
item_add 227,"Sélectionné"

dll_on "KGF.dll"

res% = dll_call2("SelectComboBoxItem",handle(101),1)
res% = dll_call2("SelectComboBoxItem",handle(201),1)
for i%=1 to count(120)
if item_read$(120,i%)="Arial"
res% = dll_call2("SelectComboBoxItem",handle(120),i%)
res% = dll_call2("SelectComboBoxItem",handle(220),i%)
exit_for
end_if
next i%
res% = dll_call2("SelectComboBoxItem",handle(121),1)
res% = dll_call2("SelectComboBoxItem",handle(221),1)
res% = dll_call2("SelectComboBoxItem",handle(113),1)
res% = dll_call2("SelectComboBoxItem",handle(213),1)
res% = dll_call2("SelectComboBoxItem",handle(127),1)
res% = dll_call2("SelectComboBoxItem",handle(227),1)

end

create1:
PC1% = dll_call1("CreateTabObject",handle(0))
res% = dll_call5("TabObjectGeometry",PC1%,10,70,200,300)
s$ = "Onglet 1"
res% = dll_call2("AddTabObjectTab",PC1%,adr(s$))
s$ = "O. 2"
res% = dll_call2("AddTabObjectTab",PC1%,adr(s$))
s$ = "O. 3"
res% = dll_call2("AddTabObjectTab",PC1%,adr(s$))

if object_exists(11)=0
edit 11 : top 11,10 : left 11,10
button 13 : top 13,30 : left 13,50
memo 14 : top 14,40 : left 14,30
alpha 15 : top 15,40 : left 15,20 : caption 15,"Objet ALPHA"
picture 16 : top 16,60 : left 16,10 : color 16,255,0,0
end_if

res% = dll_call3("AddObjectToTabObjectTab",PC1%,1,handle(11))
res% = dll_call3("AddObjectToTabObjectTab",PC1%,2,handle(13))
res% = dll_call3("AddObjectToTabObjectTab",PC1%,3,handle(14))
res% = dll_call3("AddSimpleObjectToTabObjectTab",PC1%,1,object_internal(15))
res% = dll_call3("AddSimpleObjectToTabObjectTab",PC1%,2,object_internal(16))
return

create2:
PC2% = dll_call1("CreateTabObject",handle(0))
res% = dll_call5("TabObjectGeometry",PC2%,310,70,200,300)
s$ = "Paget 1"
res% = dll_call2("AddTabObjectTab",PC2%,adr(s$))
s$ = "P. 2"
res% = dll_call2("AddTabObjectTab",PC2%,adr(s$))
s$ = "P. 3"
res% = dll_call2("AddTabObjectTab",PC2%,adr(s$))

if object_exists(12)=0
edit 12 : top 12,10 : left 12,10
end_if
res% = dll_call3("AddObjectToTabObjectTab",PC2%,2,handle(12))
return

delete1:
res% = dll_call1("DeleteTabObject",PC1%)
PC1% = 0
return

delete2:
res% = dll_call1("DeleteTabObject",PC2%)
PC2% = 0
return

change_R1:
text 103,position(104)
color 111,val(text$(103)),val(text$(106)),val(text$(109))
return

change_G1:
text 106,position(107)
color 111,val(text$(103)),val(text$(106)),val(text$(109))
return

change_B1:
text 109,position(110)
color 111,val(text$(103)),val(text$(106)),val(text$(109))
return

couleur_1:
rgb% = (val(text$(109))*256+val(text$(106)))*256+val(text$(103))
i% = item_index(101)
ong% = item_index(113)-1
res% = dll_call6("TabObjectFunction",PC1%,1,ong%,i%,rgb%,0)
return

police_1:
s$ = text$(120)
sz% = val(text$(121))
att% = checked(122) + checked(123)*2 + checked(124)*4 + checked(125)*8
ong% = item_index(127) - 1
res% = dll_call6("TabObjectFunction",PC1%,2,ong%,sz%,att%,adr(s$))
return

change_R2:
text 203,position(204)
color 211,val(text$(203)),val(text$(206)),val(text$(209))
return

change_G2:
text 206,position(207)
color 211,val(text$(203)),val(text$(206)),val(text$(209))
return

change_B2:
text 209,position(210)
color 211,val(text$(203)),val(text$(206)),val(text$(209))
return

couleur_2:
rgb% = (val(text$(209))*256+val(text$(206)))*256+val(text$(203))
i% = item_index(201)
ong% = item_index(213)-1
res% = dll_call6("TabObjectFunction",PC2%,1,ong%,i%,rgb%,0)
return

police_2:
s$ = text$(220)
sz% = val(text$(221))
att% = checked(222) + checked(223)*2 + checked(224)*4 + checked(225)*8
ong% = item_index(227) - 1
res% = dll_call6("TabObjectFunction",PC2%,2,ong%,sz%,att%,adr(s$))
return

Sujet: Re: KGF_dll - nouvelles versions Mer 21 Jan 2015 - 10:57

@Pedro:
Etonnant. Non, je n'ai rien changé à la gestion des StringList. Mon travail sur les TabObject est parfaitement distinct de cela. Il faut que tu analyses un peu plus loin...

Sujet: re Mer 21 Jan 2015 - 11:26

Tout simplement génial !!!
cheers

Sujet: Re: KGF_dll - nouvelles versions Mer 21 Jan 2015 - 13:22

Nouvelle version:
KGF.dll V4.11 du 21/01/2015

Nouveautés:
- on peut maintenant choisir entre 3 styles pour les onglets: standard, symétrique et rectangle arrondi

Modules modifiés:
KGF.dll

Les sources sont à jour. La doc suivra.

Voici le programme de démo qui permet de choisir le style de chacun des deux TabObjects:

Code:: ' test PageControl.bas

label create1, create2, delete1, delete2
label change_R1, change_G1, change_B1, couleur_1, police_1
label change_R2, change_G2, change_B2, couleur_2, police_2

dim res%, s$, rgb%, i%, sz%, att%, ong%

dim PC1%, PC2%, PC1pages%(3), PC2pages%(2)

height 0,760

button 1 : top 1,10 : left 1, 10 : width 1,20 : caption 1,"+" : on_click 1,create1
  hint 1,"Créer PageControl 1"
button 2 : top 2,10 : left 2,310 : width 2,20 : caption 2,"+" : on_click 2,create2
  hint 2,"Créer PageControl 2"

button 3 : top 3,10 : left 3, 30 : width 3,20 : caption 3,"x" : on_click 3,delete1
  hint 3,"Supprimer PageControl 1"
button 4 : top 4,10 : left 4,330 : width 4,20 : caption 4,"x" : on_click 4,delete2
  hint 4,"Supprimer PageControl 2"

combo 5 : top 5,10 : left 5,60 : width 5,130
  item_add 5,"Onglets standard"
  item_add 5,"Onglets symmétriques"
  item_add 5,"Onglets rectangulaires"
combo 6 : top 6,10 : left 6,360 : width 6,130
  item_add 6,"Onglets standard"
  item_add 6,"Onglets symmétriques"
  item_add 6,"Onglets rectangulaires"

combo 101 : top 101,420 : left 101,10
  item_add 101,"1=Color"
  item_add 101,"2=BorderColor"
  item_add 101,"3=SelectedColor"
  item_add 101,"4=UnselectedColor"
  item_add 101,"5=ModifiedColor"
  item_add 101,"6=TabBorderColor"
  item_add 101,"7=TabColor"
  item_add 101,"8=FontColor"
  item_add 101,"9=SelectedFontColor"
combo 113 : top 113,420 : left 113,170 : width 113,90
  item_add 113,"Tous onglets"
  item_add 113,"Onglet 1"
  item_add 113,"O. 2"
  item_add 113,"O. 3"
alpha 102 : top 102,450 : left 102,10 : caption 102,"R:"
edit 103 : top 103,450 :left 103,30 : width 103,40 : text 103,0
scroll_bar 104 : top 104,450 : left 104,80
  min 104,0 : max 104,255 : position 104,0
  on_change 104,change_R1
alpha 105 : top 105,480 : left 105,10 : caption 105,"G:"
edit 106 : top 106,480 :left 106,30 : width 106,40 : text 106,0
scroll_bar 107 : top 107,480 : left 107,80
  min 107,0 : max 107,255 : position 107,0
  on_change 107,change_G1
alpha 108 : top 108,510 : left 108,10 : caption 108,"B:"
edit 109 : top 109,510 :left 109,30 : width 109,40 : text 109,0
scroll_bar 110 : top 110,510 : left 110,80
  min 110,0 : max 110,255 : position 110,0
  on_change 110,change_B1
picture 111 : top 111,540 : left 111,10 : height 111,30
  color 111,0,0,0
button 112 : top 112,570 : left 112,10 : caption 112,"Appliquer couleur"
  on_click 112,couleur_1 : width 112,150

combo 120 : top 120,600 : left 120,10 : font_names_load 120
combo 121 : top 121,600 : left 121,160 : width 121,50
  item_add 121,"8"
  item_add 121,"10"
  item_add 121,"12"
  item_add 121,"14"
check 122 : top 122,630 : left 122,10 : caption 122,"B" : font_bold 122
check 123 : top 123,630 : left 123,60 : caption 123,"I " : font_italic 123 : font_bold 123
check 124 : top 124,630 : left 124,110 : caption 124,"S" : font_underline 124 : font_bold 124
check 125 : top 125,630 : left 125,160 : caption 125,"B" : font_strike 125 : font_bold 125
button 126 : top 126,660 : left 126,10 : caption 126,"Appliquer police"
  on_click 126,police_1 : width 126,150
combo 127 : top 127,660 : left 127,170 : width 127,80
  item_add 127,"Normal"
  item_add 127,"Sélectionné"

combo 201 : top 201,420 : left 201,310
  item_add 201,"1=Color"
  item_add 201,"2=BorderColor"
  item_add 201,"3=SelectedColor"
  item_add 201,"4=UnselectedColor"
  item_add 201,"5=ModifiedColor"
  item_add 201,"6=TabBorderColor"
  item_add 201,"7=TabColor"
  item_add 201,"8=FontColor"
  item_add 201,"9=SelectedFontColor"
combo 213 : top 213,420 : left 213,470 : width 213,90
  item_add 213,"Tous onglets"
  item_add 213,"Page 1"
  item_add 213,"P. 2"
  item_add 213,"P. 3"
alpha 202 : top 202,450 : left 202,310 : caption 202,"R:"
edit 203 : top 203,450 :left 203,330 : width 203,40 : text 203,0
scroll_bar 204 : top 204,450 : left 204,380
  min 204,0 : max 204,255 : position 204,0
  on_change 204,change_R2
alpha 205 : top 205,480 : left 205,310 : caption 205,"G:"
edit 206 : top 206,480 :left 206,330 : width 206,40 : text 206,0
scroll_bar 207 : top 207,480 : left 207,380
  min 207,0 : max 207,255 : position 207,0
  on_change 207,change_G2
alpha 208 : top 208,510 : left 208,310 : caption 208,"B:"
edit 209 : top 209,510 :left 209,330 : width 209,40 : text 209,0
scroll_bar 210 : top 210,510 : left 210,380
  min 210,0 : max 210,255 : position 210,0
  on_change 210,change_B2
picture 211 : top 211,540 : left 211,310 : height 211,30
  color 211,0,0,0
button 212 : top 212,570 : left 212,310 : caption 212,"Appliquer couleur"
  on_click 212,couleur_2 : width 212,150

combo 220 : top 220,600 : left 220,310 : font_names_load 220
combo 221 : top 221,600 : left 221,460 : width 221,50
  item_add 221,"8"
  item_add 221,"10"
  item_add 221,"12"
  item_add 221,"14"
check 222 : top 222,630 : left 222,310 : caption 222,"B" : font_bold 222
check 223 : top 223,630 : left 223,360 : caption 223,"I " : font_italic 223 : font_bold 123
check 224 : top 224,630 : left 224,410 : caption 224,"S" : font_underline 224 : font_bold 124
check 225 : top 225,630 : left 225,460 : caption 225,"B" : font_strike 225 : font_bold 125
button 226 : top 226,660 : left 226,310 : caption 226,"Appliquer police"
  on_click 226,police_2 : width 226,150
combo 227 : top 227,660 : left 227,470 : width 227,80
  item_add 227,"Normal"
  item_add 227,"Sélectionné"

dll_on "KGF.dll"

res% = dll_call2("SelectComboBoxItem",handle(101),1)
res% = dll_call2("SelectComboBoxItem",handle(201),1)
for i%=1 to count(120)
  if item_read$(120,i%)="Arial"
   res% = dll_call2("SelectComboBoxItem",handle(120),i%)
   res% = dll_call2("SelectComboBoxItem",handle(220),i%)
   exit_for
  end_if
next i%
res% = dll_call2("SelectComboBoxItem",handle(5),1)
res% = dll_call2("SelectComboBoxItem",handle(6),1)
res% = dll_call2("SelectComboBoxItem",handle(121),1)
res% = dll_call2("SelectComboBoxItem",handle(221),1)
res% = dll_call2("SelectComboBoxItem",handle(113),1)
res% = dll_call2("SelectComboBoxItem",handle(213),1)
res% = dll_call2("SelectComboBoxItem",handle(127),1)
res% = dll_call2("SelectComboBoxItem",handle(227),1)

end

create1:
  PC1% = dll_call1("CreateTabObject",handle(0))
  res% = dll_call6("TabObjectFunction",PC1%,5,0,item_index(5)-1,0,0)
  res% = dll_call5("TabObjectGeometry",PC1%,10,70,200,300)
  s$ = "Onglet 1"
  res% = dll_call2("AddTabObjectTab",PC1%,adr(s$))
  s$ = "O. 2"
  res% = dll_call2("AddTabObjectTab",PC1%,adr(s$))
  s$ = "O. 3"
  res% = dll_call2("AddTabObjectTab",PC1%,adr(s$))

  if object_exists(11)=0
   edit 11 : top 11,10 : left 11,10
   button 13 : top 13,30 : left 13,50
   memo 14 : top 14,40 : left 14,30
   alpha 15 : top 15,40 : left 15,20 : caption 15,"Objet ALPHA"
   picture 16 : top 16,60 : left 16,10 : color 16,255,0,0
  end_if

  res% = dll_call3("AddObjectToTabObjectTab",PC1%,1,handle(11))
  res% = dll_call3("AddObjectToTabObjectTab",PC1%,2,handle(13))
  res% = dll_call3("AddObjectToTabObjectTab",PC1%,3,handle(14))
  res% = dll_call3("AddSimpleObjectToTabObjectTab",PC1%,1,object_internal(15))
  res% = dll_call3("AddSimpleObjectToTabObjectTab",PC1%,2,object_internal(16))
  return

create2:
  PC2% = dll_call1("CreateTabObject",handle(0))
  res% = dll_call6("TabObjectFunction",PC2%,5,0,item_index(6)-1,0,0)
  res% = dll_call5("TabObjectGeometry",PC2%,310,70,200,300)
  s$ = "Paget 1"
  res% = dll_call2("AddTabObjectTab",PC2%,adr(s$))
  s$ = "P. 2"
  res% = dll_call2("AddTabObjectTab",PC2%,adr(s$))
  s$ = "P. 3"
  res% = dll_call2("AddTabObjectTab",PC2%,adr(s$))

  if object_exists(12)=0
   edit 12 : top 12,10 : left 12,10
  end_if
  res% = dll_call3("AddObjectToTabObjectTab",PC2%,2,handle(12))
  return

delete1:
  res% = dll_call1("DeleteTabObject",PC1%)
  PC1% = 0
  return

delete2:
  res% = dll_call1("DeleteTabObject",PC2%)
  PC2% = 0
  return

change_R1:
  text 103,position(104)
  color 111,val(text$(103)),val(text$(106)),val(text$(109))
  return

change_G1:
  text 106,position(107)
  color 111,val(text$(103)),val(text$(106)),val(text$(109))
  return

change_B1:
  text 109,position(110)
  color 111,val(text$(103)),val(text$(106)),val(text$(109))
  return

couleur_1:
  rgb% = (val(text$(109))*256+val(text$(106)))*256+val(text$(103))
  i% = item_index(101)
  ong% = item_index(113)-1
  res% = dll_call6("TabObjectFunction",PC1%,1,ong%,i%,rgb%,0)
  return

police_1:
  s$ = text$(120)
  sz% = val(text$(121))
  att% = checked(122) + checked(123)*2 + checked(124)*4 + checked(125)*8
  ong% = item_index(127) - 1
  res% = dll_call6("TabObjectFunction",PC1%,2,ong%,sz%,att%,adr(s$))
  return

change_R2:
  text 203,position(204)
  color 211,val(text$(203)),val(text$(206)),val(text$(209))
  return

change_G2:
  text 206,position(207)
  color 211,val(text$(203)),val(text$(206)),val(text$(209))
  return

change_B2:
  text 209,position(210)
  color 211,val(text$(203)),val(text$(206)),val(text$(209))
  return

couleur_2:
  rgb% = (val(text$(209))*256+val(text$(206)))*256+val(text$(203))
  i% = item_index(201)
  ong% = item_index(213)-1
  res% = dll_call6("TabObjectFunction",PC2%,1,ong%,i%,rgb%,0)
  return

police_2:
  s$ = text$(220)
  sz% = val(text$(221))
  att% = checked(222) + checked(223)*2 + checked(224)*4 + checked(225)*8
  ong% = item_index(227) - 1
  res% = dll_call6("TabObjectFunction",PC2%,2,ong%,sz%,att%,adr(s$))
  return

Bon, je vais me calmer un peu, sur cet objet. Je n'ai pas d'autres idées sérieuses à ce sujet. On verra à l'usage ce que les Panoramiciens en pensent.

Sujet: Re: KGF_dll - nouvelles versions Mer 21 Jan 2015 - 16:35

Nouvelle version:
KGF.dll V4.12 du 21/01/2015

Nouveautés:
- un clic sur la petite flèche en bas noire à la droite des onglets affiche maintenant un menu popup des onglets disponibles, même s'ils ne sont pas affichés dans la fenêtre. Un clic sur une de ces lignes ouvre directement l'onglet concerné et ajuste l'affichage des onglets.

Modules modifiés:
KGF.dll

Les sources sont à jour. La doc suivra.

Et voici le nouveau programme de démo:

Code:: ' test PageControl.bas

label create1, create2, delete1, delete2
label change_R1, change_G1, change_B1, couleur_1, police_1, activer_1
label change_R2, change_G2, change_B2, couleur_2, police_2, activer_2

dim res%, s$, rgb%, i%, sz%, att%, ong%, act1%, act2%

dim PC1%, PC2%, PC1pages%(3), PC2pages%(2)

height 0,760

button 1 : top 1,10 : left 1, 10 : width 1,20 : caption 1,"+" : on_click 1,create1
hint 1,"Créer PageControl 1"
button 2 : top 2,10 : left 2,310 : width 2,20 : caption 2,"+" : on_click 2,create2
hint 2,"Créer PageControl 2"

button 3 : top 3,10 : left 3, 30 : width 3,20 : caption 3,"x" : on_click 3,delete1
hint 3,"Supprimer PageControl 1"
button 4 : top 4,10 : left 4,330 : width 4,20 : caption 4,"x" : on_click 4,delete2
hint 4,"Supprimer PageControl 2"

combo 5 : top 5,10 : left 5,60 : width 5,130
item_add 5,"Onglets standard"
item_add 5,"Onglets symmétriques"
item_add 5,"Onglets rectangulaires"
combo 6 : top 6,10 : left 6,360 : width 6,130
item_add 6,"Onglets standard"
item_add 6,"Onglets symmétriques"
item_add 6,"Onglets rectangulaires"

combo 101 : top 101,420 : left 101,10
item_add 101,"1=Color"
item_add 101,"2=BorderColor"
item_add 101,"3=SelectedColor"
item_add 101,"4=UnselectedColor"
item_add 101,"5=ModifiedColor"
item_add 101,"6=TabBorderColor"
item_add 101,"7=TabColor"
item_add 101,"8=FontColor"
item_add 101,"9=SelectedFontColor"
combo 113 : top 113,420 : left 113,170 : width 113,90
item_add 113,"Tous onglets"
item_add 113,"Onglet 1"
item_add 113,"O. 2"
item_add 113,"O. 3"
alpha 102 : top 102,450 : left 102,10 : caption 102,"R:"
edit 103 : top 103,450 :left 103,30 : width 103,40 : text 103,0
scroll_bar 104 : top 104,450 : left 104,80
min 104,0 : max 104,255 : position 104,0
on_change 104,change_R1
alpha 105 : top 105,480 : left 105,10 : caption 105,"G:"
edit 106 : top 106,480 :left 106,30 : width 106,40 : text 106,0
scroll_bar 107 : top 107,480 : left 107,80
min 107,0 : max 107,255 : position 107,0
on_change 107,change_G1
alpha 108 : top 108,510 : left 108,10 : caption 108,"B:"
edit 109 : top 109,510 :left 109,30 : width 109,40 : text 109,0
scroll_bar 110 : top 110,510 : left 110,80
min 110,0 : max 110,255 : position 110,0
on_change 110,change_B1
picture 111 : top 111,540 : left 111,10 : height 111,30
color 111,0,0,0
button 112 : top 112,570 : left 112,10 : caption 112,"Appliquer couleur"
on_click 112,couleur_1 : width 112,150

combo 120 : top 120,600 : left 120,10 : font_names_load 120
combo 121 : top 121,600 : left 121,160 : width 121,50
item_add 121,"8"
item_add 121,"10"
item_add 121,"12"
item_add 121,"14"
check 122 : top 122,630 : left 122,10 : caption 122,"B" : font_bold 122
check 123 : top 123,630 : left 123,60 : caption 123,"I " : font_italic 123 : font_bold 123
check 124 : top 124,630 : left 124,110 : caption 124,"S" : font_underline 124 : font_bold 124
check 125 : top 125,630 : left 125,160 : caption 125,"B" : font_strike 125 : font_bold 125
button 126 : top 126,660 : left 126,10 : caption 126,"Appliquer police"
on_click 126,police_1 : width 126,150
combo 127 : top 127,660 : left 127,170 : width 127,80
item_add 127,"Normal"
item_add 127,"Sélectionné"

button 128 : top 128,390 : left 128,10 : caption 128,"Désactiver le menu"
width 128,100 : on_click 128,activer_1

combo 201 : top 201,420 : left 201,310
item_add 201,"1=Color"
item_add 201,"2=BorderColor"
item_add 201,"3=SelectedColor"
item_add 201,"4=UnselectedColor"
item_add 201,"5=ModifiedColor"
item_add 201,"6=TabBorderColor"
item_add 201,"7=TabColor"
item_add 201,"8=FontColor"
item_add 201,"9=SelectedFontColor"
combo 213 : top 213,420 : left 213,470 : width 213,90
item_add 213,"Tous onglets"
item_add 213,"Page 1"
item_add 213,"P. 2"
item_add 213,"P. 3"
alpha 202 : top 202,450 : left 202,310 : caption 202,"R:"
edit 203 : top 203,450 :left 203,330 : width 203,40 : text 203,0
scroll_bar 204 : top 204,450 : left 204,380
min 204,0 : max 204,255 : position 204,0
on_change 204,change_R2
alpha 205 : top 205,480 : left 205,310 : caption 205,"G:"
edit 206 : top 206,480 :left 206,330 : width 206,40 : text 206,0
scroll_bar 207 : top 207,480 : left 207,380
min 207,0 : max 207,255 : position 207,0
on_change 207,change_G2
alpha 208 : top 208,510 : left 208,310 : caption 208,"B:"
edit 209 : top 209,510 :left 209,330 : width 209,40 : text 209,0
scroll_bar 210 : top 210,510 : left 210,380
min 210,0 : max 210,255 : position 210,0
on_change 210,change_B2
picture 211 : top 211,540 : left 211,310 : height 211,30
color 211,0,0,0
button 212 : top 212,570 : left 212,310 : caption 212,"Appliquer couleur"
on_click 212,couleur_2 : width 212,150

combo 220 : top 220,600 : left 220,310 : font_names_load 220
combo 221 : top 221,600 : left 221,460 : width 221,50
item_add 221,"8"
item_add 221,"10"
item_add 221,"12"
item_add 221,"14"
check 222 : top 222,630 : left 222,310 : caption 222,"B" : font_bold 222
check 223 : top 223,630 : left 223,360 : caption 223,"I " : font_italic 223 : font_bold 123
check 224 : top 224,630 : left 224,410 : caption 224,"S" : font_underline 224 : font_bold 124
check 225 : top 225,630 : left 225,460 : caption 225,"B" : font_strike 225 : font_bold 125
button 226 : top 226,660 : left 226,310 : caption 226,"Appliquer police"
on_click 226,police_2 : width 226,150
combo 227 : top 227,660 : left 227,470 : width 227,80
item_add 227,"Normal"
item_add 227,"Sélectionné"

button 228 : top 228,390 : left 228,310 : caption 228,"Désactiver le menu"
width 228,100 : on_click 228,activer_2

dll_on "KGF.dll"

res% = dll_call2("SelectComboBoxItem",handle(101),1)
res% = dll_call2("SelectComboBoxItem",handle(201),1)
for i%=1 to count(120)
if item_read$(120,i%)="Arial"
res% = dll_call2("SelectComboBoxItem",handle(120),i%)
res% = dll_call2("SelectComboBoxItem",handle(220),i%)
exit_for
end_if
next i%
res% = dll_call2("SelectComboBoxItem",handle(5),1)
res% = dll_call2("SelectComboBoxItem",handle(6),1)
res% = dll_call2("SelectComboBoxItem",handle(121),1)
res% = dll_call2("SelectComboBoxItem",handle(221),1)
res% = dll_call2("SelectComboBoxItem",handle(113),1)
res% = dll_call2("SelectComboBoxItem",handle(213),1)
res% = dll_call2("SelectComboBoxItem",handle(127),1)
res% = dll_call2("SelectComboBoxItem",handle(227),1)

end

create1:
PC1% = dll_call1("CreateTabObject",handle(0))
res% = dll_call6("TabObjectFunction",PC1%,5,0,item_index(5)-1,0,0)
res% = dll_call5("TabObjectGeometry",PC1%,10,70,200,250)
s$ = "Onglet 1"
res% = dll_call2("AddTabObjectTab",PC1%,adr(s$))
s$ = "O. 2"
res% = dll_call2("AddTabObjectTab",PC1%,adr(s$))
s$ = "O. 3"
res% = dll_call2("AddTabObjectTab",PC1%,adr(s$))

if object_exists(11)=0
edit 11 : top 11,10 : left 11,10
button 13 : top 13,30 : left 13,50
memo 14 : top 14,40 : left 14,30
alpha 15 : top 15,40 : left 15,20 : caption 15,"Objet ALPHA"
picture 16 : top 16,60 : left 16,10 : color 16,255,0,0
end_if

res% = dll_call3("AddObjectToTabObjectTab",PC1%,1,handle(11))
res% = dll_call3("AddObjectToTabObjectTab",PC1%,2,handle(13))
res% = dll_call3("AddObjectToTabObjectTab",PC1%,3,handle(14))
res% = dll_call3("AddSimpleObjectToTabObjectTab",PC1%,1,object_internal(15))
res% = dll_call3("AddSimpleObjectToTabObjectTab",PC1%,2,object_internal(16))
act1% = 1
return

create2:
PC2% = dll_call1("CreateTabObject",handle(0))
res% = dll_call6("TabObjectFunction",PC2%,5,0,item_index(6)-1,0,0)
res% = dll_call5("TabObjectGeometry",PC2%,310,70,200,250)
s$ = "Paget 1"
res% = dll_call2("AddTabObjectTab",PC2%,adr(s$))
s$ = "P. 2"
res% = dll_call2("AddTabObjectTab",PC2%,adr(s$))
s$ = "P. 3"
res% = dll_call2("AddTabObjectTab",PC2%,adr(s$))

if object_exists(12)=0
edit 12 : top 12,10 : left 12,10
end_if
res% = dll_call3("AddObjectToTabObjectTab",PC2%,2,handle(12))
act2% = 1
return

delete1:
res% = dll_call1("DeleteTabObject",PC1%)
PC1% = 0
return

delete2:
res% = dll_call1("DeleteTabObject",PC2%)
PC2% = 0
return

change_R1:
text 103,position(104)
color 111,val(text$(103)),val(text$(106)),val(text$(109))
return

change_G1:
text 106,position(107)
color 111,val(text$(103)),val(text$(106)),val(text$(109))
return

change_B1:
text 109,position(110)
color 111,val(text$(103)),val(text$(106)),val(text$(109))
return

couleur_1:
rgb% = (val(text$(109))*256+val(text$(106)))*256+val(text$(103))
i% = item_index(101)
ong% = item_index(113)-1
res% = dll_call6("TabObjectFunction",PC1%,1,ong%,i%,rgb%,0)
return

police_1:
s$ = text$(120)
sz% = val(text$(121))
att% = checked(122) + checked(123)*2 + checked(124)*4 + checked(125)*8
ong% = item_index(127) - 1
res% = dll_call6("TabObjectFunction",PC1%,2,ong%,sz%,att%,adr(s$))
return

activer_1:
if PC1%<>0
act1% = 1 - act1%
res% = dll_call6("TabObjectFunction",PC1%,6,0,act1%,0,0)
if act1%=1
caption 128,"Désactiver le menu"
else
caption 128,"Activer le menu"
end_if
end_if
return

change_R2:
text 203,position(204)
color 211,val(text$(203)),val(text$(206)),val(text$(209))
return

change_G2:
text 206,position(207)
color 211,val(text$(203)),val(text$(206)),val(text$(209))
return

change_B2:
text 209,position(210)
color 211,val(text$(203)),val(text$(206)),val(text$(209))
return

couleur_2:
rgb% = (val(text$(209))*256+val(text$(206)))*256+val(text$(203))
i% = item_index(201)
ong% = item_index(213)-1
res% = dll_call6("TabObjectFunction",PC2%,1,ong%,i%,rgb%,0)
return

police_2:
s$ = text$(220)
sz% = val(text$(221))
att% = checked(222) + checked(223)*2 + checked(224)*4 + checked(225)*8
ong% = item_index(227) - 1
res% = dll_call6("TabObjectFunction",PC2%,2,ong%,sz%,att%,adr(s$))
return

activer_2:
if PC2%<>0
act2% = 1 - act2%
res% = dll_call6("TabObjectFunction",PC2%,6,0,act2%,0,0)
if act2%=1
caption 228,"Désactiver le menu"
else
caption 228,"Activer le menu"
end_if
end_if
return

Sujet: re Mer 21 Jan 2015 - 17:47

De mieux en mieux !!!
Génial !!!

heu...dans les styles, tu n' aurais pas un style 3d ?... Laughing

Sujet: Re: KGF_dll - nouvelles versions Mer 21 Jan 2015 - 17:59

Nouvelle version:
KGF.dll V4.13 du 21/01/2015

Nouveautés:
- affichage d'images (comme des icônes) sur les onglets et dans le menu popup

Modules modifiés:
KGF.dll

Les sources sont à jour. La doc suivra.

Ce sont des images BMP, forcément de petites dimensions. Pour la démo, j'ai fabriqué 3 images BMP en format 15x15 pixels, à télécharger sur mon WebDav, dossier Sources\KGF\. Ce sont les fichiers suivants:
ImageList_1.bmp
ImageList_2.bmp
ImageList_3.bmp
Mais on peut construire n'importe quelle image et la convertir en BMP de petite taille, mais toutes identiques. J'ai choisi la taille 15x15, mais 18x18 marche aussi, et peut-être un ou deux pixels de plus. En plus, vous pouvez choisir la couleur de transparence ! Dans a démo ci-dessous, j'ai choisi "blanc" comme couleur de transparence pour les 3 images, mais vous pouvez choisir une couleur différente pour chaque image ! Ca se passe dans la fonction AddImageToImageList - elle ajoute une image individuelle dans une liste interne, avec son masque de transparence. Ceci est également une nouvelle fonction de la DLL.

Voici le programme de démo adapté:

Code:: ' test PageControl.bas

label create1, create2, delete1, delete2
label change_R1, change_G1, change_B1, couleur_1, police_1, activer_1
label change_R2, change_G2, change_B2, couleur_2, police_2, activer_2

dim res%, s$, rgb%, i%, sz%, att%, ong%, act1%, act2%

dim PC1%, PC2%, PC1pages%(3), PC2pages%(2), IL1%, IL2%

height 0,760

button 1 : top 1,10 : left 1, 10 : width 1,20 : caption 1,"+" : on_click 1,create1
  hint 1,"Créer PageControl 1"
button 2 : top 2,10 : left 2,310 : width 2,20 : caption 2,"+" : on_click 2,create2
  hint 2,"Créer PageControl 2"

button 3 : top 3,10 : left 3, 30 : width 3,20 : caption 3,"x" : on_click 3,delete1
  hint 3,"Supprimer PageControl 1"
button 4 : top 4,10 : left 4,330 : width 4,20 : caption 4,"x" : on_click 4,delete2
  hint 4,"Supprimer PageControl 2"

combo 5 : top 5,10 : left 5,60 : width 5,130
  item_add 5,"Onglets standard"
  item_add 5,"Onglets symmétriques"
  item_add 5,"Onglets rectangulaires"
combo 6 : top 6,10 : left 6,360 : width 6,130
  item_add 6,"Onglets standard"
  item_add 6,"Onglets symmétriques"
  item_add 6,"Onglets rectangulaires"

combo 101 : top 101,420 : left 101,10
  item_add 101,"1=Color"
  item_add 101,"2=BorderColor"
  item_add 101,"3=SelectedColor"
  item_add 101,"4=UnselectedColor"
  item_add 101,"5=ModifiedColor"
  item_add 101,"6=TabBorderColor"
  item_add 101,"7=TabColor"
  item_add 101,"8=FontColor"
  item_add 101,"9=SelectedFontColor"
combo 113 : top 113,420 : left 113,170 : width 113,90
  item_add 113,"Tous onglets"
  item_add 113,"Onglet 1"
  item_add 113,"O. 2"
  item_add 113,"O. 3"
alpha 102 : top 102,450 : left 102,10 : caption 102,"R:"
edit 103 : top 103,450 :left 103,30 : width 103,40 : text 103,0
scroll_bar 104 : top 104,450 : left 104,80
  min 104,0 : max 104,255 : position 104,0
  on_change 104,change_R1
alpha 105 : top 105,480 : left 105,10 : caption 105,"G:"
edit 106 : top 106,480 :left 106,30 : width 106,40 : text 106,0
scroll_bar 107 : top 107,480 : left 107,80
  min 107,0 : max 107,255 : position 107,0
  on_change 107,change_G1
alpha 108 : top 108,510 : left 108,10 : caption 108,"B:"
edit 109 : top 109,510 :left 109,30 : width 109,40 : text 109,0
scroll_bar 110 : top 110,510 : left 110,80
  min 110,0 : max 110,255 : position 110,0
  on_change 110,change_B1
picture 111 : top 111,540 : left 111,10 : height 111,30
  color 111,0,0,0
button 112 : top 112,570 : left 112,10 : caption 112,"Appliquer couleur"
  on_click 112,couleur_1 : width 112,150

combo 120 : top 120,600 : left 120,10 : font_names_load 120
combo 121 : top 121,600 : left 121,160 : width 121,50
  item_add 121,"8"
  item_add 121,"10"
  item_add 121,"12"
  item_add 121,"14"
check 122 : top 122,630 : left 122,10 : caption 122,"B" : font_bold 122
check 123 : top 123,630 : left 123,60 : caption 123,"I " : font_italic 123 : font_bold 123
check 124 : top 124,630 : left 124,110 : caption 124,"S" : font_underline 124 : font_bold 124
check 125 : top 125,630 : left 125,160 : caption 125,"B" : font_strike 125 : font_bold 125
button 126 : top 126,660 : left 126,10 : caption 126,"Appliquer police"
  on_click 126,police_1 : width 126,150
combo 127 : top 127,660 : left 127,170 : width 127,80
  item_add 127,"Normal"
  item_add 127,"Sélectionné"

button 128 : top 128,390 : left 128,10 : caption 128,"Désactiver le menu"
  width 128,100 : on_click 128,activer_1

combo 201 : top 201,420 : left 201,310
  item_add 201,"1=Color"
  item_add 201,"2=BorderColor"
  item_add 201,"3=SelectedColor"
  item_add 201,"4=UnselectedColor"
  item_add 201,"5=ModifiedColor"
  item_add 201,"6=TabBorderColor"
  item_add 201,"7=TabColor"
  item_add 201,"8=FontColor"
  item_add 201,"9=SelectedFontColor"
combo 213 : top 213,420 : left 213,470 : width 213,90
  item_add 213,"Tous onglets"
  item_add 213,"Page 1"
  item_add 213,"P. 2"
  item_add 213,"P. 3"
alpha 202 : top 202,450 : left 202,310 : caption 202,"R:"
edit 203 : top 203,450 :left 203,330 : width 203,40 : text 203,0
scroll_bar 204 : top 204,450 : left 204,380
  min 204,0 : max 204,255 : position 204,0
  on_change 204,change_R2
alpha 205 : top 205,480 : left 205,310 : caption 205,"G:"
edit 206 : top 206,480 :left 206,330 : width 206,40 : text 206,0
scroll_bar 207 : top 207,480 : left 207,380
  min 207,0 : max 207,255 : position 207,0
  on_change 207,change_G2
alpha 208 : top 208,510 : left 208,310 : caption 208,"B:"
edit 209 : top 209,510 :left 209,330 : width 209,40 : text 209,0
scroll_bar 210 : top 210,510 : left 210,380
  min 210,0 : max 210,255 : position 210,0
  on_change 210,change_B2
picture 211 : top 211,540 : left 211,310 : height 211,30
  color 211,0,0,0
button 212 : top 212,570 : left 212,310 : caption 212,"Appliquer couleur"
  on_click 212,couleur_2 : width 212,150

combo 220 : top 220,600 : left 220,310 : font_names_load 220
combo 221 : top 221,600 : left 221,460 : width 221,50
  item_add 221,"8"
  item_add 221,"10"
  item_add 221,"12"
  item_add 221,"14"
check 222 : top 222,630 : left 222,310 : caption 222,"B" : font_bold 222
check 223 : top 223,630 : left 223,360 : caption 223,"I " : font_italic 223 : font_bold 123
check 224 : top 224,630 : left 224,410 : caption 224,"S" : font_underline 224 : font_bold 124
check 225 : top 225,630 : left 225,460 : caption 225,"B" : font_strike 225 : font_bold 125
button 226 : top 226,660 : left 226,310 : caption 226,"Appliquer police"
  on_click 226,police_2 : width 226,150
combo 227 : top 227,660 : left 227,470 : width 227,80
  item_add 227,"Normal"
  item_add 227,"Sélectionné"

button 228 : top 228,390 : left 228,310 : caption 228,"Désactiver le menu"
  width 228,100 : on_click 228,activer_2

dll_on "KGF.dll"

res% = dll_call2("SelectComboBoxItem",handle(101),1)
res% = dll_call2("SelectComboBoxItem",handle(201),1)
for i%=1 to count(120)
  if item_read$(120,i%)="Arial"
   res% = dll_call2("SelectComboBoxItem",handle(120),i%)
   res% = dll_call2("SelectComboBoxItem",handle(220),i%)
   exit_for
  end_if
next i%
res% = dll_call2("SelectComboBoxItem",handle(5),1)
res% = dll_call2("SelectComboBoxItem",handle(6),1)
res% = dll_call2("SelectComboBoxItem",handle(121),1)
res% = dll_call2("SelectComboBoxItem",handle(221),1)
res% = dll_call2("SelectComboBoxItem",handle(113),1)
res% = dll_call2("SelectComboBoxItem",handle(213),1)
res% = dll_call2("SelectComboBoxItem",handle(127),1)
res% = dll_call2("SelectComboBoxItem",handle(227),1)

i% = (255*256+255)*256+255
IL1% = dll_call2("CreateImageList",15,15)
s$ = "ImageList_1.bmp"
res% = dll_call4("AddImageToImageList",IL1%,adr(s$),1,i%)
s$ = "ImageList_2.bmp"
res% = dll_call4("AddImageToImageList",IL1%,adr(s$),1,i%)
s$ = "ImageList_3.bmp"
res% = dll_call4("AddImageToImageList",IL1%,adr(s$),1,i%)

IL2% = dll_call2("CreateImageList",15,15)
s$ = "ImageList_1.bmp"
res% = dll_call4("AddImageToImageList",IL2%,adr(s$),1,i%)
s$ = "ImageList_2.bmp"
res% = dll_call4("AddImageToImageList",IL2%,adr(s$),1,i%)
s$ = "ImageList_3.bmp"
res% = dll_call4("AddImageToImageList",IL2%,adr(s$),1,i%)

end

create1:
  PC1% = dll_call1("CreateTabObject",handle(0))
  res% = dll_call6("TabObjectFunction",PC1%,5,0,item_index(5)-1,0,0)
  res% = dll_call5("TabObjectGeometry",PC1%,10,70,200,250)
  res% = dll_call6("TabObjectFunction",PC1%,7,0,IL1%,0,0)
  s$ = "Onglet 1"
  res% = dll_call2("AddTabObjectTab",PC1%,adr(s$))
  res% = dll_call6("TabObjectFunction",PC1%,8,1,0,0,0)
  s$ = "O. 2"
  res% = dll_call2("AddTabObjectTab",PC1%,adr(s$))
  res% = dll_call6("TabObjectFunction",PC1%,8,2,1,0,0)
  s$ = "O. 3"
  res% = dll_call2("AddTabObjectTab",PC1%,adr(s$))
  res% = dll_call6("TabObjectFunction",PC1%,8,3,2,0,0)

  if object_exists(11)=0
   edit 11 : top 11,10 : left 11,10
   button 13 : top 13,30 : left 13,50
   memo 14 : top 14,40 : left 14,30
   alpha 15 : top 15,40 : left 15,20 : caption 15,"Objet ALPHA"
   picture 16 : top 16,60 : left 16,10 : color 16,255,0,0
  end_if

  res% = dll_call3("AddObjectToTabObjectTab",PC1%,1,handle(11))
  res% = dll_call3("AddObjectToTabObjectTab",PC1%,2,handle(13))
  res% = dll_call3("AddObjectToTabObjectTab",PC1%,3,handle(14))
  res% = dll_call3("AddSimpleObjectToTabObjectTab",PC1%,1,object_internal(15))
  res% = dll_call3("AddSimpleObjectToTabObjectTab",PC1%,2,object_internal(16))
  act1% = 1
  return

create2:
  PC2% = dll_call1("CreateTabObject",handle(0))
  res% = dll_call6("TabObjectFunction",PC2%,5,0,item_index(6)-1,0,0)
  res% = dll_call5("TabObjectGeometry",PC2%,310,70,200,250)
  res% = dll_call6("TabObjectFunction",PC2%,7,0,IL2%,0,0)
  s$ = "Page 1"
  res% = dll_call2("AddTabObjectTab",PC2%,adr(s$))
  res% = dll_call6("TabObjectFunction",PC2%,8,1,0,0,0)
  s$ = "P. 2"
  res% = dll_call2("AddTabObjectTab",PC2%,adr(s$))
  res% = dll_call6("TabObjectFunction",PC2%,8,2,1,0,0)
  s$ = "P. 3"
  res% = dll_call2("AddTabObjectTab",PC2%,adr(s$))
  res% = dll_call6("TabObjectFunction",PC2%,8,3,2,0,0)

  if object_exists(12)=0
   edit 12 : top 12,10 : left 12,10
  end_if
  res% = dll_call3("AddObjectToTabObjectTab",PC2%,2,handle(12))
  act2% = 1
  return

delete1:
  res% = dll_call1("DeleteTabObject",PC1%)
  PC1% = 0
  return

delete2:
  res% = dll_call1("DeleteTabObject",PC2%)
  PC2% = 0
  return

change_R1:
  text 103,position(104)
  color 111,val(text$(103)),val(text$(106)),val(text$(109))
  return

change_G1:
  text 106,position(107)
  color 111,val(text$(103)),val(text$(106)),val(text$(109))
  return

change_B1:
  text 109,position(110)
  color 111,val(text$(103)),val(text$(106)),val(text$(109))
  return

couleur_1:
  rgb% = (val(text$(109))*256+val(text$(106)))*256+val(text$(103))
  i% = item_index(101)
  ong% = item_index(113)-1
  res% = dll_call6("TabObjectFunction",PC1%,1,ong%,i%,rgb%,0)
  return

police_1:
  s$ = text$(120)
  sz% = val(text$(121))
  att% = checked(122) + checked(123)*2 + checked(124)*4 + checked(125)*8
  ong% = item_index(127) - 1
  res% = dll_call6("TabObjectFunction",PC1%,2,ong%,sz%,att%,adr(s$))
  return

activer_1:
  if PC1%<>0
   act1% = 1 - act1%
   res% = dll_call6("TabObjectFunction",PC1%,6,0,act1%,0,0)
   if act1%=1
   caption 128,"Désactiver le menu"
   else
   caption 128,"Activer le menu"
   end_if
  end_if
  return

change_R2:
  text 203,position(204)
  color 211,val(text$(203)),val(text$(206)),val(text$(209))
  return

change_G2:
  text 206,position(207)
  color 211,val(text$(203)),val(text$(206)),val(text$(209))
  return

change_B2:
  text 209,position(210)
  color 211,val(text$(203)),val(text$(206)),val(text$(209))
  return

couleur_2:
  rgb% = (val(text$(209))*256+val(text$(206)))*256+val(text$(203))
  i% = item_index(201)
  ong% = item_index(213)-1
  res% = dll_call6("TabObjectFunction",PC2%,1,ong%,i%,rgb%,0)
  return

police_2:
  s$ = text$(220)
  sz% = val(text$(221))
  att% = checked(222) + checked(223)*2 + checked(224)*4 + checked(225)*8
  ong% = item_index(227) - 1
  res% = dll_call6("TabObjectFunction",PC2%,2,ong%,sz%,att%,adr(s$))
  return

activer_2:
  if PC2%<>0
   act2% = 1 - act2%
   res% = dll_call6("TabObjectFunction",PC2%,6,0,act2%,0,0)
   if act2%=1
   caption 228,"Désactiver le menu"
   else
   caption 228,"Activer le menu"
   end_if
  end_if
  return

PS. Je vais réfléchir à la 3D...

Sujet: re Mer 21 Jan 2015 - 19:30

Wahou !!! Cet objet avance au grand galop !!!
Je suis en train de reprendre mon éditeur Panoramic à 0
Je vais le refaire avec les derniers objets et surtout celui là
ainsi que synedit.

Je ne trouvais pas d' idée nouvelle, là j' en ai pour un bout de temps... Laughing

Sujet: Re: KGF_dll - nouvelles versions Mer 21 Jan 2015 - 19:38

Content que ça te plaise...

Je travaille sur l'aspect 3D. C'est complexe car actuellement, il y a 3 styles, et pour chacun, on peut librement choisir la couleur de la bordure des onglets. Il fait que je trouve un moyen de faire cela, sans que cela devienne une usine à gaz...

Sujet: re Mer 21 Jan 2015 - 21:04

Si cela me plait ?... et comment que ca me plait...
C' est fantastique!!!

Quand je parlais 3d, j' entendais un style windows avec un relief
plus que 3d pur. Quoi que maintenant sur W7 c' est plutôt un dégradé
de gris en fond d' onglet mais un relief accorderait avec les autres objets Panoramic.

Sujet: re Mer 21 Jan 2015 - 22:58

J' ai un petit souci.
J' ai écrit ceci dans ma sub Gui :

Code::    PC1% = dll_call1("CreateTabObject",handle(TB_Pan%))
   Tab_res% = dll_call6("TabObjectFunction",PC1%,5,0,2,0,0)
   Tab_res% = dll_call5("TabObjectGeometry",PC1%,5,5,width(TB_Pan%)-10,250)
   Tab_res% = dll_call6("TabObjectFunction",PC1%,7,0,IL1%,0,0)
   s$ = "Main.bas"
   Tab_res% = dll_call2("AddTabObjectTab",PC1%,adr(s$))
   Tab_res% = dll_call6("TabObjectFunction",PC1%,8,1,0,0,0)
   s$ = "VAR.bas"
   Tab_res% = dll_call2("AddTabObjectTab",PC1%,adr(s$))
   Tab_res% = dll_call6("TabObjectFunction",PC1%,8,2,0,0,0)
   s$ = "LAB.bas"
   Tab_res% = dll_call2("AddTabObjectTab",PC1%,adr(s$))
   Tab_res% = dll_call6("TabObjectFunction",PC1%,8,3,0,0,0)
   s$ = "GUI.bas"
   Tab_res% = dll_call2("AddTabObjectTab",PC1%,adr(s$))
   Tab_res% = dll_call6("TabObjectFunction",PC1%,8,4,0,0,0)
   s$ = "FCT.bas"
   Tab_res% = dll_call2("AddTabObjectTab",PC1%,adr(s$))
   Tab_res% = dll_call6("TabObjectFunction",PC1%,8,5,0,0,0)
   Act%=1

Mais voilà que j' ai un écart entre les onglets et ce que je pense être des "Panel" commandés par les onglets...

KGF_dll - nouvelles versions - Page 8 Captur10

Je vais mettre un zip du projet complet ( très court pour l' instant Laughing

) sur mon webdav.
( c' est fait Smile

)

Sujet: Re: KGF_dll - nouvelles versions Mer 21 Jan 2015 - 23:49

J'ai chargé ton projet, et j'obtiens la même chose, chez moi. Où est le problème ? Cela semble pas mal, non ?

EDIT

En fait, j'y vois 3 anomalies:
1. Tu n'as pas créé l'objet ImageList (à faire par la fonction CreateImageList)
2. Tu n'as donc pas pu ajouter les images à la ImageList puisqu'elle n'est pas créé (à faire par la fonction AddImageToImageList)
3. Tu associes une image avec chaque onglet, sauf que les images n'existent pas, et que l'indice indiqué est toujours 0.

Je reprends ici le code tel qu'il devrait être:

Code:: IL% = dll_call2("CreateImageList",15,15) : ' création de la liste des images (interne à la DLL)
' pour chaque image à ajouter à la ImageList, faire:
NomFichierBmp$ = "UneImage.bmp"
trans% = (bleu%*255+vert%)*255+rouge% : ' couleur de transparence
res% = dll_call4("AddImageToImageList",IL%,adr(NumFichierBmp$),1,transp%)

PC1% = dll_call1("CreateTabObject",handle(TB_Pan%))
Tab_res% = dll_call6("TabObjectFunction",PC1%,5,0,2,0,0)
Tab_res% = dll_call5("TabObjectGeometry",PC1%,5,5,width(TB_Pan%)-10,250)
Tab_res% = dll_call6("TabObjectFunction",PC1%,7,0,IL1%,0,0)
s$ = "Main.bas"
Tab_res% = dll_call2("AddTabObjectTab",PC1%,adr(s$))
Tab_res% = dll_call6("TabObjectFunction",PC1%,8,1,0,0,0)
s$ = "VAR.bas"
Tab_res% = dll_call2("AddTabObjectTab",PC1%,adr(s$))
Tab_res% = dll_call6("TabObjectFunction",PC1%,8,2,1,0,0) : ' indexe image 1 pour onglet 2
s$ = "LAB.bas"
Tab_res% = dll_call2("AddTabObjectTab",PC1%,adr(s$))
Tab_res% = dll_call6("TabObjectFunction",PC1%,8,3,2,0,0) : ' indexe image 2 pour onglet 3
s$ = "GUI.bas"
Tab_res% = dll_call2("AddTabObjectTab",PC1%,adr(s$))
Tab_res% = dll_call6("TabObjectFunction",PC1%,8,4,3,0,0) : ' indexe image 3 pour onglet 4
s$ = "FCT.bas"
Tab_res% = dll_call2("AddTabObjectTab",PC1%,adr(s$))
Tab_res% = dll_call6("TabObjectFunction",PC1%,8,5,4,0,0) : ' indexe image 14 pour onglet 5
Act%=1

C'est plus clair comme ça ?

Sujet: re Jeu 22 Jan 2015 - 0:29

Le problème est là :

KGF_dll - nouvelles versions - Page 8 Captur11

Le vois tu mieux ?... ( il y a un espace entre les onglets et les panels liés aux onglets et qui sont internes à la dll )

Edit : Je ne veux pas que les onglets affichent d' image ( du moins ceux là Smile

).

Sujet: Re: KGF_dll - nouvelles versions Jeu 22 Jan 2015 - 0:43

Oj, j'ai vu. Le problème vient du fait que tu places le TabObject dans un Panel, pas directement sur la form 0. Si tu le mets sur la form 0, tout se passe bien. Mais c'est un bug, et je vais chercher à le corriger.

Et si tu ne veux pas d'images sur ces onglets-là, alors enlève les appels du style

Code:: Tab_res% = dll_call6("TabObjectFunction",PC1%,8,1,0,0,0)

avec le code fonction 8, qui se sert qu'à lier un onglet à une image dans la ImageList contenant une série de petites images.

» KGF_dll - nouvelles versions
» Nouvelles versions
» Synedit_Editor - nouvelles versions
» KGF_dll - nouvelles versions
» KGF_dll - nouvelles versions