[Function's & Procedure's] Wiederholender Quelltext

[mOzZzI]

Hallo,
ich habe eine kleine Frage, die lautet so:

Ich frage mittels

Delphi-Quellcode:

begin
if ptInRect( Image1.BoundsRect, pt ) then
  begin
    Image1.Canvas.Draw(0,0, FileIcon(dateiname));
    ini.WriteString('BUTTONS', '1', dateiname);
  end;
end;

ab wo der Mauszeiger sich befindet.
Wobei

Delphi-Quellcode:

var pt: TPoint
begin
  pt:=self.ScreenToClient(Mouse.CursorPos);
end;

ist.
Jetzt wollte ich das in eine Funktion oder Prozedur setzen, da ich 20 Images hab...

Ich hätte gedacht vill so:

Delphi-Quellcode:

function ZeigerImage(var Imagex:TImage):Boolean;
begin
  if ptInRect( Imagex.BoundsRect, pt ) then
  begin
   Imagex.Canvas.Draw(0,0, FileIcon(Dateiname));
   ini.WriteString('BUTTONS', Imagex, dateiname);
  end;
end;

Also das man dann Imagex mit Image1...20 ersetzen kann...


Gruß Philipp

[Angel4585]

und wo ist jetzt dein Problem? :gruebel:

[mOzZzI]

Also, das Problem ist das

Delphi-Quellcode:

function ZeigerImage(var Imagex:TImage):Boolean;
begin
  if ptInRect( Imagex.BoundsRect, pt ) then
  begin
   Imagex.Canvas.Draw(0,0, FileIcon(Dateiname));
   ini.WriteString('BUTTONS', Imagex, dateiname);
  end;
end;

nur ein Gedanke war, aber nicht funktioniert...

Und wie ich das dann machen kann...

Also das man dann Imagex mit Image1...20 ersetzen kann... bloß wie?

[Angel4585]

Delphi-Quellcode:

Imagex.Name

vielleicht?

Du musst die Funktion mit

Delphi-Quellcode:

ZeigerImage(Image1)

aufrufen. Dann hat Imagex den Namen 'Image1' den du dann speichern kannst falls du nur die '1' willst kannst du das Image davor ja wegschneiden.

[mOzZzI]

Wie baue ich das ein? :wall: *dumme Frage, sry*

[Angel4585]

was willst du eigentlich speichern? Das Bild oder den Namen der Imagekomponente?
Für den Namen:

Delphi-Quellcode:

function ZeigerImage(var Imagex:TImage):Boolean; 
begin 
  if ptInRect( Imagex.BoundsRect, pt ) then 
  begin 
   Imagex.Canvas.Draw(0,0, FileIcon(Dateiname)); 
   ini.WriteString('BUTTONS', Imagex.Name, dateiname); 
  end; 
end;

Bild weis ich leider nicht, da musst du vielleicht mal die Forensuche bemühen

[Ben]

Hallo,

die Funktion ist doch soweit richtig. Aufrufen tust du sie nun an der entsprechenden Stelle beispielsweise so:

Delphi-Quellcode:

ZeigerImage(Image14)

Vielleicht teilst du uns einfach mal mit, was der Fehler ist?

Mit freundlichen Grüßen,
Ben