paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 05:59:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: added persistent hints for main ide bar

Browse Source 
git-svn-id: trunk@3607 -
This commit is contained in:
lazarus 2002-11-04 19:49:36 +00:00
parent e27b187b18
commit 0d0e5a2574
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/mainbar.pas
View File

@ -252,7 +252,7 @@ type
GlobalMouseSpeedButton: TSpeedButton;
// hints. Note/ToDo: hints should be controlled by the lcl, this is a workaround
HintTimer1 : TTimer;
HintTimer1 : TIdleTimer;
HintWindow1 : THintWindow;
protected
TheCompiler: TCompiler;

1
lcl/include/hintwindow.inc
View File

@ -123,6 +123,7 @@ function THintWindow.CalcHintRect(MaxWidth: Integer; const AHint: String;
AData: Pointer): TRect;
begin
Result := Rect(0,0, MaxWidth, ClientHeight);
if AHint='' then exit;
SelectObject(Canvas.Handle, Canvas.Font.Handle);
DrawText(Canvas.Handle, PChar(AHint), Length(AHint), Result, DT_CalcRect or
DT_NOPREFIX);