beton

Forum Replies Created

Viewing 4 posts - 1 through 4 (of 4 total)
  • Author
    Posts
  • March 30, 2017 at 1:22 pm in reply to: Какой-то баг в sTitleBar #56408
    beton
    Participant
    'Support' wrote:

    Не удается повторить ошибку, к сожалению. Возможно уже есть готовый пример с ошибкой?

    Пардон ошибка всё же оказалась моя, нашёл и исправил.

    July 30, 2016 at 10:00 am in reply to: cxLabel on sPanel – visual bug #55372
    beton
    Participant

    [attachment=7807:bandicam_2016-07-29_17-50-08-234.gif]

    post-3171-081209800%201469872803.gif

    July 30, 2016 at 9:59 am in reply to: Can't save to AlphaCfg.ini #55371
    beton
    Participant

    post-3171-037617600%201469872739.gif

    July 22, 2016 at 7:49 pm in reply to: TacTitleBarItem and Custom DropDownMenu #55320
    beton
    Participant

    Сам себе отвечу

    Code:
    procedure TfrmMain.sTitleBar1Items0MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    var
    p: TPoint;
    begin
    p.X := sTitleBar1.Items[0].Rect.Left;
    p.Y := sTitleBar1.Items[0].Rect.Bottom;

    inc(p.X, sTitleBar1.Items[0].ExtForm.Left);
    inc(p.Y, sTitleBar1.Items[0].ExtForm.Top);

    dxBarPopupMenuHeader.Popup(p.X, p.Y);
    end;

  • Author
    Posts
Viewing 4 posts - 1 through 4 (of 4 total)