И снова про ресурсы.. Авишка из Shell32.dll

sqvidler
Дата: 05.12.2007 10:53:56
Нашел у самого себя следующий код:
Animate.ResName := 'SearchGlobe';
Animate.Active := True;
Пошел разбираться, как эта беда грузится.
Наткнулся вот на это:
function TAnimate.GetActualResId: Integer;
const
  CommonAVIId: array[TCommonAVI] of Integer = (0, 150, 151, 152, 160, 161, 162,
    163, 164);
begin
  if FCommonAVI <> aviNone then Result := CommonAVIId[FCommonAVI]
  else if FFileName <> '' then Result := Integer(FFileName)
                                         ^^^^^^^^^^^^^^^^^^
  else if FResName <> '' then Result := Integer(FResName)
                                        ^^^^^^^^^^^^^^^^^^
  else Result := FResId;
end;
Ничё не понимаю. Какой глубокий смысл в "подчеркнутых" преобразованиях???
Johnmen
Дата: 05.12.2007 11:22:04
Т.е. когда ты писал этот код, был под глубоким гипнозом?
RENaissance
Дата: 05.12.2007 11:29:19
Johnmen

Т.е. когда ты писал этот код, был под глубоким гипнозом?



Posted via ActualForum NNTP Server 1.4

sqvidler
Дата: 05.12.2007 11:41:12
Johnmen
Т.е. когда ты писал этот код, был под глубоким гипнозом?

К сожалению (или к счастью? ), код из TAnimate.GetActualResId - из модуля ComCtrls.
Johnmen
Дата: 05.12.2007 11:46:34
Просто это адрес строки в интегер виде. Он уникален для "одинаковых" строк...