Hallo,
ich will eine kleine DOS-Emulation schreiben. Hab eine Schriftart gefunden, die so aussieht, das Formular schwarz gemacht und eine Prozedur geschrieben, die mit Hilfe von Canvas.TextOut Schrift platzieren soll.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
| procedure TForm1.Ausgabe(x,y: Integer; Text: String; Vordergrundfarbe, Hintergrundfarbe: TColor);
begin
Form1.Canvas.Brush.Color := Hintergrundfarbe;
Form1.Font.Color := Vordergrundfarbe;
Form1.Canvas.TextOut(x*8,y*16,Text);
end; |
Wenn ich die Prozedur nun von einem Button aus aufrufe, geht es beim ersten Mal nicht - erst wenn man ein zweites Mal draufdrückt... Woran kann das liegen? (Also Wenn man das Ändern der Vordergrundfarbe auskommentiert, geht es - aber dann ist ja die Prozedur nur halb so gut)
Und noch was: Wohin kann ich denn den Aufruf legen, damit er, sobald das Programm startet, ausgeführt wird? Alles bis "OnActivate" ist nämlich scheinbar zu früh...
Viele Grüße
Alex
Calculon
danke... *Halben Haken ans Thema mach*