Auf TabSheet zeichnen

[CReber]

Warum zeigt der mir nix an?

Delphi-Quellcode:

procedure DrawAAText(Text : String; X, Y : Integer; SendTo : TTabSheet);
  var bmp : TBitmap;
begin
  bmp := TBitmap.Create;
  with bmp do begin
    //Transparent := True;
    Handle             := GetDC(SendTo.Handle);
    Width              := 200;
    Height             := 50;
    Canvas.Font.Name   := 'Microsoft Sans Serif';
    Canvas.Font.Size   := 12;
    Canvas.Font.Style  := [fsBold, fsItalic];
    Canvas.Brush.Color := $00FBE8DD;
    //Canvas.FillRect(Rect(0,0,200,50));
    try
      Canvas.TextOut(x, y, Text);
    finally
      Free;
    end;
    //BmpGBlur(bmp, 2);
    {try
      Handle := GetDC(SendTo.Handle);
      Canvas.Draw(X, Y, bmp);
    finally
      //ReleaseDC(MyCanvas.Handle, TabSheet1.Handle);
      Free;
    end;                             }

  end;
end;

[Sharky]

Hai Christian,

wo rufst Du deine Procedure denn auf? Und warum nimmst Du nicht einfach .OnDrawTab des PageControls?

[CReber]

Delphi-Quellcode:

procedure TfrmMain.PagesDrawTab(Control: TCustomTabControl; TabIndex: Integer;
  const Rect: TRect; Active: Boolean);
begin
  with Control do begin
    Canvas.Font.Name   := 'Microsoft Sans Serif';
    Canvas.Font.Size   := 12;
    Canvas.Font.Style  := [fsBold, fsItalic];
    Canvas.Brush.Color := $00FBE8DD;
    Canvas.TextOut(0, 0, 'So zeichnest du dann aufs TabSheet ;-)');
    //Canvas.Handle := GetDC(SendTo.Handle);
    //Canvas.Draw(0, 0, bmp);
  end;
  //BmpGBlur(Bmp : TBitmap; radius : Single);
end;

Geht aber auch net ;) Oben bei meinem Problem hatte ich nur bmp.Canvas.Handle vergessen :/ Ich will irgendwie Text mit Blur auf ne Form klatschen, kriegs aber irgendwie nicht ganz hin :/

[Sharky]

Hai Christian,

hast Du auch daran gedacht .OwnerDraw := True deines PageControls zu setzen?

[CReber]

Habsch net vergessen...