J'avoue c'est compliqué GDIP, certainement que j'y arriverai avec du temps et beaucoup de tests (je n'abandonne pas cet idée)
Cependant dans l'immédiat j'opte plutôt pour une solution que je maîtrise mieux, plus simple pour que mon projet aboutisse après on verra pour le rendre beau.
Code: Select all
#Include %A_ScriptDir%\Class_CtlColors.ahk
EXT = 13
INT := EXT - 4
Gui, 1:Color, EEAA99
Gui, 1:+AlwaysOnTop +Resize ; +LastFound
; Gui, Margin, 10, 10
; DEBUT
Gui, 1:Add, Text , x0 y0 w70 center hwndCouleur ,NOM
CtlColors.Change(Couleur, "FFFF00", "000000")
Gui, 1:Add, Text , x70 y0 w60 Right -Background ,Position
Gui, 1:Add, Text , x135 y0 w%EXT% h%EXT% hwndCouleur ; CARRE EXTERIEUR
CtlColors.Change(Couleur, "0000FF", "000000")
Gui, 1:Add, Text , xp+2 yp+2 w%INT% h%INT% hwndCouleur ; CARRE INTERIEUR
CtlColors.Change(Couleur, "FFFFFF", "000000")
; LIGNES
Gui, 1:Add, Text , xp+11 yp+3 w100 h4 hwndCouleur vW_Largeur_Max ; LIGNE 1 ,
CtlColors.Change(Couleur, "000000", "000000")
; FIN
Gui, 1:Add, Text , X0 y0 w%EXT% h%EXT% hwndCouleur vX_Last_EXT ; CARRE EXTERIEUR
CtlColors.Change(Couleur, "FF0000", "000000")
Gui, 1:Add, Text , xp+2 yp+2 w%INT% h%INT% hwndCouleur vX_Last_INT ; CARRE INTERIEUR
CtlColors.Change(Couleur, "FFFFFF", "000000")
Gui, 1:Add, Text , y0 w60 Left -Background vX_Last2 ,Position
Gui, 1:Add, Text , y0 w70 center hwndCouleur vX_Last1 ,NOM
CtlColors.Change(Couleur, "FFFF00", "000000")
; TESTS ECRITURE VERTICALE
Gui, 1:Add, Text , X170 y20 w10 center hwndCouleur ,0`n1`n6`nà`n0`n1`n7
CtlColors.Change(Couleur, "A9F5A9", "000000")
Gui, 1:Show , xCenter y90 w400 h140 , GUI REDIMENSIONNABLE
Return
guisize:
GuiControl , 1:move , X_Last1 , % "x"A_GuiWidth - 70
GuiControl , 1:move , X_Last2 , % "x"A_GuiWidth - 70 - 60
GuiControl , 1:move , X_Last_EXT , % "x"A_GuiWidth - 70 - 60 - 13 - 5
GuiControl , 1:move , X_Last_INT , % "x"A_GuiWidth - 70 - 60 - 13 - 3
GuiControl , 1:move , W_Largeur_Max , % "w"(A_GuiWidth - 146 - 149)
WinSet , Redraw ,
Return
F11::
; CtlColors.Attach(Couleur, "000000", "FFFFFF")
CtlColors.Change(Couleur, "0000FF", "FFFFFF")
; CtlColors.Detach(Couleur)
Return
F12::Reload
Close:
CtlColors.Detach(Couleur)
ExitApp