[Support]

Hello

AlphaImageList allows to change a size of drawn images in run-time.
I.e. you can load 32×32 glyphs to the project, and later when project will be started you can change Width and Height to 16 or to 48 or any other size and pictures will be drawn correctly.

QUOTE

if i switch from TImageList to TAlphaImageList with the same images inside, will i enjoy any benefits?

AlphaImageList have full support of the alphachannel (full support of 32-bit Ico and Png pictures)
Png are better because format is independent from Windows version.

[Support]

Hello

It's possible to use tools like the EurekaLog or similar for you? We must receive a log-file for this error.
Also could you specify a difference between XP systems where error occurs and where an error does not occurs?

[Support]

I'm sorry, where is a problem here? <img src="style_emoticons//smile.gif” style=”vertical-align:middle” emoid=”:)” border=”0″ alt=”smile.gif” />
Characters between '(' and ')'?

[Support]

I meant a problem with automatic popups skinning.
Some changes was added in the v6.37, please try.

[Support]

Could you show a demo?
I can't reproduce it independently, unfortunately.

[Support]

Hello
What version of the package do you uses?
Could you give a small demo with MDI menu issue?

PS. Mdi child forms and forms, which have a parent, can't have an extended borders.

[Support]

Hello, I will research this situation soon.

[Support]

Hello
Some problems must be resolved in the v6.37, please check it.

[Support]

Ближайшая неделя

[Support]

Спасибо

[Support]

Да, желательно указать что не так.

[Support]

Вряд ли скоро будет добавлен новый компонент, разве что если есть у кого и он мог бы с тобой поделиться…

[Support]

Спасибо, Torbins, это будет реализовано в версии 6.37!

[Support]

Could you use the TeamViewer and show me a problems? <img src="style_emoticons//smile.gif” style=”vertical-align:middle” emoid=”:)” border=”0″ alt=”smile.gif” />

[Support]

In the latest release was added the new function AddImageFromRes(aInstance: LongWord; ImageList : TsAlphaimageList; const ResName: String; ImageFormat : TsImageFormat): Boolean;
This function is not a method of the AlphaImageList object, implemented as separated function. Please check it, may be added Ico and Png there.
TsImageFormat = (ifPNG, ifICO);

[Support]

Может быть проблема решена, но кое-кому интересно посмотреть вживую, может можно что улушить.

[Support]

Нет, было не все хорошо, вот почему делались изменения последние : http://www.alphaskins.com/forum/index.php?showtopic=4414
Там система чуть лучше изменяла размер картинки, когда конвертировалось и сохранялось в Ico, но при конвертации терялась часть информации, а потом неверно отображалось.

[Support]

Здравствуйте
Отключить скинирование всего предпросмотра можно если изменить sSkinManager1.SkinningRules.srStdForms в False

[Support]

Сохранение в файл :

CODE

    iFile := TMemIniFile.Create(SaveDialog1.FileName);
    sStoreUtils.WriteIniStr(sSection, 'Style', IntToStr(ord(sHintManager1.HintKind.Style)), iFile);
    sStoreUtils.WriteIniStr(sSection, 'BevelWidth', IntToStr(sHintManager1.HintKind.BevelWidth), iFile);
    sStoreUtils.WriteIniStr(sSection, 'ArrowLength', IntToStr(sHintManager1.HintKind.ExOffset), iFile);
    sStoreUtils.WriteIniStr(sSection, 'MarginH', IntToStr(sHintManager1.HintKind.MarginH), iFile);
    sStoreUtils.WriteIniStr(sSection, 'MarginV', IntToStr(sHintManager1.HintKind.MarginV), iFile);
    sStoreUtils.WriteIniStr(sSection, 'CornRadius', IntToStr(sHintManager1.HintKind.Radius), iFile);
    sStoreUtils.WriteIniStr(sSection, 'MaxWidth', IntToStr(sHintManager1.HintKind.MaxWidth), iFile);
    sStoreUtils.WriteIniStr(sSection, 'PauseHide', IntToStr(sHintManager1.PauseHide), iFile);
    sStoreUtils.WriteIniStr(sSection, 'BorderTop', IntToStr(sHintManager1.HintKind.ColorBorderTop), iFile);
    sStoreUtils.WriteIniStr(sSection, 'BorderBottom', IntToStr(sHintManager1.HintKind.ColorBorderBottom), iFile);

    sStoreUtils.WriteIniStr(sSection, 'ShadowEnabled', IntToStr(integer(sHintManager1.HintKind.ShadowEnabled)), iFile);
    sStoreUtils.WriteIniStr(sSection, 'ShadowColor', IntToStr(sHintManager1.HintKind.ShadowColor), iFile);
    sStoreUtils.WriteIniStr(sSection, 'ShadowBlur', IntToStr(sHintManager1.HintKind.ShadowBlur), iFile);
    sStoreUtils.WriteIniStr(sSection, 'ShadowOffset', IntToStr(sHintManager1.HintKind.ShadowOffset), iFile);
    sStoreUtils.WriteIniStr(sSection, 'ShadowTransparency', IntToStr(sHintManager1.HintKind.ShadowTransparency), iFile);

    sStoreUtils.WriteIniStr(sSection, 'Color', IntToStr(sHintManager1.HintKind.Color), iFile);
    sStoreUtils.WriteIniStr(sSection, 'Transparency', IntToStr(sHintManager1.HintKind.Transparency), iFile);
    sStoreUtils.WriteIniStr(sSection, 'Texture', sHintManager1.HintKind.TextureFile, iFile);
    sStoreUtils.WriteIniStr(sSection, 'TexturePercent', IntToStr(sHintManager1.HintKind.TexturePercent), iFile);
    sStoreUtils.WriteIniStr(sSection, 'GradientPercent', IntToStr(sHintManager1.HintKind.GradientPercent), iFile);
    sStoreUtils.WriteIniStr(sSection, 'GradientData', sHintManager1.HintKind.GradientData, iFile);

    sStoreUtils.WriteIniFont(sSection, 'Font', sHintManager1.HintKind.Font, iFile);

    iFile.UpdateFile;

[Support]

Вот здесь я просто скопипастил код из дизайнера
Загрузка из файла :

CODE

…
  iFile := TMemIniFile.Create(FileName);
  sHintManager1.HintKind.Style := aHintStyles[sStoreUtils.ReadIniInteger(sSection, 'Style', 0, iFile)];
  sHintManager1.HintKind.BevelWidth := sStoreUtils.ReadIniInteger(sSection, 'BevelWidth', 1, iFile);
  sHintManager1.HintKind.ExOffset := sStoreUtils.ReadIniInteger(sSection, 'ArrowLength', 0, iFile);

  sHintManager1.HintKind.MarginH := sStoreUtils.ReadIniInteger(sSection, 'MarginH', 4, iFile);
  sHintManager1.HintKind.MarginV := sStoreUtils.ReadIniInteger(sSection, 'MarginV', 4, iFile);
  sHintManager1.HintKind.Radius := sStoreUtils.ReadIniInteger(sSection, 'CornRadius', 1, iFile);
  sHintManager1.HintKind.MaxWidth := sStoreUtils.ReadIniInteger(sSection, 'MaxWidth', 200, iFile);
  sHintManager1.PauseHide := sStoreUtils.ReadIniInteger(sSection, 'PauseHide', 5000, iFile);
  sHintManager1.HintKind.ColorBorderTop := sStoreUtils.ReadIniInteger(sSection, 'BorderTop', 1, iFile);
  sHintManager1.HintKind.ColorBorderBottom := sStoreUtils.ReadIniInteger(sSection, 'BorderBottom', 1, iFile);

  sHintManager1.HintKind.ShadowEnabled := boolean(sStoreUtils.ReadIniInteger(sSection, 'ShadowEnabled', 0, iFile));
  sHintManager1.HintKind.ShadowBlur := sStoreUtils.ReadIniInteger(sSection, 'ShadowBlur', 4, iFile);
  sHintManager1.HintKind.ShadowOffset := sStoreUtils.ReadIniInteger(sSection, 'ShadowOffset', 6, iFile);
  sHintManager1.HintKind.ShadowTransparency := sStoreUtils.ReadIniInteger(sSection, 'ShadowTransparency', 50, iFile);

  sHintManager1.HintKind.Color := sStoreUtils.ReadIniInteger(sSection, 'Color', ColorToRGB(clWhite), iFile);
  sHintManager1.HintKind.Transparency := sStoreUtils.ReadIniInteger(sSection, 'Transparency', 0, iFile);
  sHintManager1.HintKind.TextureFile := sStoreUtils.ReadIniString(sSection, 'TextureFile', iFile);
  if FileExists(sHintManager1.HintKind.TextureFile) then sHintManager1.HintKind.Texture.LoadFromFile(sHintManager1.HintKind.TextureFile);
  sHintManager1.HintKind.TexturePercent := sStoreUtils.ReadIniInteger(sSection, 'TexturePercent', 0, iFile);
//  sHintManager1.HintKind.GradientPercent := sStoreUtils.ReadIniInteger(sSection, 'GradientPercent', 0, iFile);
  sHintManager1.HintKind.GradientData := sStoreUtils.ReadIniString(sSection, 'GradientData', iFile);

  sStoreUtils.ReadIniFont(sSection, 'Font', sHintManager1.HintKind.Font, iFile);
  sHintManager1.Predefinitions := shCustom;
  …

[Author]

Posts