Discussion :

[cincap]

Os XP et Delphi 6

Bonjour à toutes et à tous,

Dans une application, je réalise un redimensionnement (paramétrable) sur toutes les photos contenues dans un dossier en utilisant un TlistBox.

Ma question, avec un seul Tedit, serait t'il possible d'écrire un texte dans le bas droit de chaque image et être appliqué en une seule fois soit sur ce lot de photos ?

Personnellement cela me paraît compliqué mais on ne sait jamais.

Merci d'avance.

@+,

Cincap

[Droïde Système7]

Ça ne doit pas être le Pérou

Sachant que tu peux écrire dans cette image au travers son Canvas et via sa procédure TextOut.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Img01.Canvas.TextOut(70, 20, GetOldLed);

Alors avec une boucle chargeant tes pictures dans un dossier affecté ; au passage à chacune tu écris dessus...

@+

[Montor]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
with Img01 do 
    Canvas.TextOut(right-Canvas.TextWide, bottom-Canvas.Texthieght, GetOldLed);

[cincap]

Bonjour à toutes et à tous,

@ Droïde Système7 et @ Montor, merci pour vos réponses.

Donc à partir du code qui sert à dimensionner tous le lot d'images (admettons 10 images) il serait possible d'ajouter un texte car j'ai déjà une boucle.

Par contre, dans vos propositions, je ne vois pas ou je rentre mon texte !

Le but serait de pouvoir modifier sa couleur et le fond de couleurs en transparence.

Code de redimentionnement que j'utilise : lbFiles = Tlistbox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
---
 if lbFiles.Items.Count = 0 then
  begin
    MessageDlg(GNoImages, mtError, [mbAbort], 0);
    Exit;
  end;
 
  try
    SetControlsEnabled(Self, False);
    FRedimThread := TRedimThread.Create;
    with FRedimThread do
    begin
      FreeOnTerminate := True;
      OnProgress := RedimFile;
      OnTerminate := RedimTerminate;
      SourceFiles.Assign(lbFiles.Items);
      DestDir := EdtDestDirectory.Text;
      Width := StrToInt(FrmOptions.EdtWidth.Text);
      Height := StrToInt(FrmOptions.EdtHeight.Text);
      Quality := StrToInt(FrmOptions.EdtQuality.Text);
      BackgroundColor := FrmOptions.ColorBox.Selected;
      if FrmOptions.rbFixedDimentions.Checked then
        Method := rmFixedSize
      else
        Method := rmMaxSize;
     // PB.Min := 0;
      PB.Maximum := SourceFiles.Count;
 
      PB.Position := 0;
      Resume;
         end;
  except
    SetControlsEnabled(Self, True);
    raise;
  end;

@ Montor, ton code génère ceci :

[Erreur] Unit1.pas(30): Identificateur non déclaré : 'right'
[Erreur] Unit1.pas(30): Identificateur non déclaré : 'TextWide'
[Erreur] Unit1.pas(30): Identificateur non déclaré : 'Texthieght'
[Erreur] Unit1.pas(30): Identificateur non déclaré : 'GetOldLed'
[Erreur fatale] Project1.dpr(5): Impossible de compiler l'unité utilisée 'Unit1.pas'

@+,

Cincap

[Archimède]

En effet, il ya du soucis....lol

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Canvas.TextOut(canvas.cliprect.right-Canvas.TextWidth, canvas.cliprect.bottom-Canvas.Textheight, GetOldLed ?);

GetoldLed ? ton texte...
J'ai pas regardé ton code.