AmiGa

Forum Replies Created

Viewing 6 posts - 21 through 26 (of 26 total)
1 2
  • Author
    Posts
  • October 6, 2011 at 8:34 am in reply to: TAnimate прозрачность #46829
    AmiGa
    Participant

    Понятно, спасибо!

    February 7, 2011 at 7:24 am in reply to: компонент TsSpeedButton #44795
    AmiGa
    Participant

    Подскажите, пожайлуста, а что по моей проблеме. Вы ее решили или нет ?

    December 15, 2010 at 9:28 am in reply to: компонент TsSpeedButton #44208
    AmiGa
    Participant

    Еще обнаружил : не прорисовывается картинка при установке Enabled:=False, загрузки с ресурса картинки и установки Enabled:=True.

    В примере 5 кнопка сверху. В основной программе картинка грузится при создании формы, а при активации формы вызывается несколько процедур, которые меняют состояние кнопки. В итоге картинка на кнопке не прорисовывается.

    December 13, 2010 at 5:16 pm in reply to: компонент TsSpeedButton #44193
    AmiGa
    Participant

    Спасибо !

    December 13, 2010 at 4:34 pm in reply to: компонент TsSpeedButton #44190
    AmiGa
    Participant

    Спасибо за ответ!

    Версия 6.66 с исходниками есть, так как надо срочно, подскажите пожалуйста, что нужно поменять.

    December 13, 2010 at 11:18 am in reply to: компонент TsSpeedButton #44166
    AmiGa
    Participant

    Смотрите в прикрепленном примере.

    Загрузка :

    //Загрузить Bmp для TsSpeedButton из ресурса

    procedure LoadGlyphAlphaSpeedBtnResource(HModule: Cardinal; sSpeedBtn: TsSpeedButton; NameRes: PChar; NumGlyph: Integer);

    Begin

    IF FindResource(HModule, MAKEINTRESOURCE(NameRes), rt_BITMAP) > 0 then

    Begin

    sSpeedBtn.Glyph.Handle := LoadBitmap(HModule, NameRes);

    IF(NumGlyph <= 0)and(sSpeedBtn.Glyph.Height > 0)then sSpeedBtn.NumGlyphs:=sSpeedBtn.Glyph.Width div sSpeedBtn.Glyph.Height

    else sSpeedBtn.NumGlyphs:=NumGlyph;

    end;

    end;

  • Author
    Posts
Viewing 6 posts - 21 through 26 (of 26 total)
1 2