On Screen Display

Øhhh altså med andre ord: "Du vil gerne havde jeg laver det hele for dig"????

Jeg vil hjælpe dig med det første, resten må du selv finde ud af!!!

BE CREATIVE!!!!

procedure TForm1.Button1Click(Sender: TObject);
var
  dc : HDC;
  Bitmap : TBitmap;
begin
  dc := GetDC(0);
  Bitmap := TBitmap.Create;
  try
    Bitmap.Width := 100;
    Bitmap.Height := 35;
    //Kopiér fra skærmen til bitmappen
    BitBlt(Bitmap.canvas.handle,0,0,Bitmap.Width,Bitmap.Height,dc,10,10,SRCCOPY);
    //Sætter baggrunden af teksten til transparant
    Bitmap.Canvas.Brush.Style := bsClear;
    //Ændre tekst type, størrelse, farve osv.
    Bitmap.Canvas.Font.Size  := 20;
    Bitmap.Canvas.Font.Style := [fsBold];
    Bitmap.Canvas.Font.Color := clLime;
    //Skriver teksten
    Bitmap.Canvas.TextOut(0,0,'Hej');
    //Kopiér bitmappen til skærmen
    BitBlt(dc,10,10,Bitmap.Width,Bitmap.Height,Bitmap.Canvas.Handle,0,0,SRCCOPY);
  finally
    Bitmap.Free;
  end;
end;

Held og Lykke

Hvorfor ikke bare bruke en TLabel?:

...

var
  ...
  lblText: TLabel;

implementation

...

procedure TForm1.FormCreate(Sender: TObject);
begin
  lblText := TLabel.Create(Self);
  with lblText do
  begin
    Parent := Self;
    with Font do
    begin
      Color := clLime;
      Name := 'Tahoma';
      Size := 20;
    end;
    Caption := '<din tekst hær>';
  end;
  BoundsRect := lblText.BoundsRect;
  FormStyle := fsStayOnTop;
  BorderStyle := bsNone;
  { clLime = TColor($00FF00);
    hindrer stygge kanter rundt teksten, ved å velge fargen som skal
    være transparent så lik fargen på teksten som mulig. }
  Color := TColor($00FE00); // nesten helt lik clLime
  TransparentColorValue := Color;
  TransparentColor := True;
  Left := (Screen.Width - Width) div 2; // plasser midten på skjermen
  Top := (Screen.Height - Height) div 2;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  lblText.Free;
end;

end.

-------------------------------------
I am AGAINST TCPA!!
[ http://www.againsttcpa.com/ ]
-------------------------------------
Mvh
DiZpel

Nogen der har noget kode til OSD ?? dette er det eneste jeg kunne finde men det koster 8$
http://solair.eunet.yu/~beginner/#osd

Du vil have en form hvor i man kan skrive noget tekst?

Slot\\\\ - All your base are belong to us
http://www.sigsys.dk

Nogen der har noget kode til OSD ?? dette er det eneste jeg kunne finde men det koster 8$
http://solair.eunet.yu/~beginner/#osd

Du vil have en form hvor i man kan skrive noget tekst?

Slot\\\\ - All your base are belong to us
http://www.sigsys.dk

nej, den skal skrive teskten på "skærmen", On Screen Display!

prøv den exe fil som jeg linker til

Hvis du gerne vil skrive direkte til skærmen er det egentligt meget let!

1. Brug GetDC(0) til at få skærmens kontekst (HDC)
2. Opret en Bitmap og tegn, hvad du nu gerne vil havde vist på skærmen (evt. tekst)
3. Kopiér bitmappen til skærmens kontekst ved hjælp af BitBlt()

Og vuptiiii!!!!!!!!!!!

Hvis du gerne vil skrive direkte til skærmen er det egentligt meget let!

1. Brug GetDC(0) til at få skærmens kontekst (HDC)
2. Opret en Bitmap og tegn, hvad du nu gerne vil havde vist på skærmen (evt. tekst)
3. Kopiér bitmappen til skærmens kontekst ved hjælp af BitBlt()

Og vuptiiii!!!!!!!!!!!

kan du ikke give et kode eksempel til hvordan jeg skriver noget tekst f.eks "hej" ? please?

1) Lav et nyt projekt!
2) Sæt en TButton på din Form1
3) Skriv følgende i din TButton's OnClick event...

procedure TForm1.Button1Click(Sender: TObject);
var
  dc : HDC;
  Bitmap : TBitmap;
begin
  dc := GetDC(0);
  Bitmap := TBitmap.Create;
  try
    Bitmap.Width := 20;
    Bitmap.Height := 16;
    Bitmap.Canvas.TextOut(0,0,'Hej');
    BitBlt(dc,10,10,Bitmap.Width,Bitmap.Height,Bitmap.Canvas.Handle,0,0,SRCCOPY);
  finally
    Bitmap.Free;
  end;
end;

Held og Lykke
Søren Klit Lambæk

1) Lav et nyt projekt!
2) Sæt en TButton på din Form1
3) Skriv følgende i din TButton's OnClick event...

Kode 

procedure TForm1.Button1Click(Sender: TObject);
var
  dc : HDC;
  Bitmap : TBitmap;
begin
  dc := GetDC(0);
  Bitmap := TBitmap.Create;
  try
    Bitmap.Width := 20;
    Bitmap.Height := 16;
    Bitmap.Canvas.TextOut(0,0,'Hej');
    BitBlt(dc,10,10,Bitmap.Width,Bitmap.Height,Bitmap.Canvas.Handle,0,0,SRCCOPY);
  finally
    Bitmap.Free;
  end;
end;

Held og Lykke
Søren Klit Lambæk

tak, men hvordan kan jeg få det til at se ud som det jeg linket til?

Fjerne den hvide bagrund, skal være gennemsigtig.
Teksten skal være grøn og større tekst.
skal vise i x sekunder og så forsvinde.
og skal ikke forsvinde når man trykker på skrivebordet.

giver gerne flere point

Øhhh altså med andre ord: "Du vil gerne havde jeg laver det hele for dig"????

Jeg vil hjælpe dig med det første, resten må du selv finde ud af!!!

BE CREATIVE!!!!

Kode 

procedure TForm1.Button1Click(Sender: TObject);
var
  dc : HDC;
  Bitmap : TBitmap;
begin
  dc := GetDC(0);
  Bitmap := TBitmap.Create;
  try
    Bitmap.Width := 100;
    Bitmap.Height := 35;
    //Kopiér fra skærmen til bitmappen
    BitBlt(Bitmap.canvas.handle,0,0,Bitmap.Width,Bitmap.Height,dc,10,10,SRCCOPY);
    //Sætter baggrunden af teksten til transparant
    Bitmap.Canvas.Brush.Style := bsClear;
    //Ændre tekst type, størrelse, farve osv.
    Bitmap.Canvas.Font.Size  := 20;
    Bitmap.Canvas.Font.Style := [fsBold];
    Bitmap.Canvas.Font.Color := clLime;
    //Skriver teksten
    Bitmap.Canvas.TextOut(0,0,'Hej');
    //Kopiér bitmappen til skærmen
    BitBlt(dc,10,10,Bitmap.Width,Bitmap.Height,Bitmap.Canvas.Handle,0,0,SRCCOPY);
  finally
    Bitmap.Free;
  end;
end;

Held og Lykke

Igen tak.

lige en sidste ting

Hvordan kan jeg gøre teksten "On Top" ? har prøvet lock kommandoen, men den låser bare programmet. teksten forsvinder hvis jeg rykker et vindue over teksten. Hvordan gøre jeg så teksten er On Top også når jeg rykker et vindue over teksten og den skal self ikke forsvinde ?

Igen tak.

lige en sidste ting

Hvordan kan jeg gøre teksten "On Top" ? har prøvet lock kommandoen, men den låser bare programmet. teksten forsvinder hvis jeg rykker et vindue over teksten. Hvordan gøre jeg så teksten er On Top også når jeg rykker et vindue over teksten og den skal self ikke forsvinde ?

Husk paa at du IKKE bruger vinduer ved at tegne paa skaermens HDC (Device Context)!!!! Derfor vil det forsvinde hver gang Windows atomatisk opdatere den oeverste HDC (hvilket er skaermens HDC)!!!! Der er to maader at opnaa det du oensker:

1) Lav en Thread der hele tiden tegner til skaermens HDC!
2) Lav et Windows vindue (hvliket's Z-Value er oeverst) og tegn grafikken i vinduet i stedet for skaermens HDC!

Held og Lykke