3 spørgsmål

Tags:    delphi

<< < 123 > >>
30 points til hver rigtigt svar :P

1. :
jeg har lavet en teksteditor efter en tut her på siden..
Hvordan laver jeg så man kan udskrive en side. Altså hvordan er proceduren for deT??

2. :
Hvordan laver jeg så man kan skifte farve og skrifttype på teksten...

3. :
Hvordan ændre jeg bg på selve programmet..

Håber nogen vil hjælpe med alle 3 :P



22 svar postet i denne tråd vises herunder
2 indlæg har modtaget i alt 5 karma
Sorter efter stemmer Sorter efter dato
svar til spørgsmål nr2

du laver en font dialog.

så skriver du det her kode

memo1.font := fontdialog1.font;

eller richedit1.font := fontdialog1.font;

det var for at gøre det ved runtime hvis du ikke vil have at dine brugere skal kunne ændre font
finder du bare font/name i object inspectoreren og skriver navnet på den font du vil bruge



svar til spørgsmål nr2

du laver en font dialog.

så skriver du det her kode

memo1.font := fontdialog1.font;

eller richedit1.font := fontdialog1.font;

det var for at gøre det ved runtime hvis du ikke vil have at dine brugere skal kunne ændre font
finder du bare font/name i object inspectoreren og skriver navnet på den font du vil bruge

Hvor skal jeg skrive koden? i memo proceduren (eller sådanne noget) ??
Og komemr dem med når man udskriveR??



if Prindialog1.Execute then
memo1.Print();

Printdialog1
er det navnet på knappen der skal stå der (Udskriv1)

??
Får denne fejl:
[Error] Unit1.pas(77): Undeclared identifier: 'Print'

og koden er:


procedure TForm1.Udskriv1Click(Sender: TObject);
begin
if Printdialog1.Execute then
memo1.Print();

end;



[Redigeret d. 19/06-03 00:13:07 af Rasmus Jørgensen]

[Redigeret d. 19/06-03 00:25:37 af Rasmus Jørgensen]

[Redigeret d. 19/06-03 00:33:37 af Rasmus Jørgensen]



if Prindialog1.Execute then
memo1.Print();

Får denne fejl:
[Error] Unit1.pas(77): Undeclared identifier: 'Print'


Skift din TMemo ud med en TRichEdit (findes på Win32 fanebladet) og tilpas navne osv. og så burde det virke. TMemo er en temmelig begrænset komponent der kun understøtter de allermest basale ting - TRichEdit kan meget mere.



if Prindialog1.Execute then
memo1.Print();

Får denne fejl:
[Error] Unit1.pas(77): Undeclared identifier: 'Print'


ja byt din memo ud og skriv denne kode istedetfor

if Prindialog1.Execute then
richedit1.Print(1); //husk den lille 1

[Redigeret d. 19/06-03 15:08:27 af BananJoe]



Fejlen var at jeg ikke havde tilføjet printeren men nu har jeg lavet det på en anden måde, men nu kommer det med skrifttype.. Hvordan laver jeg det??



Først finder du Fontdialog, og sætter den på din form, et eller andet sted.
LAv så en toolbar, og lav en knap. Dobbelt klik på knappen, og skriv:
Fold kodeboks ind/udKode 

i knappens procedure.
Det kræver selvfølgelig at du bruger en memo.
Hvis det er en richtedit du bruger, så skal du skrive denne kode i knappen procedure
Fold kodeboks ind/udKode 

Med Venlig Hilsen: CHadi
http://chadi.h4f.dk



Ok, det var faktisk nemt :P
Lige en sidste ting..
Har set man kan lave scroll bars.. Men hvordan laver man dem så de virker?? :D



Slettet har fundet ud af det selv ;)

så er der det sidste så får i points :P


Når jeg åbner mit program skal den helst åbne det med skrifttypen arial og 12 i størelse (eller hvad der nu er normalt) Er koden så ikke noget lignende ??

memo1.font := enellerandenfont.font;

Min procedure er:

procedure TForm1.Memo1Change(Sender: TObject);
begin

end;





Jeg mener du kan indstille standardt skriftypen i object inspectoren. Prøv kig lidt på den. Altså for din memo.
Med Venlig Hilsen: CHadi
http://chadi.h4f.dk



<< < 123 > >>
t