Forum Replies Created
-
Posts
-
'TCount' wrote:
К сожалению, на офсайте я не нашел ссылок для скачивания версий, ниже 16…
Вот вам ссылка на триал версию
'TCount' wrote:RichView версии 14-15? 😮
Где же Вы его накопали?))) Я еле нашел 11-й версии)
С официального сайта можно скачать без проблем. Правда триал (TRichView v16.0.1 (trial)), но смотря какие задачи стоят…
Ну а если, что то серьезно-комерческое, то уже стоит задуматься над приобретением.
Порылся, нашел старую верси исходников. А там…
В общем КАПЕЦ… Типа идет проверка версии, и высер сообщения, в любом случае!..
Интересно в новой версии эту БЕДУ поправили??? Кто знает???
procedure TsSkinManager.CheckVersion;
var
i: integer;
b: boolean;
begin
if (CommonSkinData.Version < CompatibleSkinVersion) then begin
if not (csDesigning in ComponentState) then begin
b := False;
if ParamCount > 0 then
for i := 1 to ParamCount do
if LowerCase(ParamStr(i)) = '/actest' then begin
b := True;
break;
end;
if not b then
Exit;
end;
ShowMessage('You are using an old version of the “' + SkinName + '” skin. ' +
'Please, update skins to latest or contact the AlphaControls support for upgrading of existing skin.' + s_0D0A + s_0D0A +
'This notification occurs in design-time only for your information and will not occur in real-time.')
end
else
if CommonSkinData.Version > MaxCompSkinVersion then begin
b := srStdDialogs in SkinningRules;
SkinningRules := SkinningRules – [srStdDialogs];
MessageDlg('This version of the skin have not complete support by used AlphaControls package release.' + s_0D0A +
'Components must be updated up to latest version for using this skin.', mtWarning, [mbOk], 0);
if b then
SkinningRules := SkinningRules + [srStdDialogs];
end;
end;
