On Screen Text

[kurtm1]

Weis wer wie ich sowas machen kann:

http://www.torry.net/samples/samples/soft/osddemo.zip

(Ist eine winzige Exe, die einen Text auf den Bildschirm zaubert)

[CalganX]

Hi,
schau dir mal in der OH den Typ "TCanvas" an.
Denn der Screen hat die Eigenschaft

Delphi-Quellcode:

Screen.Canvas

Darauf kannst du dann alles mögliche zaubern oder schreiben. :)

Chris

[himitsu]

Was Hast du denn für eine Delphi Version ?

Bei Delphi 7 kannst du z.B. einfach ein Label auf ein Form setzen und im OI zum Formular BorderStyle auf bsNone setzen und die TransparentFarbe auf den selben Wert wie den Fensterhintergund und schon ist nur noch die Schrift da.

Wenn das Formular angezeigt wird, ist die Schrift da, ansonsten nicht.

[kurtm1]

Habe Delphi 6
Ich bekomme keine Eigenschaft die Screen.Canvas heißt
Könntest du mir mal ein bissal Code posten

[kurtm1]

Danke für deine Möglichkeit den Text unsichtbar zu machen die ist super mit Color etc.!

[flomei]

Interessant wäre dazu vielleicht dieser Beitrag von Daniel B in der CL...

MfG Florian :xmas:

[kurtm1]

Wenn man das jetzt noch so machen könnte dass es immer da bleibt wäre es perfekt.

Mein Ziel ist eigentlich dass man auch wenn man zum Beispiel Spiele spielt, den Text sieht

[flomei]

Dazu müsste man diese "Mal-Prozedur" immer wieder, ganz schnell hintereinander ausführen. Vielleicht ginge das wenn man es in ein OnTimer Event packt...
Aber einige Spiele verwenden ja diesen "Overlay-Mode". Ich weiss nicht ob das da dann auch geht...

MfG Florian :xmas:

[kurtm1]

Hast du eine Ahnung wie man das machen könnte?`

Ich möchte mir eigentlich nur ein Programm machen, welches immer auf dem Bildschirm einen Text anzeigt.
FRAPS kann das auch dazu gabs auch schon mal eine Thread habe allerdings keine Ahnung wie das funktionieren soll

//Edit: hier http://www.delphipraxis.net/internal...ct.php?t=13585

[flomei]

Einfach Timer mit nem Intervall von 10 (ms) auf die Form und ab gehts:

Delphi-Quellcode:

procedure WriteText(TransText: string);
var
  MyHand: HWND;
  MyDc: HDC;
  MyCanvas: TCanvas;
begin
  MyHand := GetDesktopWindow;
  MyDc := GetWindowDC(MyHand);
  MyCanvas := TCanvas.Create;
  MyCanvas.Handle := MyDC;
  BeginPath(MyCanvas.Handle);
  MyCanvas.Font.Color := clRed;
  MyCanvas.Font.Name := 'Courier New';
  MyCanvas.Font.Size := 30;
  SetBkMode(MyCanvas.Handle,TRANSPARENT);
  EndPath(MyCanvas.Handle);
  MyCanvas.TextOut(100, 100, TransText); //Hier die Positionsdaten mit X und Y, wo der Text beginnen soll
end;



procedure TForm1.Timer1Timer(Sender: TObject);
begin
  WriteText('http://delphipraxis.net');
end;

Nur bleibt jetzt z.B. auf der Form noch Text "kleben". Müsste man mal sehen wie man das wegbekommt...

MfG Florian :xmas: