Canvas zeichnet/schreibt mir nix :/

[sharkx]

Hallo ...

Irgendwie häng ich hier fest. sollte eigentlich simple sein *g*
Auf jeden zeichnet/schreibt Canvas mir nix hin ..

Delphi-Quellcode:

  with Form1.Canvas do
    begin
      TextOut(24,52, 'Username:');
   end;

[Nicodius]

mach eine initialisierung der farben(am besten probier ebide Brush und Pen Color)

[sharkx]

wenn ich das ganze per button aufrufe funktioniert es, nur im OnPaint nicht :/

[Nicodius]

jetzt überleg mal wieso


onpaint ist ja WENN etwas gezeichne wird^^

[sharkx]

und wo müsste es dann hin? im OnCreate kann er ja noch nichts zeichnen, oder?

[Nicodius]

gibs in nen timer :mrgreen:

[Mirilin]

:hi:

das gehört schon ins OnPaint ....

Delphi-Quellcode:

procedure TMainForm.FormPaint(Sender: TObject);
begin
  Canvas.TextOut(24,52,'bla bla bla')
end;

klappt auf neutralem Boden wunderbar :mrgreen:


mfg Tobias

[Nicodius]

;) :D

[sharkx]

bei mir nich, aber könnte sein das ich nicht in ne Groupbox schreiben kann ?

[Mirilin]

:hi:

Was spricht eigentlich gegen zum Beispiel ein TLabel ?


mfg Tobias

[sharkx]

der wille es mit canvas zu machen *g*

[Nicodius]

*fg* na das nennt man geist ;)

[Christian Seehase]

Moin Sharkx,

probier's mal so:

Delphi-Quellcode:

procedure TForm1.FormPaint(Sender: TObject);

var
  hDC : DWORD;

begin
  hDC := GetDC(GroupBox1.Handle);
  try
    TextOut(hDC,24,52,'Username:',9);
  finally
    ReleaseDC(GroupBox1.Handle,hDC);
  end;
end;

oder so:

Delphi-Quellcode:

procedure TForm1.FormPaint(Sender: TObject);

var
  hDC : DWORD;

begin
  hDC := GetDC(GroupBox1.Handle);
  try
    with TCanvas.Create do begin
      Handle := hDC;
      TextOut(24,52,'Username:');
      free;
    end;
  finally
    ReleaseDC(GroupBox1.Handle,hDC);
  end;
end;

Du schreibst zwar auf die Zeichenfläche des Formulares, überdeckst aber diese mit der Groupbox.
Plazier mal die Groupbox so, dass ein Teil des Textes auf dem Formular und ein Teil auf der GroupBox stehen müsste, dann kannst Du sehen, dass tatsächlich etwas ausgegeben wird, Du es nur nichr sehen kannst.