RnQ/for.RnQ/tipDlg.pas

{
  This file is part of R&Q.
  Under same license
}
unit tipDlg;
{$I forRnQConfig.inc}
{$I NoRTTI.inc}

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
{$IFDEF USE_GDIPLUS}
  GDIPAPI,
  GDIPOBJ,
  RnQGraphics,
{$ELSE}
  RnQGraphics32,
{$ENDIF USE_GDIPLUS}
  RnQPrefsLib, GlobalLib,
  Types, Vcl.ExtCtrls;

type
  Tmodes = (TM_EVENT, TM_PIC, TM_PIC_EX, TM_BDay);

  TTipInfo = record
    mode: Tmodes;
    obj: Pointer;
    (* case Tmodes of
      TM_EVENT  : (ev  : Thevent);
      TM_PIC    : (pic : Tbitmap);
      TM_PIC_EX : (
      {$IFNDEF NOT_USE_GDIPLUS}
      gpPic : TGPBitmap;
      {$ELSE NOT_USE_GDIPLUS}
      gpPic : TRnQBitmap;
      {$ENDIF NOT_USE_GDIPLUS}
      );
      TM_BDay : (cnt : TRnQContact);
    *)
  end;

type
  TtipFrm = class;
  DoPaintTip = procedure(Sender: TtipFrm; mode: Tmodes; info: Pointer; pMaxX, pMaxY: Integer; calcOnly: Boolean);
  DoToShow = function(): Boolean;
  DoTipDestroy = procedure(Sender: TtipFrm);

  TtipFrm = class(TForm)
    animTimer: TTimer;
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure animTimerTimer(Sender: TObject);
  private
    fOnPaintTip: DoPaintTip;
    fOnToShow: DoToShow;
    fOnTipDestroy: DoTipDestroy;
  protected
    procedure CreateParams(var Params: TCreateParams); override;
    function preshow(): Boolean;
    procedure postshow();
    procedure hide();
    procedure WndProc(var msg: TMessage); override;
    procedure Paint; override;
  public
    info: TTipInfo;
    (*
      //    evkind:integer;
      mode: (TM_EVENT, TM_PIC, TM_PIC_EX);
      ev : Thevent;
      //    info:string;
      //    contact:Tcontact;
      pic:Tbitmap;
      {$IFNDEF NOT_USE_GDIPLUS}
      gpPic : TGPBitmap;
      {$ELSE NOT_USE_GDIPLUS}
      gpPic : TRnQBitmap;
      {$ENDIF NOT_USE_GDIPLUS}
    *)
    // counter:integer;
    // time:Tdatetime;
    Action: (TA_NULL, TA_LCLICK, TA_2LCLICK, TA_RCLICK, TA_2RCLICK);
    actionCount: Integer;
    prevWnd: Thandle;
    mouseDown: Boolean;
    isPainting: Boolean;
    processing: Boolean;
    procedure showTip();
    class function Add2ShowTip(pInfo: TTipInfo; X, Y, Width, Height: Integer): TtipFrm;

    (*
      procedure show(pEv:Thevent; x, y : Integer); overload;
      procedure show(pCnt:TRnQContact; x, y : Integer); overload;
      //    procedure show(bmp:Tbitmap); overload;
      procedure show(bmp:Tbitmap; x, y : Integer); overload;
      {$IFNDEF NOT_USE_GDIPLUS}
      procedure show(gpbmp:TGPBitmap; x, y : Integer); overload;
      {$ELSE NOT_USE_GDIPLUS}
      procedure show(gpbmp:TRnQBitmap; x, y : Integer); overload;
      {$ENDIF NOT_USE_GDIPLUS}
    *)
    property onPaintTip: DoPaintTip read fOnPaintTip write fOnPaintTip;
    property onToShow: DoToShow read fOnToShow write fOnToShow;
    property OnTipDestroy: DoTipDestroy read fOnTipDestroy write fOnTipDestroy;
  end;

type
  TRnQTip = class(TObject)
  public
    form: TtipFrm;
    // ev          : Thevent;
    time: TDateTime;
    counter: Integer;
    showSeconds: Word;
    X, Y: Integer;
  end;

  // var
  // tipDrawType : Byte;
type
  TtipsAlign = (alBottomRight, alBottomLeft, alTopLeft, alTopRight, alCenter);
  TtipsAlignSet = set of TtipsAlign;

procedure TipsHideAll;
procedure TipsShowTop;
procedure MoveTips;
function AddTip(var item: TRnQTip; ti: TTipInfo; needW, needH: Integer): Boolean;

procedure tipsSetCFG(pp: TRnQPref);

const
  TipsMaxTop: Integer = 200;

var
  TipsMaxCnt: Integer = 20;
  TipsBtwSpace: Integer;
  TipsAlign: TtipsAlign;
  TipHorIndent: Integer;
  TipVerIndent: Integer;
  tipsList: TList = NIL;

  MegaTimer: Cardinal;

implementation

{$R *.dfm}

uses
  math, strUtils,
{$IFDEF UNICODE}
  AnsiStrings,
{$ENDIF UNICODE}
  RDGlobal, mainDlg,
  RQThemes, RnQSysUtils;
// RnQDialogs, RQUtil, RnQUtils, RnQBinUtils, RnQLangs,
// globalLib, mainDlg, utilLib, chatDlg,
// RQlog;
// var
// processing:boolean=FALSE;
// const
// round_R = 15;

class function TtipFrm.Add2ShowTip(pInfo: TTipInfo; X, Y, Width, Height: Integer): TtipFrm;
begin
  Result := TtipFrm.Create(NIL);
  Result.info := pInfo;

  Result.Left := X;
  Result.Top := Y;
  Result.Width := Width;
  Result.Height := Height;
end;

procedure TtipFrm.showTip;
begin
  if not preshow() then
    Exit;
  postshow();
  Paint;
end;

procedure TtipFrm.hide();
begin
  // hide task button
  // setwindowlong(handle, GWL_HWNDPARENT, RnQmain.handle);
  // setwindowlong(handle, GWL_HWNDPARENT, RnQmain.handle);
  // if not transparency.forTray then
  // if not alphablend then
  // AnimateWindow(handle, 200, AW_BLEND or AW_HIDE);
  animTimer.Tag := 2;
  animTimer.Enabled := True;
  // else
  // showWindow(handle, SW_HIDE);
  // counter:=0;
  if prevWnd > 0 then
  begin
    forceForegroundWindow(prevWnd);
    prevWnd := 0;
  end;
end; // hide

procedure TtipFrm.animTimerTimer(Sender: TObject);
var
  aFinal, aCurrent: Integer;
begin
  if transparency.forTray then
    aFinal := transparency.tray
  else
    aFinal := 255;

  if (animTimer.Tag = 1) then
  begin
    aCurrent := AlphaBlendValue + Round(aFinal / 10) + 5;
    if (aCurrent > aFinal) then
    begin
      animTimer.Enabled := false;
      AlphaBlendValue := aFinal;
    end
    else
    begin
      AlphaBlendValue := aCurrent;
    end;
  end
  else if (animTimer.Tag = 2) then
  begin
    aCurrent := AlphaBlendValue - Round(aFinal / 10) - 10;
    if (aCurrent < 0) then
    begin
      animTimer.Enabled := false;
      AlphaBlendValue := 0;
      destroyHandle;
      Free;
    end
    else
    begin
      AlphaBlendValue := aCurrent;
    end;
  end
  else
    animTimer.Enabled := false;
end;

procedure TtipFrm.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  with Params do
  begin
    WndParent := GetDesktopWindow;
    // Style := WS_CLIPSIBLINGS or WS_CHILD;
    ExStyle := WS_EX_TOPMOST or WS_EX_TOOLWINDOW;
    // WindowClass.Style := CS_DBLCLKS or CS_SAVEBITS;
    Style := Style or BS_OWNERDRAW;
  end;
end;

function TtipFrm.preshow(): Boolean;
begin
  Result := false;
  if processing or mouseDown then
    Exit;
  hide();
  // if locked then exit;
  if Assigned(fOnToShow) then
    if not fOnToShow then
      Exit;
  if actionCount > 0 then
    Exit; // user interacting with tipfrm
  actionCount := 0;
  processing := True;
  Result := True;
end; // preshow

procedure TtipFrm.postshow();
var
  // i: integer;
  R: HRGN;
  // hwnd: THandle;
  rad: Integer;
  st: Integer;
begin
  { for i:=1 to length(info) do
    if info[i] = #9 then
    info[i]:=' '; }
  // paint;
  if not TryStrToInt(theme.GetString('tip.radius'), rad) then
    rad := 0;
  if rad > 0 then
  begin
    R := CreateRoundRectRgn(0, 0, Width + 1, 1 + Height, rad, rad);
    SetWindowRgn(Handle, R, false);
    deleteObject(R);
  end;
  // st := GetWindowLong(Handle, GWL_STYLE);
  // SetWindowLong(Handle, GWL_STYLE, st or WS_Popup);
  st := GetWindowLong(Handle, GWL_EXSTYLE);
  SetWindowLong(Handle, GWL_EXSTYLE, st or WS_EX_TOOLWINDOW { AND NOT WS_EX_APPWINDOW } );
  showWindow(Handle, SW_SHOWNA);
  animTimer.Tag := 1;
  animTimer.Enabled := True;
  // hwnd := GetForegroundWindow;
  // showWindow(handle, SW_SHOWNOACTIVATE);
  // if hwnd <> GetForegroundWindow then
  // SetForegroundWindow(hWnd);
  processing := false;
end; // postshow

(*
  procedure Ttipfrm.show(bmp:Tbitmap; x, y : Integer);
  type
  PColor32 = ^TColor32;
  TColor32 = type Cardinal;
  function SetAlpha(Color32: TColor32; NewAlpha: Integer): TColor32;
  begin
  if NewAlpha < 0 then NewAlpha := 0
  else if NewAlpha > 255 then NewAlpha := 255;
  Result := (Color32 and $00FFFFFF) or (TColor32(NewAlpha) shl 24);
  end;

  var
  //  R:TRect;
  r, C:Cardinal;
  PC:PColor32;
  begin
  info.mode:=TM_PIC;
  if bmp=NIL then hide();
  if info.pic=NIL then
  info.pic:=Tbitmap.create
  else
  info.pic.ReleaseHandle;
  if not preshow() then exit;

  //  gpPic := NIL;
  //  pic.Assign(bmp);
  begin
  info.pic.PixelFormat      := bmp.PixelFormat;
  info.pic.SetSize(bmp.Width, bmp.Height);
  info.pic.Transparent      := bmp.Transparent;
  info.pic.TransparentColor := bmp.TransparentColor;
  info.pic.TransparentMode  := bmp.TransparentMode;
  //      R := Rect(0 ,20, 100, 100);
  //    FillRect(pic.Canvas.Handle, r, CreateSolidBrush(clRed));
  BitBlt(info.pic.Canvas.Handle, 0, 0, info.pic.Width, info.pic.Height,
  bmp.Canvas.Handle, 0, 0, SrcCopy);
  if info.pic.PixelFormat = pf32bit then
  begin
  for R:=0 to bmp.Height-1 do
  begin
  PC:=Pointer(info.pic.ScanLine[r]);
  for C:=0 to bmp.Width-1 do
  begin
  PC^:=SetAlpha(PC^,$FF);
  Inc(PC);
  end;
  end;
  end;
  //          DrawText(pic.Canvas.Handle, PChar('<27><>'), -1, R, DT_SINGLELINE);// or DT_VCENTER);
  end;
  //  mode:=TM_PIC;
  //counter:=0;
  //time:=now;
  //  ev := NIL;
  Left := x;
  Top  := y;
  Width  := bmp.Width;
  Height := bmp.Height;
  postShow();
  end; // show

  {$IFNDEF NOT_USE_GDIPLUS}
  procedure Ttipfrm.show(gpbmp:TGPbitmap; x, y : Integer);
  begin
  mode:=TM_PIC_EX;
  if gpbmp=NIL then hide();
  if pic=NIL then
  pic:=Tbitmap.create
  else
  pic.ReleaseHandle;
  if not preshow() then exit;
  gpPic := gpbmp.Clone(MakeRect(0, 0, gpbmp.GetWidth, gpbmp.GetHeight), gpbmp.GetPixelFormat);
  //pic.Assign(bmp);
  mode:=TM_PIC_EX;
  pic := nil;
  //counter:=0;
  //time:=now;
  ev := NIL;
  Left := x;
  Top  := y;
  Width  := gpbmp.GetWidth;
  Height := gpbmp.GetHeight;
  postShow();
  end; // show
  {$ELSE NOT_USE_GDIPLUS}

  procedure Ttipfrm.show(gpbmp:TRnQbitmap; x, y : Integer);
  begin
  info.mode:=TM_PIC_EX;
  if gpbmp=NIL then hide();
  {  if pic=NIL then
  info.pic:=Tbitmap.create
  else
  info.pic.ReleaseHandle;}
  if not preshow() then exit;
  info.gpPic := gpbmp.Clone(MakeRect(0, 0, gpbmp.GetWidth, gpbmp.GetHeight));
  //pic.Assign(bmp);
  //  mode:=TM_PIC_EX;
  //  pic := nil;
  //counter:=0;
  //time:=now;
  //  ev := NIL;
  Left := x;
  Top  := y;
  Width  := gpbmp.GetWidth;
  Height := gpbmp.GetHeight;
  postShow();
  end; // show
  {$ENDIF NOT_USE_GDIPLUS}

  procedure Ttipfrm.show(pEv:Thevent; x, y : Integer);
  //var
  //  s, p : String;
  //  i, k : Integer;
  //  bmp : TBitmap;
  begin
  if pEv = NIL then Exit;
  if (pEv<>NIL) and not (BE_TIP in supportedBehactions[pEv.kind]) then exit;
  if (pEv.kind in [EK_msg,EK_url]) // user reading this message in chat window
  and chatFrm.isVisible
  and (pEv.who.equals(chatFrm.thisChat.who)) then
  exit;
  if not preshow() then exit;
  info.mode:=TM_EVENT;
  info.ev  := pEv.clone;
  {
  if ev.kind in [EK_url,EK_msg,EK_contacts,EK_authReq,EK_automsg] then
  info := ev.decrittedInfoOrg
  else
  info := '';}
  //  gpPic := NIL;
  //  pic := nil;
  //  contact := pEv.who;
  Left := x;
  Top  := y;
  //  Width  := bmp.Width;
  //  Height := bmp.Height;

  postShow();
  end; // show Event

  procedure Ttipfrm.show(pCnt:TRnQContact; x, y : Integer);
  begin
  if pCnt = NIL then Exit;
  //  if (pCnt<>NIL) and not (BE_TIP in supportedBehactions[pEv.kind]) then exit;
  if not preshow() then exit;
  info.mode := TM_BDay;
  info.cnt  := pCnt;
  Left := x;
  Top  := y;
  postShow();
  end; // show BirthDay
*)
procedure TtipFrm.WndProc(var msg: TMessage);
begin
  case msg.msg of
    WM_ACTIVATE:
      if Word(msg.wparam) = WA_CLICKACTIVE then
        prevWnd := msg.lParam;
    // WM_PRINT <20><> WM_PRINTCLIENT
  end;
  inherited;
end; // wndproc

procedure TtipFrm.Paint;
var
  maxX, maxY: Integer;
  work: Trect;
  // gr : TGPGraphics;
begin
  work := desktopWorkArea(mainDlg.RnQmain.Handle);
  isPainting := True;
  try
    // case info.mode of
    // TM_EVENT:
    begin
      { maxX := 0; maxY := 0;
        drawEvent(canvas, ev, maxX,maxY, True);
        boundInt(maxY, 0, work.bottom-work.top);
        boundInt(maxX, 0, work.right-work.left);
        drawEvent(canvas, ev, maxX,maxY, False); }
      maxX := self.Width;
      maxY := self.Height;
      if Assigned(onPaintTip) then
        onPaintTip(self, info.mode, info.obj, maxX, maxY, false);
      // tipDrawEvent(Canvas.Handle, info.ev, NIL, maxX,maxY, False);
    end;
    { TM_PIC:
      if info.pic <> NIL then
      begin
      maxX := info.pic.Width;
      maxY := info.pic.Height;
      canvas.Draw(0,0, info.pic);
      end;
      TM_PIC_EX:
      if info.gpPic <> NIL then
      begin
      maxX:= info.gpPic.GetWidth;
      maxY:= info.gpPic.GetHeight;
      DrawRbmp(canvas.Handle, info.gpPic);
      end;
      TM_BDay:
      begin
      maxX := self.width;
      maxY := self.height;
      tipDrawEvent(Canvas.Handle, NIL, info.cnt, maxX,maxY, False);
      end;
      end; }
  finally
    isPainting := false;
  end;
  {
    boundInt(maxY, 0, work.bottom-work.top);
    boundInt(maxX, 0, work.right-work.left);
    if not visible then
    setBounds( work.right-maxX, work.bottom-maxY, maxX, maxY); }
end; // paint

procedure TtipFrm.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  mouseDown := false;
end;

procedure TtipFrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  hide;
  Action := caNone;
end;

procedure TtipFrm.FormCreate(Sender: TObject);
begin
  DoubleBuffered := false;
  info.obj := NIL;
  {
    info.pic   := NIL;
    info.ev    := NIL;
    info.gppic := NIL;
    info.cnt   := NIL;
  }
  isPainting := false;
  processing := false;
end;

procedure TtipFrm.FormDestroy(Sender: TObject);
begin
  while isPainting do
    Application.ProcessMessages;
  if Assigned(OnTipDestroy) then
    OnTipDestroy(self);
  (* case info.mode of
    TM_EVENT:
    if Assigned(info.ev) then
    begin
    info.ev.Free;
    info.ev := NIL;
    end;
    TM_PIC:
    if Assigned(info.pic) then
    begin
    info.pic.Free;
    info.pic := NIL;
    end;
    TM_PIC_EX:
    if Assigned(info.gppic) then
    begin
    info.gppic.Free;
    info.gpPic := NIL;
    end;
    TM_BDay:
    if Assigned(info.cnt) then
    begin
    //         info.cnt.Free;
    info.cnt := NIL;
    end;
    end; *)
end;

procedure TtipFrm.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  mouseDown := True;
  actionCount := 3;
  if Action = TA_NULL then
  begin
    if Shift = [ssLeft] then
      Action := TA_LCLICK;
    if Shift = [ssRight] then
      Action := TA_RCLICK;
  end
  else
    case Action of
      TA_LCLICK:
        Action := TA_2LCLICK;
      TA_RCLICK:
        Action := TA_2RCLICK;
    end;
end;

procedure TipsHideAll;
var
  i: Integer;
  rt: TRnQTip;
begin
  If Assigned(tipsList) then
  begin
    for i := 0 to tipsList.Count - 1 do
    begin
      rt := TRnQTip(tipsList.Items[i]);
      tipsList.Items[i] := nil;
      if Assigned(rt) and Assigned(rt.form) then
      begin
        rt.form.Close;
        rt.form := NIL;
        rt.Free;
      end;
    end;
    FreeAndNil(tipsList);
    // if tipsList.Count = 0 then
    // FreeAndNil(tipsList);
  end;
end;

procedure TipsShowTop;
var
  i: Integer;
  rt: TRnQTip;
begin
  If Assigned(tipsList) then
    for i := 0 to tipsList.Count - 1 do
    begin
      rt := TRnQTip(tipsList.Items[i]);
      if Assigned(rt) and Assigned(rt.form) and
      // formVisible(rt.frm) and
        not isTopMost(rt.form) then
      begin
        setTopMost(rt.form, True);
      end;
    end;
  // if formVisible(tipFrm) then setTopMost(tipFrm, TRUE);
  // if formVisible(tipfrm) and not isTopMost(tipFrm) then
  // setTopMost(tipFrm, TRUE);
end;

procedure MoveTips;
var
  i: Integer;
  minY: Integer;
  work: Trect;
  rt: TRnQTip;
begin
  // OutputDebugString('Processing MoveTips');
  if Assigned(tipsList) then
  begin
    work := desktopWorkArea(mainDlg.RnQmain.Handle);
    case TipsAlign of
      alBottomRight, alBottomLeft:
        begin
          minY := work.Bottom - TipVerIndent;
          for i := 0 to tipsList.Count - 1 do
          begin
            rt := TRnQTip(tipsList.Items[i]);
            if Assigned(rt) and Assigned(rt.form) then
            begin
              if minY - rt.Y - rt.form.Height > TipsBtwSpace then
              begin
                rt.Y := minY - rt.form.Height;
                rt.form.Top := rt.Y;
              end;
              minY := rt.Y - TipsBtwSpace;
            end;
          end;
        end;
      alTopLeft, alTopRight:
        begin
          minY := TipVerIndent;
          for i := 0 to tipsList.Count - 1 do
          begin
            rt := TRnQTip(tipsList.Items[i]);
            if Assigned(rt) and Assigned(rt.form) then
            begin
              if rt.Y - minY > TipsBtwSpace then
              begin
                rt.Y := minY;
                rt.form.Top := rt.Y;
              end;
              minY := rt.Y + rt.form.Height + TipsBtwSpace;
            end;
          end;
        end;
    end;
  end;
end;

function AddTip(var item: TRnQTip; ti: TTipInfo; needW, needH: Integer): Boolean;
var
  i, cnt, idx: Integer;
  minX, minY: Integer;
  // needW, needH : Integer;
  work: Trect;
  not_ok: Boolean;
  rt: TRnQTip;
begin
  if not Assigned(tipsList) then
    tipsList := TList.Create;
  cnt := 0;
  Result := false;
  // lastY := work.Bottom;
  not_ok := True;
  idx := 0;
  work := desktopWorkArea(mainDlg.RnQmain.Handle);
  case TipsAlign of
    alBottomRight, alBottomLeft:
      while not_ok do
      begin
        minY := work.Bottom;
        minX := MaxInt;
        cnt := 0;
        idx := 0;
        for i := 0 to tipsList.Count - 1 do
        begin
          rt := TRnQTip(tipsList.Items[i]);
          if (rt <> NIL) and Assigned(rt.form) then
          begin
            inc(cnt);
            if rt.counter < minX then
            begin
              minX := rt.counter;
              idx := i;
            end;
            if (rt.Y < minY) then
            begin
              // lastY := minY;
              minY := rt.Y;
            end;
          end;
        end;

        if (tipsList.Count > 0) and ((cnt >= TipsMaxCnt) or (minY - work.Top - TipsMaxTop < needH)) and (idx < tipsList.Count)
        then
        begin
          rt := TRnQTip(tipsList.Items[idx]);
          tipsList.Items[idx] := nil;
          if Assigned(rt) then
          begin
            // rt.frm.Close;
            // rt.frm.hide();
            rt.form.Free;
            rt.form := NIL;
            rt.Free;
          end;
          idx := -1;
          dec(cnt);
          // minY := lastY;
        end;

        MoveTips;

        for i := 0 to tipsList.Count - 1 do
        begin
          rt := TRnQTip(tipsList.Items[i]);
          if Assigned(rt) and Assigned(rt.form) then
            if (rt.X >= 0) and (rt.Y >= 0) then
              minY := min(rt.Y, minY);
        end;
        not_ok := (cnt > 0) and (minY - work.Top - TipsMaxTop < needH)
      end;
    alTopRight, alTopLeft:
      while not_ok do
      begin
        minY := TipVerIndent;
        minX := MaxInt;
        cnt := 0;
        idx := 0;
        for i := 0 to tipsList.Count - 1 do
        begin
          rt := TRnQTip(tipsList.Items[i]);
          if (rt <> NIL) and Assigned(rt.form) then
          begin
            inc(cnt);
            if rt.counter < minX then
            begin
              minX := rt.counter;
              idx := i;
            end;
            if (rt.Y + rt.form.Height > minY) then
            begin
              // lastY := minY;
              minY := rt.Y + rt.form.Height;
            end;
          end;
        end;
        if (tipsList.Count > 0) and ((cnt >= TipsMaxCnt) or (work.Bottom - minY - TipsMaxTop < needH)) and (idx < tipsList.Count)
        then
        begin
          rt := TRnQTip(tipsList.Items[idx]);
          tipsList.Items[idx] := nil;
          if Assigned(rt) then
          begin
            rt.form.Close;
            rt.form := NIL;
            // rt.frm.hide();
            // rt.frm.Free;
            rt.Free;
          end;
          idx := -1;
          dec(cnt);
          // minY := lastY;
        end;

        MoveTips;

        for i := 0 to tipsList.Count - 1 do
        begin
          rt := TRnQTip(tipsList.Items[i]);
          if Assigned(rt) and Assigned(rt.form) then
            if (rt.X >= 0) and (rt.Y >= 0) then
              minY := max(rt.Y + rt.form.Height, minY);
        end;
        not_ok := (cnt > 0) and (work.Bottom - minY - TipsMaxTop < needH)
      end;
  end;
  // minX :=

  case TipsAlign of
    alBottomRight, alBottomLeft:
      begin
        minY := work.Bottom - TipVerIndent;
        for i := 0 to tipsList.Count - 1 do
        begin
          rt := TRnQTip(tipsList.Items[i]);
          if Assigned(rt) and Assigned(rt.form) then
            if (rt.X >= 0) and (rt.Y >= 0) then
              minY := min(rt.Y, minY);
        end;
        item.Y := minY - needH;
        if (tipsList.Count > 0) then
          item.Y := item.Y - TipsBtwSpace;
      end;
    alTopRight, alTopLeft:
      begin
        minY := TipVerIndent;
        for i := 0 to tipsList.Count - 1 do
        begin
          rt := TRnQTip(tipsList.Items[i]);
          if Assigned(rt) and Assigned(rt.form) then
            if (rt.X >= 0) and (rt.Y >= 0) then
              minY := max(rt.Y + rt.form.Height, minY);
        end;
        item.Y := minY;
        if (tipsList.Count > 0) then
          item.Y := item.Y + TipsBtwSpace;
      end;
  end;

  case TipsAlign of
    alBottomRight, alTopRight:
      begin
        item.X := work.Right - TipHorIndent - needW;
      end;
    alBottomLeft, alTopLeft:
      begin
        item.X := TipHorIndent;
      end;
  end;

  item.form := TtipFrm.Add2ShowTip(ti, item.X, item.Y, needW, needH);

  tipsList.Add(item);
  Result := True;
end;

procedure Check4NIL;
var
  i: Integer;
  // rt : TRnQTip;
  allClear: Boolean;
begin
  If Assigned(tipsList) then
  begin
    allClear := True;
    for i := 0 to tipsList.Count - 1 do
    begin
      if tipsList.Items[i] <> NIL then
      begin
        allClear := false;
        Break;
      end;
    end;
    if allClear then
      FreeAndNil(tipsList);
  end;

end;

procedure tipsSetCFG(pp: TRnQPref);
begin
  if Assigned(pp) then
  begin
    pp.initPrefInt('show-tips-count', 20); // TipsMaxCnt);
    pp.initPrefInt('show-tips-align', Byte(alBottomRight));
    pp.initPrefInt('show-tips-btw-space', 2);
    pp.initPrefInt('show-tips-ver-indent', 0);
    pp.initPrefInt('show-tips-hor-indent', 0);
    // TipsMaxTop
    pp.getPrefInt('show-tips-count', TipsMaxCnt);
    TipsAlign := TtipsAlign(Byte(pp.getPrefIntDef('show-tips-align', Byte(TipsAlign))));
    pp.getPrefInt('show-tips-btw-space', TipsBtwSpace);
    pp.getPrefInt('show-tips-ver-indent', TipVerIndent);
    pp.getPrefInt('show-tips-hor-indent', TipHorIndent);
    // pp.getPrefBool('show-tips-use-avt-size', TipsMaxAvtSizeUse);
    // pp.getPrefInt('show-tips-avt-size', TipsMaxAvtSize);
  end
  else
  begin
    TipsMaxCnt := 20;
    TipsBtwSpace := 2;
    TipsAlign := alBottomRight;
    TipVerIndent := 0;
    TipHorIndent := 0;
  end;
end;

end.