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. Note: Alt i artiklen laves i Delphi 6, så seriøse fejl kan opstå hvis du
bruger en anden version af Delphi.
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/ (...)
TBX:
http://www.g32.org/ (...)
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, kan vi installere dem. Bare gør det jeg skriver så skal det ikke gå så 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.
3. Program med et godt look
Nu kommer det sjove så. Vi skal lave et program med et godt look. Start med at åbne delphi hvis du ikke allerede har det åbn. Hvis du så kigger, så kan du se at der er én ny fane tilføjet. Det hedder Toolbar2000. I den fane ligger alle de komponenter vi har installeret. (
http://www.udvikleren.dk/images/articleimages_temp/81.gif)
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 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
Den burden nu se ud som det her:
http://www.udvikleren.dk/images/articleimages_temp/82.gif
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
http://www.udvikleren.dk/images/articleimages_temp/85.gif
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 dit project og se hvordan din menu ser ud. Klik på Filer :) Det ser godt ud ik' ?
http://www.udvikleren.dk/images/articleimages_temp/86.gif
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;
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 TBX og Theme fra en theme, fx. hvis TBXOfficeXPTheme, så bliver det til OfficeXP.
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/ (...) 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. ;-)
(Spørg her på eksperten.dk for andet hjælp)
6. Slut ?
Hmm ja desværre.
Jeg håber sandelig at i kunne bruge denne her artikel. Hvis ikke i kunne bruge artiklen til noget, kan jeg desværre ikke gøre noget. Til sidst vil jeg sige held og lykke med dine programmer og få endelig brugt de komponenter :-)
