Delphi

Úgy látszik, hogy senki sem olvassa ezt a topic-ot <#wilting><#vigyor2>
Sebaj, közben sikerült megoldanom a problémát, adok egy kis ízelítõt:

type
TMainMenuData = record
MDLevel: Integer;
MDCaption: string;
MDName: string;
MDShortCut: string;
MDImageIndex: Integer;
......

const
fMenuData: Array<0..53> of TMainMenuData = (
(MDLevel: 0; MDCaption: 'Fájl'; MDName: 'm0'; MDShortCut: ''; MDImageIndex: -1; MDId: ''),
(MDLevel: 1; MDCaption: 'Új'; MDName: 'm1'; MDShortCut: ''; MDImageIndex: -1; MDId: ''),
(MDLevel: 2; MDCaption: 'TXT'; MDName: 'm2'; MDShortCut: ''; MDImageIndex: -1; MDId: 'CloseProgram'),
.....

Ha valakit érdekel a többi, nyugodtan jelentkezzen.
Csá

Hello.
Olyan gondom van, hogy belsõ valami record-ból felépítve kellene dinamikussan elkészíteni e TMainMenu-t?

A record valahogy így nézne ki:

type
TTMainMenuItems = record
TTMCaption: String<100>;
TTMName: String<2>;
TTMChildId: Integer;
TTMChild: Boolean;
end;

const
fMainMenuItems: Array<0..1> of TTMainMenuItems = (
(TTMCaption: 'File'; TTMName: 'm'; TTMChildId: 0; TTMChild: False),
(TTMCaption: 'Open'; TTMName: 'mi'; TTMChildId: 0; TTMChild: True)
);

Legutóbb pedig ilyennel próbálkoztam:

function AddMMNode(Parent: TMenuItem; Caption, Name: String): TMenuItem;
var
Node: TMenuItem;
begin
Node := TMenuItem.Create(Parent);
Node.Caption := Caption;
Node.Name := Name;
Result := Node;
if Parent <> nil then
Parent.Add(Node)
else
form_cc.mm_cc.Items.Add(Node);
end;

procedure Tform_cc.createMainMenuWidget;
var
Level0, Level1, Level2: TMenuItem;
begin
mm_cc.Items.Clear;

Level0 := AddMMNode(nil, 'File', 'm0');
Level1 := AddMMNode(Level0, 'Open', 'm1');
AddMMNode(Level1, 'File 1', 'm2');
Level1 := AddMMNode(Level0, 'Close', 'm3');
end;

Hogyan lehetne megoldani az almenüket? pl.:
hasonló struktúra:
0, 'File'
0, 0, 'Open'
0, 0, 0, 'Doc'
0, 0, 1, 'Csv'
0, 1, 'Close'

Már láttam egy XML-es változatott valami hasonló kellene a fenti record
használatával.
Ha esetleg valakinek lenne ötlette, léci szóljon.
Elõre is köszi

Ja, és ezt tényleg le lehetne zárni/törölni, tök felesleges két ugyanolyan nevû topik.

Konkrétan pl. a mail, ftp és a többi "gyári" komponens valójában az Indy komponenscsomag része és ingyen letölthetõ tõlük a mindenkori teljes változat. 😊

OKOK én még noob vagyok 😊

És a topic-ról sem szóltam semmit akkor 😊)

Personal Edition-nak hívják, full tudású nem idõkorlátos, de tényleg sok komponens hiányzik belõle (pl. FTP,Mail,stb-stb)
amik tényleg nehezítenek, de sok ingyenes komponenst lehet mindehonnan letölteni, amik sokszor könnyebben kezelhetõk/többet tudnak mint a gyári
mindenesetre elsõ nekifutásnak elég a Personal

amúgy ez még 2001-ben nyílt 😛

Ha jól sejtem akkor azok rendessen ki vannak 'belezve' nem?
Úgyértem, hogy az inkább demo anyag mintsem teljesjogú delphi 😊

Ha tévednék sorry.
-amúgy van már 1 delphi topic 😉

Köszönöm 😊

borland.com otthoni használatra ingyenes

Bocs, h zavarkolódok, de nem tudjátok honnan tudom letölteni ingyen a Delphi 6-ot? 😞( Sürgõs lenne. 😞(

Esetleg egy Delphi 6 personal Serial+auth. key nincs valakinek ?
Mert nem akar megjönni a kód :-(
DEx-

Írjál be be végig 1-eseket és kész. Elfogadja. Ha meg nem akkor menj astalavista.box.sk címre és keress rá.

Tölts le a Delphi 6 Personal-t, csak regisztráltatnod kell magad a www.borland.com -on,
és ne adj Isten lesz egy legális progid.