deklaration unterscheidet sich von vorheriger ?!?!?

[sieppl]

:wall: :wall: :wall: :wall: :wall: :wall: :wall: :wall: :wall: :wall:
:wall: :wall: :wall: :wall: :wall: :wall: :wall: :wall: :wall: :wall:
:wall: :wall: :wall: :wall: :wall: :wall: :wall: :wall: :wall: :wall:

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.. :wall:

[SirThornberry]

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

[sieppl]

Zitat:

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.. :angel:

[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.. :nerd: