Hints formatieren

[himitsu]

versuch mal

Delphi-Quellcode:

procedure TGraphicHintWindow.Paint;
var
  R: TRect;
  bmp: TBitmap;
begin
  R := ClientRect;
  //Inc(R.Left, 2);    wenn, dann gleich alle seiten beschneiden,
  //Inc(R.Top, 2);     aber da diese Werte hier eh nicht benutzt wurde,
  //Dec(R.Bottom, 2);  kann es auch weggelassen werden
  //Dec(R.Right, 2);   (vorallem da Bottom und Right da unten "etwas" falsch verrechnet werden)

  {*******************************************************
   Der folgende Code ist ein Beispiel wie man die Paint
   Prozedur nutzen kann um einen benutzerdefinierten Hint
   zu erzeugen.

   The folowing Code ist an example how to create a custom
   Hint Object. :
   }

  bmp := TBitmap.Create;
  bmp.LoadfromFile('D:\hint.bmp');

  with Canvas do
  begin
    Brush.Style := bsSolid;
    Brush.Color := clsilver;
    Pen.Color   := clgray;
    Rectangle(0, 0, 18, R.Bottom + 1);
    Draw(2,(R.Bottom div 2) - (bmp.Height div 2), bmp);
  end;

  bmp.Free;
  //Beliebige HintFarbe
  //custom Hint Color
  Color := clWhite;

  Canvas.Brush.Style := bsClear;
  R.Left := 20;
  R.Top  := (R.Bottom div 2) - (Canvas.TextHeight(Caption) div 2);
  DrawText(Canvas.Handle, PChar(Caption), -1, R, DT_LEFT or DT_TOP);
  {********************************************************}
end;

PS: http://translate.google.com/
oder gib da gleich statt dem einzelnem Text die URL ein
http://translate.google.com/translate?js=y&prev=_t&hl=de&ie=UTF-8&u=http%3A%2F%2Fmsdn.microsoft.com%2Fde-de%2Flibrary%2Fdd162498(en-us%2CVS.85).aspx&sl=en&tl=de&history_state0=