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
Hej igen.
Du skal indsætte en PrintDialog.
Derefter dobbeltklikker du på din knap, og skrive:
Fold kodeboks ind/udKode 

Det udskrive, det som står i en memo.
Og i denne samhæng, er det memo1.
Så hvis din memo hedder noget andet, skal du lige udskifte den med, navnet.
Hvis du har en richedit istedet for en memo, skal du selvfølgelig udskifte memo1 med richedit1 :)
Med Venlig Hilsen: CHadi
http://chadi.h4f.dk

[Redigeret d. 17/06-03 22:09:46 af CHadi]

[Redigeret d. 17/06-03 22:13:14 af CHadi]



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 fontdialog1.execute then
memo1.font := fontdialog1.font;

skriver du ved en knap der hedder format eller tekst eller lign den som åbner din fontdialog

den ændrede font kommer med men ikke koden til at ændre font hvis det er det du mener

[Redigeret d. 18/06-03 16:13:38 af BananJoe]



Jeg kan svarer på tredje spørgsmål:
1.Tryk på Formen
2.I object Inspectoren, under fanen properties, vælger du color. Der kan du vælge hvad for en farve din form skal være. :D


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



Er det det samme med en label osv. ?



Ja det må det være.
Med Venlig Hilsen: CHadi
http://chadi.h4f.dk



DU har fået dine 30 points så skal jeg bare ha hjælp til de 2 andre ;)



Tak ;) Jeg vil prøve at se, på de andre spørgsmål

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



procedure TPrintMemoForm.UdskrivMenuClick(Sender: TObject);
var
PrintFil: TextFile;
I: Integer;
begin
if PrintDialog.Execute then
begin
try
AssignPrn(PrintFil);
ReWrite(PrintFil);
Printer.Canvas.Font := Memo.Font;
for I := 0 to Memo.Lines.Count - 1 do
WriteLn(PrintFil, Memo.Lines[I]);
finally
CloseFile(PrintFil);
end;
end;
end;


Det har jeg fundet.. Hvordan skrives det ind ??



Tror du ikke, du skal bruge en PrintDialog?

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



Tror du ikke, du skal bruge en PrintDialog?

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

JO men virker stadig ikke :S



<< < 123 > >>
t