Menu

Hvordan kan jeg få en menu lige som den her

http://knsoftware.frac.dk/billeder/menu/office.jpg

lige en ting mere, man kan trykke ned på toppen af den hvor der står introduktion og så kommer der en liste ned med de forskellige sider man har.

Mvh.
Kasper Nielsen

Kan nok ikke lige kode en men du skal bruge noget photoshop noget til noget grafik og så noget javascript til at kode menu'en og "drop down" punkterne.


Hilsen k-roy
(christian bekker A.)
www.k-roy.h4f.dk
-- Problemer er til for at blive løst --

Den 19-03-04 20:31 skrev Christian Bekker .A følgende:
-----------------------------------------------------------------------------
Hvordan kan jeg få en menu lige som den her

http://knsoftware.frac.dk/billeder/menu/office.jpg

lige en ting mere, man kan trykke ned på toppen af den hvor der står introduktion og så kommer der en liste ned med de forskellige sider man har.

Mvh.
Kasper Nielsen

Kan nok ikke lige kode en men du skal bruge noget photoshop noget til noget grafik og så noget javascript til at kode menu'en og "drop down" punkterne.


Hilsen k-roy
(christian bekker A.)
www.k-roy.h4f.dk
-- Problemer er til for at blive løst --
-----------------------------------------------------------------------------
Det vil jo tage 100 år om at lave, findes der ikke et komponent eller noget lignende?

Mvh.
Kasper Nielsen

Vis du vil have en overskiftning mellem to farver, kan jeg hjælpe.
Denne kode er godt nok lavet til baggrund til en form. Så vis du vil havde det på en image eller noget andet må du rode med koden.

Her er den:


procedure TForm1.FormPaint(Sender: TObject);
var
row, ht: Integer;
begin
// If using this method on a resizeable form you should call refresh in the
// OnResize event!

if not (Sender is TCustomForm) then exit;

ht := ((Sender as TCustomForm).ClientHeight + MAXBYTE) div 256;

for Row := 0 to MAXBYTE do
begin
with (Sender as TForm).Canvas do
begin
// R G B
// ex: RGB(255 , 255 - Row , Row);
// RGB(row div 3 + 64, row div 2 , row);
// RGB(0 , (255-row) div 2, 255 - row);
Brush.Color := RGB(0 , row div 2 , row);
FillRect(Rect(0,
Row * Ht,
(Sender as TCustomForm).ClientWidth,
(Row + 1) * Ht));
end;
end;
end;




HELD OG LYKKE!!!



---------------------------Theis F. Hinz (Shafh)-----
----------------------------Theisf@stofanet.dk------


I Fight For The FUTUR, ElLEr SåDaN NoGEt...............

Den 19-03-04 21:57 skrev Theis følgende:
-----------------------------------------------------------------------------
Vis du vil have en overskiftning mellem to farver, kan jeg hjælpe.
Denne kode er godt nok lavet til baggrund til en form. Så vis du vil havde det på en image eller noget andet må du rode med koden.

Her er den:


procedure TForm1.FormPaint(Sender: TObject);
var
row, ht: Integer;
begin
// If using this method on a resizeable form you should call refresh in the
// OnResize event!

if not (Sender is TCustomForm) then exit;

ht := ((Sender as TCustomForm).ClientHeight + MAXBYTE) div 256;

for Row := 0 to MAXBYTE do
begin
with (Sender as TForm).Canvas do
begin
// R G B
// ex: RGB(255 , 255 - Row , Row);
// RGB(row div 3 + 64, row div 2 , row);
// RGB(0 , (255-row) div 2, 255 - row);
Brush.Color := RGB(0 , row div 2 , row);
FillRect(Rect(0,
Row * Ht,
(Sender as TCustomForm).ClientWidth,
(Row + 1) * Ht));
end;
end;
end;




HELD OG LYKKE!!!



---------------------------Theis F. Hinz (Shafh)-----
----------------------------Theisf@stofanet.dk------


I Fight For The FUTUR, ElLEr SåDaN NoGEt...............
-----------------------------------------------------------------------------
Det er ikke det! Jeg vil gerne have et komponent som kan lave det.

Mvh.
Kasper Nielsen

Hvordan kan jeg få en menu lige som den her

http://knsoftware.frac.dk/billeder/menu/office.jpg

lige en ting mere, man kan trykke ned på toppen af den hvor der står introduktion og så kommer der en liste ned med de forskellige sider man har.

Mvh.
Kasper Nielsen

Du kan altid bruge komponenterne TBX + Toolbar2000 og Design eXperience sammen, som jo skaber noget i det du leder efter.

Har lavet et eksempel som du kan se her:
www.alawork.dk/officeeksempel.jpg
Du kan selvf. ændre baggrunds farverne mm.

Hvis jeg havde lyst kunne jeg faktisk godt skabe præcist som Microsft Office har og det kan du også med de komponenter.

Hvis du er interesseret så kan du hente dem her:
TBX: http://www.g32.org/files/tbx/tbx-2_0.zip
Toolbar2000 (TB2K): http://www.jrsoftware.org/tb2kdl.php
Design eXperience 2: http://www.delphipages.com/result.cfm?ID=2951

Har du problemmer med at installere TBX og Toolbar 2000 så følg min artikel godt og grundigt, her: http://www.udvikleren.dk/article.php?aid=153

Jeg håber du kan bruge mit svar.

Med venlig hilsen
Armen L.A.
EvoxSoft

[Redigeret d. 21/03-04 19:31:08 af Armen L.A.]

Hey tak for hjælpen det ser godt ud :-D
Men kan ikke komme ind på linket til tbx

Mvh.
Kasper Nielsen

[Redigeret d. 21/03-04 13:24:58 af Kasper Nielsen]

Hey tak for hjælpen det ser godt ud :-D
Men kan ikke komme ind på linket til tbx

ahh undskyld det var : http://www.g32.org/files/tbx/tbx-2_0.zip

Mvh.
Armen L.A.
EvoxSoft

Den 21-03-04 19:30 skrev Armen L.A. følgende:
-----------------------------------------------------------------------------
Hey tak for hjælpen det ser godt ud :-D
Men kan ikke komme ind på linket til tbx


ahh undskyld det var : http://www.g32.org/files/tbx/tbx-2_0.zip

Mvh.
Armen L.A.
EvoxSoft
-----------------------------------------------------------------------------
Ok, tak

Mvh.
Kasper Nielsen

Den 19-03-04 21:57 skrev Theis følgende:
-----------------------------------------------------------------------------
Vis du vil have en overskiftning mellem to farver, kan jeg hjælpe.
Denne kode er godt nok lavet til baggrund til en form. Så vis du vil havde det på en image eller noget andet må du rode med koden.

Her er den:


procedure TForm1.FormPaint(Sender: TObject);
var
row, ht: Integer;
begin
// If using this method on a resizeable form you should call refresh in the
// OnResize event!

if not (Sender is TCustomForm) then exit;

ht := ((Sender as TCustomForm).ClientHeight + MAXBYTE) div 256;

for Row := 0 to MAXBYTE do
begin
with (Sender as TForm).Canvas do
begin
// R G B
// ex: RGB(255 , 255 - Row , Row);
// RGB(row div 3 + 64, row div 2 , row);
// RGB(0 , (255-row) div 2, 255 - row);
Brush.Color := RGB(0 , row div 2 , row);
FillRect(Rect(0,
Row * Ht,
(Sender as TCustomForm).ClientWidth,
(Row + 1) * Ht));
end;
end;
end;




HELD OG LYKKE!!!



---------------------------Theis F. Hinz (Shafh)-----
----------------------------Theisf@stofanet.dk------


I Fight For The FUTUR, ElLEr SåDaN NoGEt...............
-----------------------------------------------------------------------------
Det er ikke det! Jeg vil gerne have et komponent som kan lave det.

Mvh.
Kasper Nielsen

Der kan man se. Folk skal beskrive hvad de vil med det.
Næste gang du laver en forum så spør eks. mere sådan:

Hvordan kan jeg lave dens funktioner. Altså at jeg kan trykke øvers.......................




Men du kunne jo bare skrive i kode at vid der trykkes på denne label skal den vise en label. Og vis du trykker igen skal usynligøre labelen (visible)

---------------------------Theis F. Hinz (Shafh)-----
----------------------------Theisf@stofanet.dk------


I Fight For The FUTUR, ElLEr SåDaN NoGEt...............

Jeg har vist et billede af det