kxekxe

Forum Replies Created

Viewing 8 posts - 21 through 28 (of 28 total)
  • Author
    Posts
  • in reply to: FrameBar и TitleItem #39993
    kxekxe
    Participant

    ну я так и подумал что для анимации… ладно спасибо =)

    in reply to: Баг картинки в SpeedButton #39852
    kxekxe
    Participant

    у меня твой пример ваще картинку не загружает.. хз почему – не стал разбираться.. екзешник в след раз тож кидай, а то ктото не сможет ваще запустить проект…
    попробуй загружать не через Glyph а через Images := IL1 и ImageIndex
    и скин другой поставь для проверки… на этом скине у меня помойму тоже чтото было с картинками непонятное…

    in reply to: Delphi 2009 – не найдены файлы *.pas #39728
    kxekxe
    Participant

    Надо путь к компонетам добавить…
    tools-options-Library Win32-library path и там добавить папку D2009

    kxekxe
    Participant

    во блин =) надо перечитать мануал.. а то так бы по старинке и выгребал бы названия скинов из папки.
    и про AutoHotkeys не знал..
    спасибо stalker18, узнал много нового =)

    kxekxe
    Participant

    QUOTE (TopCore @ Jun 24 2009, 09:05 AM)
    Дело в том, что амперсанда в моём Item не было. А если скинов будет много, то это влияет на увеличение кода, т.к. на каждый Item писать свой обработчик. А я бы хотел один для всех написать.

    не знаю как ты создаешь итемы.. я создаю динамически по названию файла в директории скинов
    и там же один раз указываю какой обработчик

    procedure TForm.FillPopupSkins;
    var
    vlist: TStringList;
    I: Integer;
    vItem: TMenuItem;
    begin
    vlist := TStringList.Create;
    try
    ListFilesInDirectory('c:skins', vlist, 'asz'); // получаем скины в vList
    for I := 0 to vList.Count – 1 do
    Begin
    vItem := TMenuItem.Create(self);
    with vItem do
    Begin
    Caption := ChangeFileExt(vlist.Strings,''); // название скина
    OnClick := ItemClick; // обработчик
    End;
    SubMenu.Insert(i, vItem); // submenu – пункт в popupmenu
    End;
    finally
    FreeAndNil(vlist);
    end;
    end;

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

    kxekxe
    Participant

    QUOTE (TopCore @ Jun 23 2009, 08:30 PM)
    Проверил ShowMessage`ем ((TMenuItem *)Sender)->Caption и понял, что не пркатит этот номер, т.к. Sender в этом случае Action для PopupMenu.

    Вот как я делал через popupmenu…
    на каждый итем вешал событие OnClick

    и в обработчике писал
    procedure TForm.ItemClick(Sender: TObject);
    begin
    // убераем амперсант из кепшона итема
    SkinManager.SkinName := ReplaceStr(TMenuItem(Sender).Caption, '&', '');
    end;

    работает.

    in reply to: AC 6.35 sAlphaImageList #39565
    kxekxe
    Participant

    отлично.. спасибо за быстрое реагирование

    in reply to: HintManager и Frame #39414
    kxekxe
    Participant

    QUOTE (Support @ Jun 1 2009, 08:07 AM)
    Я буду смотреть и скоро разберусь, спасибо за демку.

    в принципе с sFrameAdapter работает, спасибо plasticut
    но всё таки интересно почему демка работает =)

Viewing 8 posts - 21 through 28 (of 28 total)