Guten Morgen.
Mit folgendem Code schreibe und lese ich ein Canvas Feld aus. Das ganze funktioniert leider nur solange das
Programm im Vordergrund ist. Wie kann ich es machen das es auch im Hintergrund läuft ?
Delphi-Quellcode:
//....
for i := 0 to 448 do PaintBox1.Canvas.TextOut(i,0,' ');
MyTime := Time();
timebuffer := FormatDateTime('hh:mm',myTime);
PaintBox1.Canvas.TextOut(0,0,Edit1.Text);
PaintBox1.Canvas.TextOut(214,0,timebuffer);
PaintBox1.Canvas.TextOut(245,0,Edit2.Text);
Paint;
//------------------------------------------------------------------
// Zeile 0 lesen
pos := 0;
for i := 0 to 55 do Data[i] := #0; // Setze Data auf 0
for j := 0 to 55 do
begin
if PaintBox1.Canvas.Pixels[j+pos,0] = clBlack then bit[0] := 1 else bit[0] := 0;
if PaintBox1.Canvas.Pixels[j+pos+1,0] = clBlack then bit[1] := 1 else bit[1] := 0;
if PaintBox1.Canvas.Pixels[j+pos+2,0] = clBlack then bit[2] := 1 else bit[2] := 0;
//...
Danke, Markus