Operator oder Semikolon fehlt in eigener Funktion

[Andreas L.]

Hi,
ich habe folgende Funktione gebaut:

Delphi-Quellcode:

function AddPicassaPanel(Parent: TPanel; Image, Title: String; SubTitle, ImageRollOver: String; OperationsMenu: TPopUpMenu):Boolean;
...
...

Dies rufe ich so auf:

Delphi-Quellcode:

AddPicassaPanel([hier ist der fehler]PicassaPanelParent,'D:\Software-Projekte\PicassaPanel\images\directory.png','test','blubbbbbbbbbbbbbbb','',OperationPopUpMenu);

Der Compiler meldet mir an der oben markierten Stelle folgendes:

Code:

[Fehler] main.pas(127): Operator oder Semikolon fehlt

Ich finde den Fehler einfach nicht. Wer weiß mehr?

[edit=alcaeus]Beitrags-Cache durch Bearbeiten geloescht (Delphi-Tags wurden nicht geparst) Mfg, alcaeus[/edit]

[fkerber]

hi!

Evtl. fehlt das Semikolon in der Zeile vorher?
Zeig am besten mal etwas mehr vom Code...

Ciao Frederic

[Andreas L.]

Zitat:

Zitat von fkerber

hi!

Evtl. fehlt das Semikolon in der Zeile vorher?
Zeig am besten mal etwas mehr vom Code...

Ciao Frederic

Nö, fehlt kein Semikolon:

Delphi-Quellcode:

procedure TfrmDemo.AddPicassaPanelClick(Sender: TObject);
begin
 AddPicassaPanel(PicassaPanelParent,'D:\Software-Projekte\PicassaPanel\images\directory.png','test','blubbbbbbbbbbbbbbb','',OperationPopUpMenu);
end;

Hier noch die komplette Funktion:

Delphi-Quellcode:

function AddPicassaPanel(Parent: TPanel; Image, Title: String; SubTitle, ImageRollOver: String; OperationsMenu: TPopUpMenu):Boolean;
var
 PicassaPanel, PicassaHeader, PicassaContainer, PicassaToolbar : TPanel;
 PicassaImage: TImage;
 PicassaTitle, PicassaSubTitle: TLabel;
 PicassaOperationsButton: TSpeedButton;
 PicassaPanelName: String;
begin
 //set name
 PicassaPanelName:='PicassaPanel'+inttostr(PicassaPanels.count);
 //create main layer
 PicassaPanel.Create(Parent);
 PicassaPanel.Name:=PicassaPanelName;
 PicassaPanel.Align:=alTop;
 PicassaPanel.Color:=$008E6423;
 PicassaPanel.BevelOuter:=bvNone;
 PicassaPanel.Height:=208;
  //create header
  PicassaHeader.Create(PicassaPanel);
  PicassaHeader.name:=PicassaPanelName+'_Header';
  PicassaHeader.align:=alTop;
  PicassaHeader.BevelOuter:=bvNone;
  PicassaHeader.Color:=$008E6423;
  PicassaHeader.height:=52;
   //create objects on header
    //Image
    PicassaImage.Create(PicassaHeader);
    PicassaImage.Name:=PicassaPanelName+'_Image';
    PicassaImage.Picture.LoadFromFile(Image);
    PicassaImage.height:=48;
    PicassaImage.Width:=48;
    PicassaImage.Left:=4;
    PicassaImage.Top:=4;
    PicassaImage.Transparent:=true;
    //Title
    PicassaTitle.Create(PicassaHeader);
    PicassaTitle.Name:=PicassaPanelName+'_Title';
    PicassaTitle.Caption:=Title;
    PicassaTitle.Left:=56;
    PicassaTitle.Top:=4;
    PicassaTitle.Font.Color:=clWhite;
    PicassaTitle.Font.Name:='Arial';
    PicassaTitle.Font.Size:=12;
    PicassaTitle.Font.Style:=[fsBold];
    //SubTitle
    PicassaSubTitle.Create(PicassaHeader);
    PicassaSubTitle.Name:=PicassaPanelName+'_SubTitle';
    PicassaSubTitle.Caption:=SubTitle;
    PicassaSubTitle.Left:=56;
    PicassaSubTitle.Top:=26;
    PicassaSubTitle.Font.Color:=clWhite;
    PicassaSubTitle.Font.Name:='Arial';
    PicassaSubTitle.Font.Size:=10;
    PicassaSubTitle.Font.Style:=[fsBold];
    //Operations-Button
    PicassaOperationsButton.Create(PicassaHeader);
    PicassaOperationsButton.Name:=PicassaPanelName+'_OperationsButton';
    PicassaOperationsButton.Anchors:=[akTop, akRight];
    PicassaOperationsButton.Caption:=PicassaOperations;
    PicassaOperationsButton.Font.Color:=$008E6423;
    PicassaOperationsButton.Font.Name:='Arial';
    PicassaOperationsButton.Font.Size:=10;
    PicassaOperationsButton.Font.Style:=[fsBold];
    PicassaOperationsButton.Height:=22;
    PicassaOperationsButton.Layout:=blGlyphRight;
    PicassaOperationsButton.Left:=Parent.Width-101;
    PicassaOperationsButton.Width:=97;
    PicassaOperationsButton.Top:=4;
end;

[edit=alcaeus]Beitrags-Cache durch Bearbeiten geloescht (Delphi-Tags wurden nicht geparst) Mfg, alcaeus[/edit]

[jim_raynor]

Du hast eine Funktion die heisst AddPicassaPanelClick. Also gehe ich davon aus, dass du auch eine Komponente mit dem Namen AddPicassaPanel hast ... Und gleichzeitig eine Funktion die so heisst geht nicht so recht. Nenn entweder die Komponente oder die Funktion um ...

[Andreas L.]

Zitat:

Zitat von jim_raynor

Du hast eine Funktion die heisst AddPicassaPanelClick. Also gehe ich davon aus, dass du auch eine Komponente mit dem Namen AddPicassaPanel hast ... Und gleichzeitig eine Funktion die so heisst geht nicht so recht. Nenn entweder die Komponente oder die Funktion um ...

Ahh, klappt. Vielen Dank.