Графика в С++ Билдере

[Impuls1989]

Сообщение от Sazary

Перевести вот это?

Нет вот это все
Неужели нету нормального способа отобразить на хинтах картинку? Или другой альтернативы им.

[Impuls1989]

Вот это мне надо перевести в код на C Билдере:

unit HintX;
interface
uses
  Windows, Messages, Controls,Graphics;
type
  TIconHintX = class(THintWindow)
  protected
    procedure Paint; override;
  public
    function CalcHintRect(MaxWidth: Integer; const AHint: string;
    AData: Pointer): TRect; override;
end;

implementation
uses Forms;

{ TIconHintX }

function TIconHintX.CalcHintRect(MaxWidth: Integer;
const AHint: string; AData: Pointer): TRect;
begin
  Result := inherited CalcHintRect(MaxWidth, AHint, AData);
  Result.Right := (Length(AHint) * 5) + Application.Icon.Width;
  Result.Bottom := (Application.Icon.Height) * 2;
end;

procedure TIconHintX.Paint;
const
  MARGIN = 5;
var bmp: TBitmap;
begin
  inherited;
  bmp:= TBitmap.Create;
  bmp.LoadfromFile('E:\1.bmp');
  Canvas.Draw(MARGIN, MARGIN * 5, bmp);
  SendMessage(Handle, WM_NCPAINT, 0, 0);
  bmp.Free;
end;

initialization
  HintWindowClass := TIconHintX;

end.

end.

Пробовал сам, но какие-то непонятки с классом. Может не так делаю? Тут классы описываются также как и в VS C++ 6?
Еси кто поможет, буду безмерно благодарен

[Sazary]

Сообщение от Impuls1989

Нет вот это все

Если нигде ничего не напутал, то как-то так:

class TGraphicHintWindow : THintWindow
{
 private:
  bool FActivating;
 public:
  TGraphicHintWindow(TComponent AOwner);
  void __fastcall ActivateHint(TRect &Rect, const AnsiString AHint);
  __property Caption;
 protected:
  void __fastcall Paint(void);

};

TGraphicHintWindow::TGraphicHintWindow(TComponent AOwner) : THintWindow(AOwner)
 {
  Canvas->Font->Name = "Arial";
  Canvas->Font->Style << fsBold;
  Canvas->Font->Color = clBlack;
 }

void __fastcall TGraphicHintWindow::Paint(void)
{
 TRect R;
 Graphics::TBitmap *bmp = new Graphics::TBitmap;
 R = ClientRect;
 R.Left += 2;
 R.Top += 2;

 bmp->LoadFromFile("D:\\hint.bmp");

 Canvas->Brush->Style << bsSolid;
 Canvas->Brush->Color = clSilver;
 Canvas->Pen->Color = clGray;
 Canvas->Rectangle(0,0,18,R.Bottom+1);
 Canvas->Draw(2,(R.Bottom/2) - (bmp->Height/2),bmp);

 delete bmp;

 Color = clWhite;

 Canvas->Brush->Style <<bsClear;
 Canvas->TextOutA(20,(R.Bottom/2)-(Canvas->TextHeight(Caption)/2),Caption);

}

void __fastcall TGraphicHintWindow::ActivateHint(TRect &Rect, const AnsiString AHint)
{
 FActivating = true;

 try
  {
   Caption = AHint;
   Rect.Bottom += 14;
   Rect.Right += 20;
   UpdateBoundsRect(Rect);
    if(Rect.Top + Height > Screen->DesktopHeight)
      Rect.Top = Screen->DesktopHeight - Height;
    if(Rect.Left + Width > Screen->DesktopWidth)
      Rect.Left = Screen->DesktopWidth - Width;
    if (Rect.Left < Screen->DesktopLeft)  Rect.Left = Screen->DesktopLeft;
    if (Rect.Bottom < Screen->DesktopTop) Rect.Bottom = Screen->DesktopTop;
    SetWindowPos(Handle, HWND_TOPMOST, Rect.Left, Rect.Top, Width, Height,
      SWP_SHOWWINDOW | SWP_NOACTIVATE);
   Invalidate();
  }
 __finally
  {
  FActivating = false;
  }

}

[Sazary]

А то, что в посте #12 как-то так:

class TIconHintX : THintWindow
{
  protected:
   void __fastcall Paint(void);
  public:
  TRect __fastcall CalcHintRect(int MaxWidth, const AnsiString AHint, Pointer AData);
};

TRect __fastcall TIconHintX::CalcHintRect(int MaxWidth, const AnsiString AHint, Pointer AData)
{
 TRect Res;
 Res = THintWindow::CalcHintRect(MaxWidth, AHint, AData);
 Res.Right = (AHint.Length()*5) + Application->Icon->Width;
 Res.Bottom = (Application->Icon->Height)*2;
 return Res;
}

void __fastcall TIconHintX::Paint(void)
{
 const int MARGIN=5;
 Graphics::TBitmap *bmp = new Graphics::TBitmap;
 bmp->LoadFromFile("E:\1.bmp");
 Canvas->Draw(MARGIN,MARGIN%5,bmp);
 SendMessage(Handle, WM_NCPAINT, 0, 0);
 delete bmp;
}

Вроде, ошибок нет.

[Impuls1989]

Сообщение от Sazary

Если нигде ничего не напутал, то как-то так:

Да. Все скомпилилось без ошибок. Только немного ошибись с одной процедуркой:

void __fastcall ActivateHint(const TRect &Rect, const UnicodeString AHint);

Забыли конст и UnicodeString (Компилятор кричаал об опасности)
Но все равно ничего не получается. Думаю все дело вот в этих строках:

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  HintWindowClass := TGraphicHintWindow; 
  Application.ShowHint := False; 
  Application.ShowHint := True; 
end;

HintWindowClass := TGraphicHintWindow; - Вот эту строку как понимать? Я так понимаю это использовать вместо класса HintWindowClass, собственный касс? Но такая ситуация в билдере не прокатывает(((

[Sazary]

Сообщение от Impuls1989

Забыли конст и UnicodeString (Компилятор кричаал об опасности)

Хм.. Так ведь там дальше по коду:

Rect.Bottom += 14;
Rect.Right += 20;

а константный объект изменить нельзя..

А в формкриейт походу так надо:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
 HintWindowClass = __classid(TGraphicHintWindow);
  Application->ShowHint = False;
  Application->ShowHint = True;
}

[Sazary]

При таком раскладе должна возникнуть ошибка "Unresolved external...".
Исправляется так: нужно перед WinMain добавить функцию:

 void __fastcall Controls::THintWindow::NCPaint(HDC DC)
  {
    TRect R(0, 0, Width, Height);
    DrawEdge(DC, &R, BDR_RAISEDOUTER, BF_RECT);
  }

[Impuls1989]

Сообщение от Sazary

Хм.. Так ведь там дальше по коду:

Rect.Bottom += 14;
Rect.Right += 20;

а константный объект изменить нельзя..

Да, я знаю, но компилятор ругался. Пришлось создать TRect R и дальше использовать его.

Сообщение от Sazary

А в формкриейт походу так надо:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
 HintWindowClass = __classid(TGraphicHintWindow);
  Application->ShowHint = False;
  Application->ShowHint = True;
}

Хм. Пишет вот что:

[ILINK32 Error] Error: Unresolved external '__fastcall Controls::THintWindow::NCPaint(void *)' referenced from C:\USERS\IMPULS\DESKTOP\12312312\DEBUG\UNIT1.OBJ

Немножко опоздал)). Сейчас попробую

[Impuls1989]

Ураааа... Все работает как я хотел. Вот для будущего поколения полный, работающий код:

class TGraphicHintWindow : THintWindow
{
private:
	bool FActivating;
public:
	TGraphicHintWindow(TComponent AOwner);
	void __fastcall ActivateHint(const TRect &Rect, const UnicodeString AHint);
  __property Caption;
protected:
	void __fastcall Paint(void);
};

 void __fastcall Controls::THintWindow::NCPaint(HDC DC)
  {
	TRect R(0, 0, Width, Height);
	DrawEdge(DC, &R, BDR_RAISEDOUTER, BF_RECT);
  }

TGraphicHintWindow::TGraphicHintWindow(TComponent AOwner) : THintWindow(AOwner)
{
  Canvas->Font->Name = "Arial";
  Canvas->Font->Style << fsBold;
  Canvas->Font->Color = clBlack;
}

void __fastcall TGraphicHintWindow::Paint(void)
{
	TRect R;
	Graphics::TBitmap *bmp = new Graphics::TBitmap;
	R = ClientRect;
	R.Left += 2;
	R.Top += 2;
	bmp->LoadFromFile("E:\\1.bmp");
		Canvas->Brush->Style << bsSolid;
		Canvas->Brush->Color = clSilver;
		Canvas->Pen->Color = clGray;
		Canvas->Rectangle(0,0,18,R.Bottom+1);
		Canvas->Draw(2,(R.Bottom/2) - (bmp->Height/2),bmp);
	delete bmp;
	Color = clWhite;
	Canvas->Brush->Style <<bsClear;
	Canvas->TextOutA(20,(R.Bottom/2)-(Canvas->TextHeight(Caption)/2),Caption);
}
void __fastcall TGraphicHintWindow::ActivateHint(const TRect &Rect, const UnicodeString AHint)
{
	FActivating = true;
 try
  {
  TRect R = Rect;
   Caption = AHint;
   R.Bottom += 200;
   R.Right += 200;
   UpdateBoundsRect(R);
	if(R.Top + Height > Screen->DesktopHeight)
	  R.Top = Screen->DesktopHeight - Height;
	if(R.Left + Width > Screen->DesktopWidth)
	  R.Left = Screen->DesktopWidth - Width;
	if (R.Left < Screen->DesktopLeft)  R.Left = Screen->DesktopLeft;
	if (R.Bottom < Screen->DesktopTop) R.Bottom = Screen->DesktopTop;
	SetWindowPos(Handle, HWND_TOPMOST, R.Left, R.Top, Width, Height,
	  SWP_SHOWWINDOW | SWP_NOACTIVATE);
   Invalidate();
  }
 __finally
  {
	FActivating = false;
  }
}
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  HintWindowClass = __classid(TGraphicHintWindow);
  Application->ShowHint = False;
  Application->ShowHint = True;
}
//---------------------------------------------------------------------------

Спаибо тебе Sazary огромное.

[MaTBeu]

Не думал что можно не писать тип наследования в заголовке производного класса

class TGraphicHintWindow : public THintWindow