# -*- coding: iso-8859-1 -*- #. // CA_ConstColorsRGB.py from _by_ConstColorsRGB import by_ConstColorsRGB # // Constantes pour les couleurs RGB. from _by_ferase import by_ferase # // Détruire un fichier. from _by_FileToUrl import by_FileToUrl # // Convertir un nom de fichier Windows en URL. from _ca_AutoFit import ca_AutoFit # // Règle les dimensions des cellules utilisées. from _ca_BackColor import ca_BackColor # // Définit une couleur à une ou plusieurs cellules. from _ca_SheetGrid import ca_SheetGrid # // Quadrille la feuille. from _ca_WriteFormula import ca_WriteFormula # // Ecrit une formule dans une cellule avec options. from _lo_LibreOfficeNew import lo_LibreOfficeNew # // Ouvre Libre Office. from _lo_MakeProperty import lo_MakeProperty # // Créer une propriété Libre Office. from _lo_ScreenUpdating import lo_ScreenUpdating # // N'affiche pas les modifications = va plus vite. from _lo_SpellingOff import lo_SpellingOff # // Inhiber l'affichage des fautes ou non. cFileOut = "_Result.ods" #. // Liste les couleurs RGB dans un fichier Libre Office Calc. def CA_ConstColorsRGB(): by_ferase( cFileOut ) oServiceManager = lo_LibreOfficeNew() if oServiceManager is None: return -1 #. endif oDesktop = oServiceManager.createInstance( "com.sun.star.frame.Desktop" ) args1 = lo_MakeProperty( oServiceManager, "Hidden", False ) oDoc = oDesktop.loadComponentFromURL( "private:factory/scalc", "_blank", 0, [ args1 ] ) lo_ScreenUpdating( oDoc ) lo_SpellingOff( oDoc ) oSheet = oDoc.GetSheets().GetByIndex( 0 ) aColors = by_ConstColorsRGB() l = 0 ca_SheetGrid( oSheet ) #. // Titres. l += 1 ; c = 0 c += 1 ; ca_WriteFormula( oSheet, l, c, "Nom" ) c += 1 ; ca_WriteFormula( oSheet, l, c, "Affichage de la couleur" ) c += 1 ; ca_WriteFormula( oSheet, l, c, "Valeur" ) ca_BackColor( oSheet, aColors[ "Yellow" ], l, 1, l, c ) #. // Affichage des couleurs. for cColor in aColors: l += 1 ; c = 0 c += 1 ; ca_WriteFormula( oSheet, l, c, cColor ) c += 1 ; ca_BackColor( oSheet, aColors[ cColor ], l, c ) c += 1 ; ca_WriteFormula( oSheet, l, c, aColors[ cColor ] ) #. endfor xColor ca_AutoFit( oSheet ) oDoc.storeAsURL( by_FileToUrl( cFileOut ), [] ) lo_ScreenUpdating( oDoc, True ) aColors = {} oServiceManager = None return 0 CA_ConstColorsRGB() ''' Dernière modification : 2022-02-20 '''