Nem spørgesmålllll mennnnnnnn hjælpppppp

er der slette ikke nogen der svare

1. Hvad vil du printe fra? (memo, richedit?...)
Du kan fx printe nemt fra en richedit, ved hjælp af dette code på en button onclick:

procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.Print(\'Printer text*\');
end;

* det er bare det som udskrivningen hedder - ikke havd der bliver printet.


2. Du mener vel at lave en splash screen.
Hvis du gør, så er der noget info om det her:
http://delphi.about.com/library/weekly/aa030999.htm?terms=Splash

Hvis du mangler mere hjælp så bare spørg ;)
Dennis

Jo, hvad er det der indeholder teksten ?? Er det en edit, memo el. rtf-fidus ???

1. Det kommer an på hvad du vil skrive ud, men du kan evt. kigge lidt Printer Obj, eller på QuickReport

2. Det laver du ved at lave en form som du vil vise, og så manuelt show\'e den i din dpr fil inden dit program laver andet, når det er klart lukker du den så igen, der er eks. på dette i Delphi/Demos bib. ( søg på SplasScreen )

/Martin

hvad er det du skal udskrive ?? Hvordan har du det ? I en memo eller hvad ?

Det med Splash-screen, er simpelt (dog uprofessionelt når programmet alligevel ikke tager tid at starte).

Du trykker new Form, og så laver du den som du vil have den med billede eller hvad du nu vil have derpå.

Så går du tilbage til din main-form, og i object inspectoren vælger du events, og dobbeltklikker på onActivate. og skriver følgende

Form2.ShowModal;

og så går du tilbage til din splash-form, og indsætter en timer, som du sætter til den tid du vil have splashen skal vises. Så dobbeltklikker du på timeren og skriver:

Form2.close;


Så skulle det gerne virke...


/SpEeDy

Til punkt 2 kan gå ind på http://www.undu.com/ og ind under artikler og søge på splash .. så finder du nogle artikler om splashscreen .. også i i alle mulige former !1

procedure TOrdreListeForm.btnPrintClick(Sender: TObject);
begin
  Print;
end;

Du kan kigge i Demos/db/MastApp der er et eks. på en splash screen

Når du gerne vil preloade de forskellige forms skal du sørge for Application.CreateForm(TForm1, Form1); bliver kørt imens splashscreen bliver vist.

Så opretter den alle de forms inden programmet er kørende ..

F.eks. bruger jeg dette i et program ..

  Application.Initialize;
  Application.Title := \'WHATEVER\';

  SplashForm := TSplashForm.Create(Nil);
  SplashForm.Show;
  SplashForm.Update; // To call SplashForm.FormPaint(SplashForm);

  SplashForm.Label2.Caption:=\'Indlæser vinduer ...\';
  SplashForm.Gauge1.Progress := 33;
  SplashForm.Refresh;
//  Sleep(500);
  Application.CreateForm(THovedForm, HovedForm);
  SplashForm.Label2.Caption:=\'Indlæser tabeller ...\';
  SplashForm.Gauge1.Progress := 66;
  SplashForm.Refresh;
//  Sleep(500);
  Application.CreateForm(THovedData, HovedData);

  SplashForm.Label2.Caption:=\'\';
  SplashForm.Gauge1.Progress := 100;
  SplashForm.Refresh;
//  Sleep(500);

  SplashForm.Hide;
  SplashForm.Release;

  Application.Run;

til at indlæse hovedformen og mine tabeller ...

procedure TOrdreListeForm.btnPrintClick(Sender: TObject);
begin
  Printer.BeginDoc;
  Printer.NewPage;
  Printer.Canvas.TextOut(100,100, \'Dette er en lille tekst\');
  Printer.EndDoc;
end;

Du kan også gøre det sådan:

procedure TOrdreListeForm.btnPrintClick(Sender: TObject);
var
  MyFile: TextFile;
begin
  AssignPrn(MyFile);
  Rewrite(MyFile);
  Writeln(MyFile, \'Dette er også lidt tekst.\');
  Writeln(MyFile, \'En linie til.\');
  Writeln(MyFile, \'og en mere\');
  System.CloseFile(MyFile);
end;

Fedt med en splash screen der kører Modal, så er der ikke noget andet der kører !!!!

neoo >> Hvorfor pokker får speedy alle 200 point????

Du spørger både om en splash og hvordan man skriver til printeren. Han svarer kun på den ene ting.

Ja det er da for latterligt ..

Efterhånden spørger jeg mig selv \"hvorfor gidder du overhovedet bruge din tid på at hjælpe andre på Eksperten\".
Man føler sig efterhånden til grin hveer gang man besvarer et spørgsmål. Meget ofte afvise rigtige svar til fordel for halve, eller direkte forkerte svar. Ofte snupper spørgeren selv alle point uden at efterlade en kommentart. Der er kun 50% chance for at spørgsmålet nogen siden lukkes :o(

Man må sige det lugter kraftigt af snyd !!!

hej hov! jeg er lige kommet hjem fra weekend, og ser nu at jeg har fået alle de 200 points !?!

Jeg er nu i vildrede med hensyn til hvem jeg skal give point\'s til ? Hjælp mig !

Jeg har omkring 4000 points, så jeg har INGEN interesse i SNYD!

Så derfor håber jeg på hjælp og forståelse!

Hvad gør jeg ?

/SpEeDy

Så må det jo være Neoo, der har et problem, men du kan jo dele ligeligt mellem svarene *S*

ok, opretter lige et spm.

/SpEeDy

Til alle:
se her, og vi deler points.
http://www.eksperten.dk/spm/112717