Turbo Pascal Style -

[DarkSummer]

Was für Befehle Gibt es um in Turbo Pascal ein program mit

uses wincrt;

farbiger bzw schöner zu gestalten?

thx 4 help

 

[Dario Linsky]

vielleicht hilft dir einer von den folgenden links weiter:
http://programmierer-board.de/phpBB2/viewtopic.php?t=15725
http://programmierer-board.de/phpBB2/viewtopic.php?t=13636

ansonsten kannst du dir mal den quelltext von einem schulprogramm namens "niki" (dieses roboter-teil) ansehen.

 

[DarkSummer]

eine frage:

ich hab das jetzt so gemacht

procedure BgColor(Color:Longint);
var hWnd, hDC: LongInt;
begin
  hWnd := FindWindow(nil, WindowTitle);
  hDC := GetDC(hWnd);
  SetBkColor(hDC,Color);
end;

und dann

BgColor(RGB(255,100,255));

aber irgendwie verändert der die bgfarbe nicht

 

[DarkSummer]

hmm hilfe ich würd auch gern wissen wie ich die textfarbe ändern kann ohne one textout mit coords angeben zu müssen

 

[DarkSummer]

büdde irgendwer !!!!