Bildschirmschoner in Lazarus

[Lapiz123]

Guten Tag liebe Gemeinde,
Ich würde gerne einen Bildschirmschoner in Lazarus erstellen, ich würde diesen dann gerne per Buttonklick öffnen können. Ich weiß leider nicht, was für Code dafür benötigt wird, daher würde ich gerne von euch Hilfe erhalten. Also wenn ihr Hilfe habt oder sogar schon fertige Projekte dieser Art habt, dann lasst sie mir gerne zu kommen. Wäre euch sehr dankbar.

[af0815]

Was für ein Betriebssystem?

[Timm Thaler]

Was für ein Betriebssystem?

Die Frage ist eher: Was für ein Jahrhundert?

Bildschirmschoner macht man seit TFT nicht mehr.

Ich weiß leider nicht, was für Code dafür benötigt wird, daher würde ich gerne von euch Hilfe erhalten.

Fullscreen oder Windowed? Text, Bilder, einfache Grafik oder 3D? Was soll dargestellt werden?

[af0815]

Nachdem es der erste Post des Users war, warten wir mal ab.

[Lapiz123]

Was für ein Betriebssystem?

Die Frage ist eher: Was für ein Jahrhundert?

Bildschirmschoner macht man seit TFT nicht mehr.

Ich weiß leider nicht, was für Code dafür benötigt wird, daher würde ich gerne von euch Hilfe erhalten.

Fullscreen oder Windowed? Text, Bilder, einfache Grafik oder 3D? Was soll dargestellt werden?

Das Betriebssystem ist Windows. Und ich es wäre schön wenn es Fullscreen ist mit Grafik. Zu der Frage, welches Jahrhundert wir haben, gute Frage mein Lehrer ist auch aus dem letzten Jahrtausend ^^ . Danke für eure schnellen Antworten

[Warf]

Du machst ne form mit der Eigenschaft Borderstyle auf bsNone, Formstyle fsSystemStayOnTop und WindowState auf wsMaximized.

Damit deckt die Form den gesammten bildschirm ab und ist über allen anderen Fenstern. Die grafiken kannst du dann mit nem Canvas zeichnen, OpenGL wenn du ganz motiviert bist, oder die faule variante, einfach ein paar TShapes über die form wandern lassen.

Eine alternative wäre auch, du könntest dir das Canvas handle vom Desktop holen und direkt auf dem bildschirm rumzeichnen:

Code: Alles auswählen

var
  hnd: HDC;
  cvs: TCanvas;
begin
  hnd := GetDC(0); // uses windows
  cvs := TCanvas.Create;
  try
    cvs.Handle:=hnd;
    cvs.FillRect(0,0, Screen.Width, Screen.Height);
  finally
    cvs.Free;
  end;

[Lapiz123]

Du machst ne form mit der Eigenschaft Borderstyle auf bsNone, Formstyle fsSystemStayOnTop und WindowState auf wsMaximized.

Damit deckt die Form den gesammten bildschirm ab und ist über allen anderen Fenstern. Die grafiken kannst du dann mit nem Canvas zeichnen, OpenGL wenn du ganz motiviert bist, oder die faule variante, einfach ein paar TShapes über die form wandern lassen.

Eine alternative wäre auch, du könntest dir das Canvas handle vom Desktop holen und direkt auf dem bildschirm rumzeichnen:

Code: Alles auswählen

var
  hnd: HDC;
  cvs: TCanvas;
begin
  hnd := GetDC(0); // uses windows
  cvs := TCanvas.Create;
  try
    cvs.Handle:=hnd;
    cvs.FillRect(0,0, Screen.Width, Screen.Height);
  finally
    cvs.Free;
  end;

Wärst du so nett und könntest mir das komplette Projekt als Zip senden ^^

[Socke]

Wärst du so nett und könntest mir das komplette Projekt als Zip senden ^^

Deine Hausaufgaben musst du schon selbst machen

Ein anderer Weg war doch: Form maximieren, ohne Fensterdekoration (BorderStyle) und dann die Programmdatei von .exe nach .scr umbenennen. Dann kannst du direkt auf dem Form oder auf einem TImage darauf zeichnen. Für einfache Bilder reicht oder Text reicht das aus - für schnelle Bildwechsel oder 3D-Grafik nicht.
Zumindest war das zu meiner Schulzeit unter Delphi 7 so.

[Lapiz123]

Wärst du so nett und könntest mir das komplette Projekt als Zip senden ^^

Deine Hausaufgaben musst du schon selbst machen

Ein anderer Weg war doch: Form maximieren, ohne Fensterdekoration (BorderStyle) und dann die Programmdatei von .exe nach .scr umbenennen. Dann kannst du direkt auf dem Form oder auf einem TImage darauf zeichnen. Für einfache Bilder reicht oder Text reicht das aus - für schnelle Bildwechsel oder 3D-Grafik nicht.
Zumindest war das zu meiner Schulzeit unter Delphi 7 so.

Was ist dieses HDC weil bei mir steht "Identifier not found"

[Timm Thaler]

Es ist leider nicht mehr so einfach wie bei TurboPascal. Es gibt verschiedene Libs die auf unterschiedliche Art Grafik unterstützen.

Schau mal hier durch: https://wiki.freepascal.org/Developing_with_Graphics/de

Was davon für Dich geeignet ist hängt davon ab, was Du machen willst.

Da wir hier weder wissen, was Du in Pascal "drauf hast" noch was Du darstellen willst musst Du entweder konkreter werden oder Dich da durchackern.

[af0815]

Dann stell mal deine Hausaufgabe hier ein. Nur Projektsourcen ohne exe, ppu,... dann kann man mal drübersehen und dir Hinweise geben.