Neues Vista Menu

[bigben37]

Nun ja, das ist ja immer so ne Sache, mit Turbo Delphi und externen Komponenten...

Wie kann ich nun Items für das VistaMenü erstellen, das hier geht nämlich nicht:

Delphi-Quellcode:

VMenu := TVistaMenu.Create(self);
aItem.Create(self); //Hier liegt der Fehler, aber mit Create(self) 
                    //oder Create(Form1) geht das auch nicht.
AItem.Caption := 'Test'; 
VMenu.Items.Add(AItem);

Und ich habe keine eigene Item-Klasse für das Menü gefunden.

Ich finde das Menü vom Style her wirklich gut gelungen :thumb:

[JuliaBecks]

versuch doch ersteinmal über die Formularansicht die Items hinzuzufügen.
Muss dein Item unbedingt dynamisch erzeugt werden?

[FAlter]

Hi,

Zitat:

Zitat von JuliaBecks

versuch doch ersteinmal über die Formularansicht die Items hinzuzufügen.
Muss dein Item unbedingt dynamisch erzeugt werden?

Bei der Explorer-Version von Turbo-Delphi können keine Komponenten installiert werden.

Mfg
FAlter

[wp_xxyyzz]

Hallo

Mit beigefügtem Code erstelle ich unter D7 ein VistaMenu zur Laufzeit und füge Items hinzu. Allerdings wird der ausgewählte Menüstil nicht angezeigt - vielleicht kann JuliaBecks da helfen:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, VistaMenu;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
    FVistaMenu : TVistaMenu;
    procedure MenuFileOpen(Sender:TObject);
    procedure MenuFileQuit(Sender:TObject);
    procedure MenuEditCut(Sender:TOBject);
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  item, item1 : TMenuItem;
begin
  FVistaMenu := TVistaMenu.Create(self);
  FVistaMenu.MenuStyle := msVistaOrange;

  // File
  item := TMenuItem.Create(self);
  with item do begin
    Caption := 'File';
  end;
  FVistaMenu.Items.Add(item);
  item1 := TMenuItem.Create(self);
  with item1 do begin
    Caption := 'Open';
    OnClick := MenuFileOpen;
  end;
  item.Add(item1);
  item1 := TMenuItem.Create(self);
  with item1 do begin
    Caption := 'Quit';
    OnClick := MenuFileQuit;
  end;
  item.Add(item1);

  // Edit
  item := TMenuItem.Create(self);
  with item do begin
    caption := 'Edit';
  end;
  FVistaMenu.Items.Add(item);
  item1 := TMenuItem.Create(self);
  with item1 do begin
    Caption := 'Cut';
    OnClick := MenuEditCut;
  end;
  item.Add(item1);

  // etc.
end;

procedure TForm1.MenuFileOpen(Sender:TObject);
begin
  ShowMessage('File / Open clicked');
end;

procedure TForm1.MenuFileQuit(Sender:TObject);
begin
  Close;
end;

procedure TForm1.MenuEditCut(Sender:TObject);
begin
  ShowMessage('Edit / Cut clicked');
end;


end.

[JuliaBecks]

hi, also normalerweise dürfte es keine Probleme geben.
ich werde mir aber die Zeit nehmen und dem Sachverhalt auf den Grund gehen. :cheer:

[Garfield]

Die Lösung ist wahrscheinlich nicht sauber, aber es funktioniert:

Änderung von

Delphi-Quellcode:

  protected
    procedure Loaded; override;

nach

Delphi-Quellcode:

  public
    procedure Loaded; override;

sowie Aufruf von

Delphi-Quellcode:

  FVistaMenu.Loaded;

nach der Erstellung des Menues.

[bigben37]

:dancer: Super, es funktioniert. :dancer: :dancer:

[MCXSC]

Die Idee ist super und nett aussehen tut das Menü auch!

Aber eine kleine Frage am Rande: Ist es möglich, das Menü auch als Popup zu bekommen? :)

[RWarnecke]

Zitat:

Zitat von MCXSC

Die Idee ist super und nett aussehen tut das Menü auch!

Aber eine kleine Frage am Rande: Ist es möglich, das Menü auch als Popup zu bekommen? :)

Der Link könnte Dir vielleicht weiterhelfen.

[MCXSC]

Zitat:

Zitat von RWarnecke

Der Link könnte Dir vielleicht weiterhelfen.

Ups, okay, danke. :)

[JuliaBecks]

Hab mich schon gewundert, weshalb das PopUpMenu so selten runtergeladen wird im Vergleich zu dem MainMenu :cheer:

[Dezipaitor]

Die Komponente sieht schon super aus.

Aber die Downloadseite bekommt eine Auszeichnung für das schlechteste Design.
Man bekommt beim Download ein Popupfester, welches nur so von Werbelinks zugepflastert ist
und mittendrin, so ganz unscheinbar, befindet sich der echte Downloadlink. Das schlimmste dabei
ist nicht die Rote, aggressive Hintergrundfarbe - und alle Softwareergonomen fallen dabei tot um -
sondern, dass ich für den Link über 30sekunden Suchzeit hatte und erstmal alle Werbelinks,
die man nicht als solche erkennen kann, anklicken musste.

Note: Schrecklich.

[FAlter]

Hi,

Zitat:

Zitat von Dezipaitor

Aber die Downloadseite bekommt eine Auszeichnung für das schlechteste Design.
Man bekommt beim Download ein Popupfester, welches nur so von Werbelinks zugepflastert ist
und mittendrin, so ganz unscheinbar, befindet sich der echte Downloadlink. Das schlimmste dabei
ist nicht die Rote, aggressive Hintergrundfarbe - und alle Softwareergonomen fallen dabei tot um -
sondern, dass ich für den Link über 30sekunden Suchzeit hatte und erstmal alle Werbelinks,
die man nicht als solche erkennen kann, anklicken musste.

Note: Schrecklich.

Dem stimme ich zu!

Ohne JavaScript sehe ich nur eine rote Seite, ohne Werbung - aber auch ohne Downloadlink. im Source habe ich dann das gefunden:
http://blog.javalog.de/download/vmenud7/vmenud7.zip

und für die D2006 Version musste ich die heruntergeladene Datei noch in .zip umbenennen, da sie out2006.php hieß.

Mfg
FAlter

[JuliaBecks]

Immer diese Mäckerer :cheer:
Geh einfach in den "Download Archiv" http://blog.javalog.de/?page_id=20 das trifft dein Geschmack!!
Wenn da das "Design" nicht passt, dann weiß ich auch nicht! :kiss:

[FAlter]

Hi,

Zitat:

Zitat von JuliaBecks

Immer diese Mäckerer :cheer:
Geh einfach in den "Download Archiv" http://blog.javalog.de/?page_id=20 das trifft dein Geschmack!!
Wenn da das "Design" nicht passt, dann weiß ich auch nicht! :kiss:

Ja, das ist schön übersichtlich...

Am besten gleich in den ersten Beitrag rein!

Mfg
FAlter

[mdx]

Bei mir gehts unter Vista | CodeGear Delphi 2007 Enterprise

:thumb: :thumb: :thumb: Super Komponente!

[FAlter]

Hi,

noch was: Bitte die DBGrid Unit sowie dbrtl/vcldb rausnehmen (ich hab die VistaMenuPkg8.4.1.1 genommen). Dann gehts nämlich auch bei D7 Personal ;)

Mfg
FAlter

[Dezipaitor]

Zitat:

Zitat von JuliaBecks

Immer diese Mäckerer :cheer:
Geh einfach in den "Download Archiv" http://blog.javalog.de/?page_id=20 das trifft dein Geschmack!!
Wenn da das "Design" nicht passt, dann weiß ich auch nicht! :kiss:

Sorry, aber meine Kritik ist keine Meckerei, sondern der Versuch deine Seite benutzerfreundlicher zu machen. Ich meine die Seite sieht gut aus, aber das Downloadfenster ist eine 180° Wendung beim Design. Nimm es als gut gemeinten Rat!

[JuliaBecks]

Natürlich ist es ein Ansporn es besser zu machen. Die links sind einfach alt, das Download Archiv ist aktuell! Ich habe es auf dem ersten Post eingetragen. :cheers:

[MisterSonic]

Hye... ich benutz dein Menu nun schon einige Zeit... finds auch ganz i.O. soweit, allerdings ist mir heut eine kleine Merkwürdigkeit aufgefallen, habe die Mainmenu und die Popup Komponente auf meinem Hauptformular, das Popup hab ich nem ListView zugewiesen... ausserdem ich auf nem anderen Formular das Popup nem Edit-Feld zugewiesen alle haben als Style VistaOrange ...., allerdings bleibt das Popup des Editfeldes "grau" ...?

[JuliaBecks]

das klingt sehr seltsam, :shock: bist du sicher das du nichts falsch gemacht hast?
Wenn das was nicht stimmen würde, müsste überhaupt kein Style angezeigt werden.
Prüfe nochmal deine Einstellungen beim Style!

[MisterSonic]

Hye, also ich denke nich das ich da nen Fehler gemacht habe .... ich habe hier auf meine Seite mal ein paar Screenshots hochgeladen

Menu auf dem Hauptformular
Object-Instpector vom Menu auf dem Hauptformular

Menu auf dem Einstellungsformular
Object-Instpector vom Menu auf dem Einstellungsformurlar

..vielleicht hilft das ja bei der Diagnose...?

MfG patrick.

[Jens Hartmann]

Hallo zusammen,

kann mir vieleicht jemand sagen, ob ich den Download noch irgendwo finde. Die vorhanden scheine nicht mehr aktuell zu sein.

http://blog.javalog.de/?page_id=20

Danke und Gruss Jens

[s.h.a.r.k]

Die Dame scheint hier nicht mehr zu agieren: Letzte Aktivität 4. Okt 2008 18:18
Die Website geht auch nicht mehr, somit wirst du wohl eher die Mitglieder um ihre Hilfe bitten müssen -- eines vorweg: ich hab das Ding nicht ;)

PS: Oder vielleicht hilft die Torry.

[Jens Hartmann]

Also bei Torry kann ich das Ding nicht finden. Das Problem ist, meine Laptop ist heute Mittag total abgeschmiert und ich musste alles neu aufsetzen. Leider fehlt mir jetzt noch genau diese Komponente.

Vieleicht hat ja jemand sonst hier diese Kompo.

Naja, ich such mal weiter....

Gruß Jens

[s.h.a.r.k]

Alexander Gerk Email: <[e-mail]>

Kannst ja mal eine eMail hin schicken. Vielleicht hat er das Ding ja noch.

[lbccaleb]

Also ich müsste das Ding noch auf meinem alten Laptop haben. Den muss ich aber erstmal ausgraben um da nachzusehen, kann also noch ein wenig dauern oO

[lbccaleb]

Wie gesagt, ich brauch ne Weile :P
Habs aber doch noch finden können...

Als Zip angehangen!

[vergessen]

Drei Versionen auf der Festplatte gefunden:

VMenuD5.zip von 2008-03-28 (für Delphi 5)
VMenuD7.zip von 2008-03-27 (für Delphi 7)
VistaMenuPkg8.4.1.1.zip von 2008-04-16, da ist auch noch ein VistaPopUpMenu.pas mit dabei.

{------------------------------------------------------------------------------

"CUTSOMIZED VISTA MENU COMPONENT V.8.4.1.1"
including "Mamba" & "MacMenu"
Copyright (C) 2008 Author: Alexander Gerk Email: <[e-mail]>

This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>.

Also,
thanx for other GNU Parts of Project like:
"function FillGradient"

-------------------------------------------------------------------------------}

K.A. für welche Delphi-Version das VistaMenuPkg8.4.1.1.zip ist.

mfg