Print mm.

Vil du vide hvordan man printer et tal?

Yea men tallet skal være oven på billedet som der er loadet ind..

Altså det første billede der bliver printet ud skal der stå 1 på og det næste skal der stå 2 på. osv osv..

canvas.textout

Hm kan du give et eks? :)

Canvas.TextOut(10, 10, '1');

var
FNumber:integer;

//Når der er nye billeder hentet ind:
FNumber := 0;

//Lige inden print:
inc(FNumber);
with image1.Canvas do
begin
brush.Style := bsclear;
textout(10,10,inttostr(FNumber));
brush.Style := bssolid;
end;

du kan så ændre 10, 10 (x, y) til hvad du vil

Hm hvor skal det så lige sættes ind?!

Hm denne her tråd gik vist lidt død..! :(

ved jo ikke hvordan din kode ser ud...
Men jeg syntes da jeg har skrevet hvor det ca skal være???

Hm forstår ikke helt, alt hvad jeg har indtil nu er bare en form med en image1 og en knap på, men kan ikke helt forstå din kode, kan du give et eks mere? :)

okay trode du havde lavet alt load koden til billederne, og print koden.
Du sagde jo bare at du ville sætte et nr på før udprint ikke.

Du skal vel bare lave en open dialog som må tage flere filer.
Så kører du bare igennem fil listen:

var
i :integer;
FNumber:integer;
begin
FNumber := 0;

if Opendialog1.execute then
for I := 0 to Opendialog1.files.count-1 do
begin
inc(FNumber);
image1.picture.loadfromfile(Opendialog1.files.strings[I]);
with image1.Canvas do
begin
brush.Style := bsclear;
textout(10,10,inttostr(FNumber));
brush.Style := bssolid;
end;

//Kode til udprint af image1 billede
end;
end;