deklaration unterscheidet sich von vorheriger ?!?!?

[sieppl]

Delphi-Quellcode:

  TMyListView = class(TCustomListView)
  private
    FExtTypes: Boolean;
    FThumbnailThread: TThumbnailThread;
    FImageList: TImageList;
  protected
  public
    property ExtTypes: Boolean read FExtTypes write FExtTypes;
    property ImageList: TImageList read FImageList write FImageList;
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    procedure TreeUpdate(NewRoot: PItemIDList);
    procedure ChangeBitmap(Bitmap: TBitmap; Index, Width, Heigth: Integer);

später im implemtationsteil: (mit STRG + SHIFT + C vervollständigt)

Delphi-Quellcode:

procedure TMyListView.ChangeBitmap(Bitmap: TBitmap; Index, Width, Heigth: Integer);
var
  ImageIndex: Integer;
begin
  ImageIndex := FImageList.Add(Bitmap, nil);
  FListView.Items[Index].ImageIndex := ImageIndex;
  FListView.Items[Index].Caption := Format('%s (%dx%d)',
  [FListView.Items[Index].Caption, Width, Height]);
end;

Fehlermeldung:
Deklaration von ChangeBitmap unterscheidet sich von vorheriger Deklaration
WIE BITTE ?!?!

[Meflin]

könnte es sein dass die verwendung von "index" zu problemen führt? (weils fett gedruckt wird und so reserviert zu sein scheint)

[Lord Dave]

Lässt sich bei mir ohne Fehlermeldung compilieren.
(Nur die Signaturen kopiert)

Delphi-Quellcode:

unit Unit2;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCTRLs;

type
TMyListView = class(TCustomListView)
  private 
    FExtTypes: Boolean;

    FImageList: TImageList; 
  protected
  public 
    property ExtTypes: Boolean read FExtTypes write FExtTypes;
    property ImageList: TImageList read FImageList write FImageList; 

    procedure ChangeBitmap(Bitmap: TBitmap; Index, Width, Heigth: Integer);
   end;

implementation


procedure TMyListView.ChangeBitmap(Bitmap: TBitmap; Index, Width, Heigth: Integer);
var
  ImageIndex: Integer;
begin
  ImageIndex := FImageList.Add(Bitmap, nil);
end;
end.

[sieppl]

Ich bekomme den Fehler sobald ich den Typen TBitmap in der Deklaration benutze, am Index liegt es nicht. Das ist doch zum Hühner rupfen..

[SirThornberry]

dann liegt es vermutlich an den Uses. Stelle sicher das die Unit "windows" die erste in den uses ist

[sieppl]

Zitat von SirThornberry:

dann liegt es vermutlich an den Uses. Stelle sicher das die Unit "windows" die erste in den uses ist

jep, habe ich aúch gerade bemerkt. Graphics in Implementations-Teil benutzt. so ein sch* !!
jetzt erstmal wieder beruhigen..

[SirThornberry]

*lol* dann isses ja klar da im implementationsteil die TBitmapdeclaration aus Graphics genommen wird und im Declarationsteil die aus der Windowsunit

[sieppl]

ja genau, ich tue mir selber auch schon leid. keine wunder, sitze seit 9 uhr am rechner und code..