Turbo Pascal Style -

DarkSummer

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

uses wincrt;

farbiger bzw schöner zu gestalten?

thx 4 help
 

DarkSummer

Erfahrenes Mitglied
eine frage:

ich hab das jetzt so gemacht

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

und dann

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

aber irgendwie verändert der die bgfarbe nicht
 

DarkSummer

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