$PBExportHeader$w_toolscolors.srw
$PBExportComments$objet de gestion des couleurs...
forward
global type w_toolscolors from Window
end type
type pb_annuler from picturebutton within w_toolscolors
end type
type pb_valider from picturebutton within w_toolscolors
end type
type pb_1 from picturebutton within w_toolscolors
end type
type sle_valeur from singlelineedit within w_toolscolors
end type
type sle_b from singlelineedit within w_toolscolors
end type
type sle_g from singlelineedit within w_toolscolors
end type
type sle_r from singlelineedit within w_toolscolors
end type
type vsb_b from vscrollbar within w_toolscolors
end type
type vsb_g from vscrollbar within w_toolscolors
end type
type vsb_r from vscrollbar within w_toolscolors
end type
type st_1 from statictext within w_toolscolors
end type
type lb_detail from listbox within w_toolscolors
end type
type lb_liste from listbox within w_toolscolors
end type
type lb_objets from listbox within w_toolscolors
end type
type gb_1 from groupbox within w_toolscolors
end type
end forward

global type w_toolscolors from Window
int X=14
int Y=16
int Width=2775
int Height=1796
boolean TitleBar=true
string Title="Configuration des couleurs..."
boolean ControlMenu=true
WindowType WindowType=response!
pb_annuler pb_annuler
pb_valider pb_valider
pb_1 pb_1
sle_valeur sle_valeur
sle_b sle_b
sle_g sle_g
sle_r sle_r
vsb_b vsb_b
vsb_g vsb_g
vsb_r vsb_r
st_1 st_1
lb_detail lb_detail
lb_liste lb_liste
lb_objets lb_objets
gb_1 gb_1
end type
global w_toolscolors w_toolscolors

type variables
// Codes couleurs : Ecran, DW Liste, DW Détail
Long lnCouleurs[3,4]
end variables

forward prototypes
public subroutine vdappliquer ()
public subroutine vdlongtorgb (readonly long lncouleur, ref long lncoder, ref long lncodeg, ref long lncodeb)
public subroutine vdselectitem (readonly long lnindex)
end prototypes

public subroutine vdappliquer ();sle_R.Text = String(vsb_R.Position)
sle_G.Text = String(vsb_G.Position)
sle_B.Text = String(vsb_B.Position)

lnCouleurs[lb_Objets.SelectedIndex(),1] = vsb_R.Position
lnCouleurs[lb_Objets.SelectedIndex(),2] = vsb_G.Position
lnCouleurs[lb_Objets.SelectedIndex(),3] = vsb_B.Position

lnCouleurs[1,4] = RGB(lnCouleurs[1,1],lnCouleurs[1,2],lnCouleurs[1,3])
lnCouleurs[2,4] = RGB(lnCouleurs[2,1],lnCouleurs[2,2],lnCouleurs[2,3])
lnCouleurs[3,4] = RGB(lnCouleurs[3,1],lnCouleurs[3,2],lnCouleurs[3,3])

this.BackColor  = lnCouleurs[1,4]
st_1.backcolor = lnCouleurs[1,4]
gb_1.backcolor = lnCouleurs[1,4]
lb_liste.BackColor    = lnCouleurs[2,4]
lb_detail.BackColor    = lnCouleurs[3,4]

sle_Valeur.Text = String(RGB(vsb_R.Position,vsb_G.Position,vsb_B.Position))

end subroutine

public subroutine vdlongtorgb (readonly long lncouleur, ref long lncoder, ref long lncodeg, ref long lncodeb);lnCodeB = Long(lnCouleur) / 65536
lnCodeG = (lnCouleur - (lnCodeB * 65536)) / 256
lnCodeR = lnCouleur - (lnCodeB * 65536) - (lnCodeG * 256)

end subroutine

public subroutine vdselectitem (readonly long lnindex);lb_Objets.SelectItem(0)
lb_Objets.SelectItem(lnIndex)

vsb_R.Position = lnCouleurs[lnIndex,1]
vsb_G.Position = lnCouleurs[lnIndex,2]
vsb_B.Position = lnCouleurs[lnIndex,3]

sle_R.Text = String(vsb_R.Position)
sle_G.Text = String(vsb_G.Position)
sle_B.Text = String(vsb_B.Position)

sle_Valeur.Text = String(RGB(vsb_R.Position,vsb_G.Position,vsb_B.Position))

end subroutine

on w_toolscolors.create
this.pb_annuler=create pb_annuler
this.pb_valider=create pb_valider
this.pb_1=create pb_1
this.sle_valeur=create sle_valeur
this.sle_b=create sle_b
this.sle_g=create sle_g
this.sle_r=create sle_r
this.vsb_b=create vsb_b
this.vsb_g=create vsb_g
this.vsb_r=create vsb_r
this.st_1=create st_1
this.lb_detail=create lb_detail
this.lb_liste=create lb_liste
this.lb_objets=create lb_objets
this.gb_1=create gb_1
this.Control[]={this.pb_annuler,&
this.pb_valider,&
this.pb_1,&
this.sle_valeur,&
this.sle_b,&
this.sle_g,&
this.sle_r,&
this.vsb_b,&
this.vsb_g,&
this.vsb_r,&
this.st_1,&
this.lb_detail,&
this.lb_liste,&
this.lb_objets,&
this.gb_1}
end on

on w_toolscolors.destroy
destroy(this.pb_annuler)
destroy(this.pb_valider)
destroy(this.pb_1)
destroy(this.sle_valeur)
destroy(this.sle_b)
destroy(this.sle_g)
destroy(this.sle_r)
destroy(this.vsb_b)
destroy(this.vsb_g)
destroy(this.vsb_r)
destroy(this.st_1)
destroy(this.lb_detail)
destroy(this.lb_liste)
destroy(this.lb_objets)
destroy(this.gb_1)
end on

event open;
if isvalid(w_menu) then
  f_centre_fenetre(this)  
end if


//lnCouleurs[1,4] = gnv_app.idbl_fond
//vdLongToRGB(lnCouleurs[1,4],lnCouleurs[1,1],lnCouleurs[1,2],lnCouleurs[1,3])
//lnCouleurs[2,4] = gnv_app.idbl_liste
//vdLongToRGB(lnCouleurs[2,4],lnCouleurs[2,1],lnCouleurs[2,2],lnCouleurs[2,3])
//lnCouleurs[3,4] = gnv_app.idbl_detail
//vdLongToRGB(lnCouleurs[3,4],lnCouleurs[3,1],lnCouleurs[3,2],lnCouleurs[3,3])

vdSelectItem(1)
vdAppliquer()
end event

type pb_annuler from picturebutton within w_toolscolors
int X=2295
int Y=1580
int Width=425
int Height=96
int TabOrder=50
string Text="&Annuler"
string PictureName="annuler.bmp"
Alignment HTextAlign=Right!
boolean Default=true
boolean OriginalSize=true
int TextSize=-10
int Weight=700
string FaceName="Times New Roman"
FontCharSet FontCharSet=Ansi!
FontFamily FontFamily=Roman!
FontPitch FontPitch=Variable!
end type

event clicked;close(parent)
end event

type pb_valider from picturebutton within w_toolscolors
int X=1015
int Y=1580
int Width=425
int Height=96
int TabOrder=40
string Text="&Valider"
string PictureName="valider.bmp"
Alignment HTextAlign=Right!
boolean OriginalSize=true
int TextSize=-10
int Weight=700
string FaceName="Times New Roman"
FontCharSet FontCharSet=Ansi!
FontFamily FontFamily=Roman!
FontPitch FontPitch=Variable!
end type

event clicked;integer li_Net

li_Net = MessageBox("Information", "Etes-vous sur de vouloir valider ?",question!, yesno!, 2)
IF li_Net = 1 THEN
 // Process OK.
ELSE
 // Process CANCEL.
 return
END IF


//gnv_app.idbl_fond  = lnCouleurs[1,4]
//gnv_app.idbl_liste = lnCouleurs[2,4]
//gnv_app.idbl_detail  = lnCouleurs[3,4]


// gestion des couleurs
SetProfileString("pbadonf.ini", "couleurs", "fond",string(lnCouleurs[1,4]))
SetProfileString("pbadonf.ini", "couleurs", "liste",string(lnCouleurs[2,4]))
SetProfileString("pbadonf.ini", "couleurs", "detail",string(lnCouleurs[3,4]))

Close(Parent)

end event
type pb_1 from picturebutton within w_toolscolors
int X=485
int Y=1592
int Width=142
int Height=84
int TabOrder=30
string Text="ok"
int TextSize=-8
int Weight=700
string FaceName="Times New Roman"
FontFamily FontFamily=Roman!
FontPitch FontPitch=Variable!
end type

event clicked;Long lnValeur
Long lnR
Long lnG
Long lnB

lnValeur = Long(sle_Valeur.Text)

vdLongToRGB(lnValeur,lnR,lnG,lnB)

vsb_R.Position = lnR
vsb_G.Position = lnG
vsb_B.Position = lnB

vdAppliquer()

end event

type sle_valeur from singlelineedit within w_toolscolors
int X=27
int Y=1600
int Width=439
int Height=76
int TabOrder=20
boolean AutoHScroll=false
long TextColor=33554432
int TextSize=-10
int Weight=700
string FaceName="Times New Roman"
FontCharSet FontCharSet=Ansi!
FontFamily FontFamily=Roman!
FontPitch FontPitch=Variable!
end type

type sle_b from singlelineedit within w_toolscolors
int X=782
int Y=1468
int Width=174
int Height=76
boolean Enabled=false
boolean AutoHScroll=false
long TextColor=33554432
int TextSize=-10
int Weight=700
string FaceName="Times New Roman"
FontCharSet FontCharSet=Ansi!
FontFamily FontFamily=Roman!
FontPitch FontPitch=Variable!
end type

type sle_g from singlelineedit within w_toolscolors
int X=453
int Y=1468
int Width=174
int Height=76
boolean Enabled=false
boolean AutoHScroll=false
long TextColor=33554432
int TextSize=-10
int Weight=700
string FaceName="Times New Roman"
FontCharSet FontCharSet=Ansi!
FontFamily FontFamily=Roman!
FontPitch FontPitch=Variable!
end type

type sle_r from singlelineedit within w_toolscolors
int X=82
int Y=1468
int Width=174
int Height=76
boolean Enabled=false
boolean AutoHScroll=false
long TextColor=33554432
int TextSize=-10
int Weight=700
string FaceName="Times New Roman"
FontCharSet FontCharSet=Ansi!
FontFamily FontFamily=Roman!
FontPitch FontPitch=Variable!
end type

type vsb_b from vscrollbar within w_toolscolors
event linedown pbm_sbnlinedown
event lineup pbm_sbnlineup
event moved pbm_sbnthumbtrack
event pagedown pbm_sbnpagedown
event pageup pbm_sbnpageup
int X=827
int Y=340
int Width=82
int Height=1120
boolean Enabled=false
boolean BringToTop=true
boolean StdWidth=false
int MaxPosition=255
end type

event linedown;This.Position = Min(This.Position + 1,This.MaxPosition)
vdAppliquer()

end event

event lineup;This.Position = Max(This.Position - 1,This.MinPosition)
vdAppliquer()

end event

event moved;This.Position = ScrollPos
vdAppliquer()

end event

event pagedown;This.Position = Min(This.Position + 15,This.MaxPosition)
vdAppliquer()

end event

event pageup;This.Position = Min(This.Position - 15,This.MaxPosition)
vdAppliquer()

end event

type vsb_g from vscrollbar within w_toolscolors
event linedown pbm_sbnlinedown
event lineup pbm_sbnlineup
event moved pbm_sbnthumbtrack
event pagedown pbm_sbnpagedown
event pageup pbm_sbnpageup
int X=498
int Y=340
int Width=82
int Height=1120
boolean Enabled=false
boolean BringToTop=true
boolean StdWidth=false
int MaxPosition=255
end type

event linedown;This.Position = Min(This.Position + 1,This.MaxPosition)
vdAppliquer()

end event

event lineup;This.Position = Max(This.Position - 1,This.MinPosition)
vdAppliquer()

end event

event moved;This.Position = ScrollPos
vdAppliquer()

end event

event pagedown;This.Position = Min(This.Position + 15,This.MaxPosition)
vdAppliquer()

end event

event pageup;This.Position = Min(This.Position - 15,This.MaxPosition)
vdAppliquer()

end event

type vsb_r from vscrollbar within w_toolscolors
event linedown pbm_sbnlinedown
event lineup pbm_sbnlineup
event moved pbm_sbnthumbtrack
event pagedown pbm_sbnpagedown
event pageup pbm_sbnpageup
int X=128
int Y=340
int Width=82
int Height=1120
boolean Enabled=false
boolean BringToTop=true
boolean StdWidth=false
int MaxPosition=255
end type

event linedown;This.Position = Min(This.Position + 1,This.MaxPosition)
vdAppliquer()

end event

event lineup;This.Position = Max(This.Position - 1,This.MinPosition)
vdAppliquer()

end event

event moved;This.Position = ScrollPos
vdAppliquer()

end event

event pagedown;This.Position = Min(This.Position + 15,This.MaxPosition)
vdAppliquer()

end event

event pageup;This.Position = Min(This.Position - 15,This.MaxPosition)
vdAppliquer()

end event

type st_1 from statictext within w_toolscolors
int X=101
int Y=272
int Width=869
int Height=76
boolean Enabled=false
string Text="Rouge                Vert                Bleu"
boolean FocusRectangle=false
long TextColor=33554432
int TextSize=-10
int Weight=700
string FaceName="Times New Roman"
FontCharSet FontCharSet=Ansi!
FontFamily FontFamily=Roman!
FontPitch FontPitch=Variable!
end type

type lb_detail from listbox within w_toolscolors
int X=1015
int Y=804
int Width=1705
int Height=760
boolean Enabled=false
boolean BringToTop=true
BorderStyle BorderStyle=StyleLowered!
boolean Sorted=false
long TextColor=33554432
int TextSize=-11
int Weight=400
string FaceName="Times New Roman"
FontFamily FontFamily=Roman!
FontPitch FontPitch=Variable!
string Item[]={"azertyuiop",&
"          0123456789",&
"azertyuiop     azertyuiop",&
"          0123456789     azertyuiop",&
"poiuytreza"}
end type

type lb_liste from listbox within w_toolscolors
int X=1015
int Y=28
int Width=1705
int Height=760
boolean Enabled=false
boolean BringToTop=true
BorderStyle BorderStyle=StyleLowered!
boolean VScrollBar=true
boolean Sorted=false
long TextColor=33554432
int TextSize=-11
int Weight=400
string FaceName="Times New Roman"
FontFamily FontFamily=Roman!
FontPitch FontPitch=Variable!
string Item[]={"azertyuiop",&
"0123456789",&
"azertyuiopazertyuiop",&
"01234567890123456789",&
"poiuytreza",&
"9876543210"}
end type

type lb_objets from listbox within w_toolscolors
event selectionchanged pbm_lbnselchange
int X=27
int Y=28
int Width=969
int Height=208
int TabOrder=10
boolean BringToTop=true
BorderStyle BorderStyle=StyleLowered!
boolean Sorted=false
long TextColor=33554432
int TextSize=-10
int Weight=400
string FaceName="Times New Roman"
FontFamily FontFamily=Roman!
FontPitch FontPitch=Variable!
string Item[]={"Fond d'écran",&
"Listes",&
"Détail"}
end type

event selectionchanged;vdSelectItem(Index)

end event

type gb_1 from groupbox within w_toolscolors
int X=27
int Y=224
int Width=969
int Height=1340
BorderStyle BorderStyle=StyleLowered!
long TextColor=33554432
long BackColor=33554431
int TextSize=-10
int Weight=700
string FaceName="Times New Roman"
FontCharSet FontCharSet=Ansi!
FontFamily FontFamily=Roman!
FontPitch FontPitch=Variable!
end type