Operator oder Semikolon fehlt in eigener Funktion

[Andreas L.]

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]