Hint mit Grafik

[Andy]

Hallo,

kann man in einem Hintfenster ein .jpg oder .bmp Bild zusätzlich zum Text darstellen?
Bisher konnte ich nur in Erfahrung bringen, dass es ein THintWindow und eine HintWindowClass gibt. In der Delphi Hilfe heisst es

Zitat:

... Wenn Sie THintWindow überschreiben und einen neuen Typ abgeleitet haben, weisen Sie diesen neuen Typ beim Start der Anwendung der globalen Variable HintWindowClass zu. Von diesem Zeitpunkt an wird der neue Fenstertyp für Hinweisfenster verwendet. ...

Wie geht das in der Praxis mit dem neuen Fenstertyp? Kann ich z.B. als Fenstertyp eine Form verwenden, in die ich dann mein Bild zeichne?

Schöne Grüsse
Andy

[sakura]

Hier mal ein älteres Beispiel, welches ich habe.

Delphi-Quellcode:

{
  Copyright:      Copyright © 2002-2004 gate(n)etwork GmbH. Alle Rechte vorbehalten.
  Author:         Daniel Wischnewski
  State:          Public Domain, only for Delphi-PRAXiS Group
  Remarks:        this Copyright must be included
  Version:        Delphi 2-7
  Description:    Creates a custom hint window

 * THIS SOFTWARE IS PROVIDED BY THE AUTHORS ''AS IS'' AND ANY EXPRESS
 * OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHORS OR CONTRIBUTORS BE
 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
 * BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
 * OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
 * EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
}

unit uCustomHint;

interface

uses
  Classes, Windows, Forms, Graphics, Controls, Types;

type
  TGraphicHintWindow = class(THintWindow)
  private
    FActivating: Boolean;
  public
    procedure ActivateHint(Rect: TRect; const AHint: string); override;
  protected
    procedure Paint; override;
  public
    constructor Create(AOwner: TComponent); override;
    property Caption;
  end;

var
  CurrentHintImage: String;

const
  BMP_SPACE = 30;

implementation

{ TGraphicHintWindow }

procedure TGraphicHintWindow.ActivateHint(Rect: TRect;
  const AHint: string);
begin
  FActivating := True;
  try
    Caption := AHint;
    Inc(Rect.Bottom, 16);
    Rect.Right := Rect.Right + BMP_SPACE;
    UpdateBoundsRect(Rect);
    // calc screen position
    if Rect.Top + Height > Screen.ActiveForm.Monitor.WorkareaRect.Bottom then
      Rect.Top := Screen.ActiveForm.Monitor.WorkareaRect.Bottom - Height;
    if Rect.Left + Width > Screen.ActiveForm.Monitor.WorkareaRect.Right then
      Rect.Left := Screen.ActiveForm.Monitor.WorkareaRect.Right - Width;
    if Rect.Left < Screen.ActiveForm.Monitor.WorkareaRect.Left then
      Rect.Left := Screen.ActiveForm.Monitor.WorkareaRect.Left;
    if Rect.Bottom < Screen.ActiveForm.Monitor.WorkareaRect.Top then
      Rect.Bottom := Screen.ActiveForm.Monitor.WorkareaRect.Top;
    // set new position
    SetWindowPos(Handle, HWND_TOPMOST, Rect.Left, Rect.Top, Width, Height,
      SWP_SHOWWINDOW or SWP_NOACTIVATE);
    // redraw
    Invalidate;
  finally
    FActivating := False;
  end;
end;

constructor TGraphicHintWindow.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  with Canvas.Font do
    Color := clBlack;
end;

procedure TGraphicHintWindow.Paint;
var
  R: TRect;
  Bmp: TBitmap;
begin
  R := ClientRect;
  Inc(R.Left, 2);
  Inc(R.Top, 2);
  // draw left corner
  Bmp := TBitmap.Create;
  try
    try
      with Canvas do
      begin
        Brush.Style := bsSolid;
        Brush.Color := clSkyBlue;
        Pen.Color   := clGray;
        Rectangle(0, 0, BMP_SPACE, R.Bottom + 1);
        Bmp.LoadfromFile(CurrentHintImage);
        Draw(4, Succ((R.Bottom - Bmp.Height) div 2), Bmp);
      end;
    except
    end;
  finally
    Bmp.Free;
  end;
  Color := clWhite;
  // draw text
  Canvas.Brush.Style := bsClear;
  Canvas.TextOut(Succ(BMP_SPACE), (R.Bottom div 2) - (Canvas.Textheight(Caption)
      div 2), Caption);
end;

initialization
  CurrentHintImage := '';

end.

Setzen der Zu nutzenden Klasse mit (zB. in OnFormCreate):

Delphi-Quellcode:

HintWindowClass := TGraphicHintWindow;

Im Beispiel-Code einfach die Variable CurrentHintImage auf die Bilddatei verweisen lassen und nutzen ;)

...:cat:...

[Andy]

Guten Morgen,

sorry für die verspätete Antwort.
Danke für den Source Code, hab ihn gerade getestet und es klappt super.

Schöne Grüsse
Andy

[himitsu]

Ist ja gemein ich hatte mir das ja mal selber über die Delphi-Sources rausgesucht und dann gibst das auch schon fertig :?

[Schucki]

Hallo,

ich habe versucht den Quelltext auszuprobieren, doch leider ohne Erfolg.
In der USES Klausel steht die unit "TYPES" drin welche bei mir nicht gefunden werden
kann... ich arbeite mit Delphi 4 doch laut Beschreibung soll es auch damit gehen.

Hat jemand einen Tip?

MfG Schucki...

[sakura]

Zitat:

Zitat von Schucki

In der USES Klausel steht die unit "TYPES" drin welche bei mir nicht gefunden werden kann...

Vielleicht weil es die Unit in Delphi 4 noch nicht gab ;) Einfach entfernen und testen...

...:cat:...

[Schucki]

Hi Sakura,

ja klar hab ich probiert... leider stolpert er dann in der Zeile...

Code:

if Rect.Top + Height > Screen.ActiveForm.Monitor.WorkareaRect.Bottom then

und "WorkareaRect" kennt er nicht... :cry:

Nun haste noch nen Tip?

MfG Schucki...