AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

On Screen Text

Ein Thema von kurtm1 · begonnen am 24. Dez 2003 · letzter Beitrag vom 17. Dez 2005
Antwort Antwort
Seite 1 von 2  1 2      
kurtm1

Registriert seit: 13. Dez 2003
348 Beiträge
 
#1

On Screen Text

  Alt 24. Dez 2003, 15:00
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)
  Mit Zitat antworten Zitat
CalganX

Registriert seit: 21. Jul 2002
Ort: Bonn
5.403 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: On Screen Text

  Alt 24. Dez 2003, 15:08
Hi,
schau dir mal in der OH den Typ "TCanvas" an.
Denn der Screen hat die Eigenschaft
Screen.Canvas Darauf kannst du dann alles mögliche zaubern oder schreiben.

Chris
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
 
Delphi 12 Athens
 
#3

Re: On Screen Text

  Alt 24. Dez 2003, 15:09
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.
  Mit Zitat antworten Zitat
kurtm1

Registriert seit: 13. Dez 2003
348 Beiträge
 
#4

Re: On Screen Text

  Alt 24. Dez 2003, 15:15
Habe Delphi 6
Ich bekomme keine Eigenschaft die Screen.Canvas heißt
Könntest du mir mal ein bissal Code posten
  Mit Zitat antworten Zitat
kurtm1

Registriert seit: 13. Dez 2003
348 Beiträge
 
#5

Re: On Screen Text

  Alt 24. Dez 2003, 15:22
Danke für deine Möglichkeit den Text unsichtbar zu machen die ist super mit Color etc.!
  Mit Zitat antworten Zitat
Benutzerbild von flomei
flomei

Registriert seit: 17. Jan 2003
Ort: Schieder-Schwalenberg
2.094 Beiträge
 
Delphi 2005 Personal
 
#6

Re: On Screen Text

  Alt 24. Dez 2003, 15:38
Interessant wäre dazu vielleicht dieser Beitrag von Daniel B in der CL...

MfG Florian
Florian Meier
... ist raus.
Vielen Dank für die Zeit mit euch!
http://www.flomei.de -- http://www.md5hash.de
  Mit Zitat antworten Zitat
kurtm1

Registriert seit: 13. Dez 2003
348 Beiträge
 
#7

Re: On Screen Text

  Alt 24. Dez 2003, 15:43
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
  Mit Zitat antworten Zitat
Benutzerbild von flomei
flomei

Registriert seit: 17. Jan 2003
Ort: Schieder-Schwalenberg
2.094 Beiträge
 
Delphi 2005 Personal
 
#8

Re: On Screen Text

  Alt 24. Dez 2003, 15:46
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
Florian Meier
... ist raus.
Vielen Dank für die Zeit mit euch!
http://www.flomei.de -- http://www.md5hash.de
  Mit Zitat antworten Zitat
kurtm1

Registriert seit: 13. Dez 2003
348 Beiträge
 
#9

Re: On Screen Text

  Alt 24. Dez 2003, 15:48
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
  Mit Zitat antworten Zitat
Benutzerbild von flomei
flomei

Registriert seit: 17. Jan 2003
Ort: Schieder-Schwalenberg
2.094 Beiträge
 
Delphi 2005 Personal
 
#10

Re: On Screen Text

  Alt 24. Dez 2003, 15:52
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
Florian Meier
... ist raus.
Vielen Dank für die Zeit mit euch!
http://www.flomei.de -- http://www.md5hash.de
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:40 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz