data]]>
This example requires a browser that supports the
HTML5
<canvas> feature.
]]>
This example requires a browser that supports the HTML5 <canvas> feature.
]]>test
(*
Et un autre
*)
begin
For i:=Onglet.PageCount-1 DownTo 0 Do
Begin
Onglet.ActivePageIndex:=i;
// En commentaire d ON ' euuuuuu
ShowMessage('Truc muche !'kqjhsd'jhkjh''''''hghg''''hg'); // c'est un comment !
{ et un autre }
FileName:= 'Document.doc'; // ou 'Document.rtf'
URL ='http://toto.com';
End;
end;]]>
Dotnet
logv99
12345
]]>
Titre
]]>
new(
-title => 'Tableau TableMatrix',
-background => 'snow',
);
$mw->Label(
-text => "Tableau redimensionnable à l'aide de TableMatrix",
-background => 'snow',
-font => '{arial} 12 bold'
)->pack( -pady => 5 );
my $data = {};
# Création du tableau avec une ligne et une colonne
my $table = $mw->Scrolled(
'TableMatrix',
-rows => 1,
-cols => 1,
-width => 500,
-height => 500,
-variable => $data,
-rowtagcommand => \&type_row,
-background => "#454545",
-titlerows => 1,
-titlecols => 1,
-drawmode => 'single',
-selectmode => 'extended',
-scrollbars => 'osoe',
);
# Insertion de données dans le tableau
for my $row ( 0 .. 20 ) {
# Calcul du nombre de lignes dans le tableau
my $number_rows = $table->cget( -rows );
# Insertion d'une ligne si nécessaire
$table->insertRows( 'end', 1 ) if ( $number_rows < $row + 1 );
for my $col ( 0 .. 10 ) {
# Calcul du nombre de lignes dans le tableau
my $number_cols = $table->cget( -cols );
# Insertion d'une colonne si nécessaire
$table->insertCols( 'end', 1 ) if ( $number_cols < $col + 1 );
# Ligne de titre
if ( $row == 0 and $col != 0 ) {
$data->{"$row,$col"} = "Colonne $col";
}
# Colonne de titre
elsif ( $col == 0 and $row != 0 ) {
$data->{"$row,$col"} = "Ligne $row";
}
elsif ( $col == 0 and $row == 0 ) {
# rien ne se passe;
}
# Données
else {
$data->{"$row,$col"} = "($row,$col)";
}
}
}
# Configuration des lignes paires et impaires
$table->tagConfigure(
'pair_row',
-bg => 'white',
-fg => 'black',
-relief => 'sunken',
-state => 'disabled'
);
$table->tagConfigure(
'impair_row',
-bg => '#00C0E0',
-fg => 'black',
-relief => 'sunken',
-state => 'disabled'
);
$table->tagConfigure( 'title', -bg => '#F0E0FF', -fg => 'black', -relief => 'sunken' );
# Fusion des cellules 1,1 à 1,4
$table->spans( '1,1' => '0,3' );
$table->pack(qw/ -fill both -expand 1 -padx 10 -pady 10 /);
MainLoop;
# Permet d'assigner un tag aux lignes paires et impaires
sub type_row {
my $row = shift;
my $tag_row = ( $row > 0 && $row % 2 == 0 ) ? "pair_row" : "impair_row";
return $tag_row;]]>
'0')) ;
CREATE TABLE FICHIER (id MEDIUMINT PRIMARY KEY AUTO_INCREMENT, Version_creation MEDIUMINT NOT NULL REFERENCES VERSION.id, Version_suppression MEDIUMINT REFERENCES VERSION.id, Version_maj MEDIUMINT REFERENCES VERSION.id, Version_futur_maj MEDIUMINT REFERENCES VERSION.id, Source VARCHAR(200), CHECK(Version_suppression IS NULL OR Version_suppression > Version_creation), CHECK((Version_suppression IS NOT NULL AND Version_maj IS NULL) OR Version_suppression IS NULL), CHECK (Version_maj IS NULL OR Version_maj > Version_creation), CHECK((Source IS NULL AND Version_maj IS NULL AND Version_futur_maj IS NULL) OR Source IS NOT NULL)) ;
CREATE TABLE POSITION (id_Fichier MEDIUMINT NOT NULL REFERENCES FICHIER.id, id_Version MEDIUMINT NOT NULL REFERENCES VERSION.id, Nom VARCHAR(100) NOT NULL, id_dossier MEDIUMINT REFERENCES FICHIER.id, Derniere_position CHAR(1) NOT NULL CHECK Derniere_position IN ('O', 'N', 'T', 'P'), PRIMARY KEY(id_Fichier, id_Version), CHECK(id_Fichier <> id_dossier));
//on crée la version 0 (version vide)
INSERT INTO VERSION VALUES('', '0', 'O');]]>