TextColor für Delphi

[Neutral General]

Hi,

Wenn man in Delphi eine Konsolenanwendung macht, dann programmiert man ja praktisch Pascal (wie auch mit VCL^^).
In TurboPascal kann man Text einfärben mit TextColor(Farbe). Den Befehl gibts in Delphi aber irgendwie nicht mehr...
Die ganzen Sachen mit TextColor etc steht in Turbo-Pascal in der Unit crt.
Ich wollte jetzt die Pascal Unit in ne Delphi Unit umwandeln um die Sachen wie TextColor nutzen zu können.
Die crt Unit sieht so aus:

Delphi-Quellcode:

{*******************************************************}
{                                                       }
{       Turbo Pascal Version 7.0                        }
{       CRT Interface Unit                              }
{                                                       }
{       Copyright (C) 1988,92 Borland International     }
{                                                       }
{*******************************************************}

unit Crt;

{$D-,I-,S-}

interface

const

{ CRT modes }

  BW40          = 0;            { 40x25 B/W on Color Adapter }
  CO40          = 1;            { 40x25 Color on Color Adapter }
  BW80          = 2;            { 80x25 B/W on Color Adapter }
  CO80          = 3;            { 80x25 Color on Color Adapter }
  Mono          = 7;            { 80x25 on Monochrome Adapter }
  Font8x8       = 256;          { Add-in for ROM font }

{ Mode constants for 3.0 compatibility }

  C40           = CO40;
  C80           = CO80;

{ Foreground and background color constants }

  Black         = 0;
  Blue          = 1;
  Green         = 2;
  Cyan          = 3;
  Red           = 4;
  Magenta       = 5;
  Brown         = 6;
  LightGray     = 7;

{ Foreground color constants }

  DarkGray      = 8;
  LightBlue     = 9;
  LightGreen    = 10;
  LightCyan     = 11;
  LightRed      = 12;
  LightMagenta  = 13;
  Yellow        = 14;
  White         = 15;

{ Add-in for blinking }

  Blink         = 128;

var

{ Interface variables }

  CheckBreak: Boolean;    { Enable Ctrl-Break }
  CheckEOF: Boolean;      { Enable Ctrl-Z }
  DirectVideo: Boolean;   { Enable direct video addressing }
  CheckSnow: Boolean;     { Enable snow filtering }
  LastMode: Word;         { Current text mode }
  TextAttr: Byte;         { Current text attribute }
  WindMin: Word;          { Window upper left coordinates }
  WindMax: Word;          { Window lower right coordinates }

{ Interface procedures }

procedure AssignCrt(var F: Text);
function KeyPressed: Boolean;
function ReadKey: Char;
procedure TextMode(Mode: Integer);
procedure Window(X1,Y1,X2,Y2: Byte);
procedure GotoXY(X,Y: Byte);
function WhereX: Byte;
function WhereY: Byte;
procedure ClrScr;
procedure ClrEol;
procedure InsLine;
procedure DelLine;
procedure TextColor(Color: Byte);
procedure TextBackground(Color: Byte);
procedure LowVideo;
procedure HighVideo;
procedure NormVideo;
procedure Delay(MS: Word);
procedure Sound(Hz: Word);
procedure NoSound;

// Komischweise fehlt hier das Folgende:
{
implemetation

end.
}

Naja das Problem ist: Wo sind die proceduren und Funktionen da bitte "ausgefüllt" ? -.-
Gar nicht. Aber woher weis Pascal was es tun soll ?
Und viel wichtiger: Woher bekomm ich die Funktionen/Proceduren ? :gruebel:

PS: Die Datei heißt: crt.int... wobei pascal immer tpu dateien zum einbinden braucht :gruebel:
Aber es gibt keine crt.tpu :wall:

Gruß
Michael

[ichbins]

Probier mal den Befehl

Delphi-Quellcode:

SETTEXTCOLOR

aus der Unit Windows. Dafür brauchst du das Handle des Konsolenfensters. Aber woher krieg ich das :gruebel:

[Neutral General]

Zitat:

Zitat von ichbins

Probier mal den Befehl

Delphi-Quellcode:

SETTEXTCOLOR

aus der Unit Windows. Dafür brauchst du das Handle des Konsolenfensters. Aber woher krieg ich das :gruebel:

Ok danke aber was soll ich denn bei DC angeben ?
Dafür brauch ich ja das Handle meiner Anwendung.. Aber so was wie Application.Handle gibts in ner Konsolenanwendung nicht.. Und ich suche sicher nicht mit FindWindow mein eigenes Fenster -.-^^

[ichbins]

Zitat:

Zitat von Neutral General

Und ich suche sicher nicht mit FindWindow mein eigenes Fenster -.-^^

Wieso denn nicht ;)

Und im Notfall kannst du ja immer noch die Forms einbinden.

:? wenn ich application.handle aus der forms verwende und mit getwindowdc in die hdc umwandle, scheints nicht zu klappen...

[Neutral General]

Das Problem ist das wir das grad im Info Unterricht mit Pascal arbeiten. Und wenn Pascal mal wieder nicht funktioniert dann machen wir Delphi Konsolenanwendungen... Ist ja praktisch (fast) das Gleiche. Bis auf die Tatsache das es halt einige Pascal Befehle nicht mehr gibt.. Und ich glaube wenn ich denen dann sage das sie die Textfarbe nur ändern können wenn sie vorher das Handle ("Handle? Kann man das essen?" ^^) der Anwendung herausfinden müssen dann lassen die das lieber sein :mrgreen:

Ich könnte vielleicht ne eigene Unit machen wo dann ne TextColor Methode mache die dann von SetTextColor "abgeleitet" ist. Aber naja mal sehn...

EDIT:

Zitat:

wenn ich application.handle aus der forms verwende und mit getwindowdc in die hdc umwandle, scheints nicht zu klappen...

Ja hab ich mir gedacht.. das wäre auch zu einfach :mrgreen:
Hat sone Konsolenanwendung überhaupt ein Handle ? ^^
Bzw Application hat ja mit Konsolenanwendungen normalerweise nix zu tun.. (oder?)

[sakura]

SetTextColor ist für Canvas-Objekte, nicht für Konsolen :arrow: geht nicht.

So gehts:

Delphi-Quellcode:

  SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE), FarbWert);

Farbwert nimmt Werte von 0 bis 255 an.

...:cat:...

[Neutral General]

Ok, danke Sakura.

Was mich noch interessieren würde wäre GotoXY und TextBackground für Delphi...

(Dafür muss ich doch jetzt keinen neuen Thread aufmachen oder ?)

[sakura]

Zitat:

Zitat von sakura

Farbwert nimmt Werte von 0 bis 255 an.

Noch ein paar Zusatzinfos zum Wert.

0 - Schwarz
1 - Blau
2 - Grün
3 - Dunkles Cyan
4 - Rot
5 - Lila
6 - bräunliches Gelb
7 - "dunkles weiß"
8 - "helles grau"
9 - hellblau
10 - hellgrün
11 - cyan
12 - knallrot
13 - grelles lila
14 - gelb
15 - schneeweiß ...:cat:...

Diese Wert um 4 Bit (shl 4) nach links verschieben und dann wird die Hintergrundfarbe entsprechend gesetzt.

...:cat:...

[sakura]

Zitat:

Zitat von Neutral General

Was mich noch interessieren würde wäre GotoXY

Delphi-Quellcode:

var
  CP: _COORD;

...

CP.X := 5;
CP.Y := 4;
SetConsoleCursorPosition(GetStdHandle(STD_OUTPUT_HANDLE), CP);

Zitat:

Zitat von Neutral General

TextBackground für Delphi...

Siehe obiger Post - gleiche Funktion. Siehe obiger Post.

...:cat:...

[sakura]

P.S.: Alles mit 2 Minuten Googeln erledigt. (VB Source nach Delphi portiert und fertig!)

...:cat:...