Tags:    delphi

Beskrivelse

I denne her artikel vil du kunne lære at skabe bedre look i dine programmer, ved brug af nogle specielle komponenter. Mange har spurgt mig om hvordan jeg har skabt sådan noget look mine programmer, og for at ikke hele tiden svare dem, så kan de bare læse denne artikel.
Jeg har det sådan at hvis et program ikke har et godt look, så er det ikke så rart at arbejde i. Men nogle har det modsat.
Artiklens punkter er:
1. Downloade komponenter
2. Installation af komponenterne
3. Program med et godt look
4. Lidt kode
5. Problemmer
6. Slut ?
Artiklen er ikke ret lang, men alligvel håber jeg at den er brugelig.

1. Downloade komponenter

Vi starter med at downloade de komponenter vi skal bruge, for at skabe et godt look. Vi skal hente to komponenter ved navn : TB2K og TBX.
TB2K:
http://www.jrsoftware.org/files/site1/tb2k.zip
TBX:
http://www.g32.org/files/tbx/tbx-2_0-beta3.zip
Hent de 2 .zip filer og pak dem ud i *:\\tb2k og *:\\tbx (* betyder din harddisk).

2. Installation af komponenterne

Nu hvor vi har downloadet komponenterne, skal vi installere dem. Bare gør det jeg skriver så skal det ikke gå galt.
1. Start med at gå ind i *:\\tbx\\Diffs mappen.
2. Kopier følgende 3 filer: _cvs_patch-2_0_16.bat, _cvs_patch-2_0_16.diff og patch.exe.
3. Gå ind i *:\\t2bk\\source og sæt de 3 filer ind dér. Kør _cvs_patch-2_0_16.bat, da den skal udpakke nogle filer ud.
4. Start delphi, gå ind i menuen Tools - Environment Options - klik nu på Library fanen og derefter klikker du på knappen hvor der står "..." udfor Librarypath.
5. Nu ser du et felt og ved siden af den felt er der en knap hvor der står "..." klik på det. Find *:\\tb2k\\source og klik på OK.
6. Klik nu på Add, så den kan Add'e sourcen af TB2K.
7. klik på OK og OK igen.
8. Gå ind i File - Open.
9. Find *:\\tb2k\\packages\\tb2kdsgn_dX.dpk og åbn den (dX betyder at du skal finde det rette package til din Delphi version, dvs. har du Delphi 6 så åbner du tb2kdsgn_d6.dpk)
10. Klik på Install og TB2K burde nu være installeret.

Du er ikke færdig. Du mangler stadig at installere TBX. Her skal du også bare følge punkterne, så skal det nok gå godt igen
1. Gå ind i menuen Tools - Environment Options - klik nu på Library fanen og derefter klikker du på knappen hvor der står "..." udfor Librarypath.
2. Nu ser du et felt og ved siden af den felt er der en knap hvor der står "..." klik på det. Find *:\\tbx\\ og klik på OK.
3. Klik nu på Add, så den kan Add'e sourcen af TBX.
4. klik på OK og OK igen.
5. Gå ind i File - Open
6. Find nu *:\\tbx\\packages\\tbxdsgn_dX.dpk og åbn den (dX fordi at du skal finde det rette package til din Delphi version, dvs. har du Delphi 6 så åbner du tbxdsgn_d6.dpk)
6. Klik på install og TBX burde nu være installeret.
7. Restart delphi.

Jep, nu har du installeret de 2 komponenter. Og nu kan vi komme videre. Nu skal vi nemlig lave et program med et godt look ;-)

3. Program med et godt look

Nu kommer det sjove så. Vi skal jo lave et program med et godt look. Start med at åbne delphi hvis du ikke allerede har det åben. Hvis du så kigger, så kan du se at der er 1 ny fane tilføjet. Det hedder Toolbar2000. I den fane ligger alle de komponenter vi har installeret.

Gå nu ind i File - New - Application for at starte et nye projekt / applikation. Der burde nu være en tom form. Læg en TBDock på din form, ved at gå ind i fanen Toolbar2000 (som vist foroven) og dobbel klikke på den første komponent (TBDock). Den indstiller sig automatisk til top, hvis du gerne vil ændre det skal du gøre det ved at ændre i property'en Position.
Oven på TBDock1 lægger du en TBXToolbar. Ændre disse property:
Name: Bar
Menubar: True
Det burde nu gerne se sådan her ud:

Dobbel klik på Bar så der kommer en form frem. Der nu 2 rækker i den form. Klik på den anden knap i anden række. Giv den et caption: &Filer og giv den et navn (name): Filer. Klik nu på Filer i boxen hvor der står (Root) øverst. Derefter klikker du en gang på den første knap i anden række for at tilføje en knap. Ændre den properties:
Caption: &Afslut
Name: Afslut

4. Lidt kode

Dobbel klik på Afslut knappen og skriv denne her kode:

procedure TForm1.AfslutClick(Sender: TObject);
begin
 close;
end;

Close; gør ikke andet end at lukke programmet. Lige nu skal vi vælge et theme som vi skal bruge i vores lille "good looking" program. I din uses tilføjer du: TBXTristan2Theme, så din uses ser sådan her ud:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TBXTristan2Theme, TBX, TB2Item, TB2Dock, TB2Toolbar;

Så er themet klar til brug. Du skal bare bruge lidt kode. I din form OnCreate skriver du følgende:

procedure TForm1.FormCreate(Sender: TObject);
begin
 TBXSetTheme('Tristan2');
end;

TBXSetTheme sætter Tristan2 Themet til. Prøv nu at compile din project og se hvordan din menu ser ud. Klik på Filer Det ser godt ud ik' ?


Det ser endnu bedre ud hvis du brugte ikoner og sådan noget.
Prøv også med nogle andre themes. Add disse themes i din Uses:

TBXStripesTheme, TBXOfficeXPTheme, TBXAcroTheme, TBXMonaiTheme, 
TBXMonaiXPTheme, TBXRomaTheme, TBXOffice11XPTheme, TBXOfficeKTheme,
TBXOffice11AdaptiveTheme, TBXNexosTheme, TBXNexos2Theme, TBXNexos3Theme, TBXOfficeCTheme, TBXTristanTheme

Brug denne her kode til at sætte themesne:

TBXSetTheme('DINTHEME');

I DINTHEME skal du bare fjerne de 3 første bogstaver og de 5 sidste bogstaver fra en theme, fx. hvis TBXOfficeXPTheme, så bliver det til OfficeXP. Og det skriver du istedet for DINTHEME. Altså du fjerner bare TBX og Theme fra et Theme. (håber i forstår)

5. Problemmer

Hvis du får problemmer med det ang. Tristan2 themet, så ved jeg måske hvordan det løses.
Hvis ikke Tristan2 themet findes skal du ind i en hjemmeside og hente den.
Gå ind i http://www.rmklever.com/delphitbx.html og hent themesne. Der er mange dejlig themes.
Det er nok den eneste irriterende fejl man kan få.
Ellers hvis du vil vide mere om komponenterne, så kig i demoen som findes i *:\\tbx\\demo. Jeg kan sige jer at demoen er max nice, og meget brugelig. ;-)

6. Slut ?

Hmm ja.. Jeg regner med at komme med en PART 2 af denne artikel hvor vi kigge lidt mere på de andre komponenter. Men dette er ikke sikkert.
Håber at i kunne bruge denne her artikel.. Og hvis i skal bruge for hjælp, dvs. hvis i får fejl el. lign. så skriver i da bare i Delphi forummet, så skal jeg nok svare, hvis jeg kan.

Hvad synes du om denne artikel? Giv din mening til kende ved at stemme via pilene til venstre og/eller lægge en kommentar herunder.

Del også gerne artiklen med dine Facebook venner:  

Karma barometer (30 dage)

IT jobs | Kontakt | Om Udvikleren.dk | Om karma | IT nyheds arkiv | Annoncering

X