function IntToByte for Delphi7

[beegl]

Здраствуйте. Надо function IntToByte для Delphi7, поделитесь, если есть такая

[Serge_Bliznykov]

позвольте полюбопытствовать, а что, по вашему, должна делать эта функция?!
если переводить число в байт, то обычного присвоения байтовой переменной вполне достаточно (если, конечно, значение целого числа лежит в диапазоне от 0 до 255).
если же что-то другое ожидается, то внимательно слушаю Вас...

[beegl]

ошибка компиляции модуля sFrameAdapter.pas компонентов AlphaControls v8.11

               if Frame.Parent <> nil
                  then Message.Result := SendMessage(Frame.Parent.Handle, SM_ALPHACMD, MakeWParam(0, AC_GETCONTROLCOLOR), 0)
                  else Message.Result := LRESULT(ColorToRGB(Frame.Color));
                // Mixing of colors
                C1.C := TColor(Message.Result);
                C2.C := SkinData.SkinManager.gd[SkinData.Skinindex].Color;
                C1.R := IntToByte(((C1.R - C2.R) * SkinData.SkinManager.gd[SkinData.Skinindex].Transparency + C2.R shl 8) shr 8);
                C1.G := IntToByte(((C1.G - C2.G) * SkinData.SkinManager.gd[SkinData.Skinindex].Transparency + C2.G shl 8) shr 8);
                C1.B := IntToByte(((C1.B - C2.B) * SkinData.SkinManager.gd[SkinData.Skinindex].Transparency + C2.B shl 8) shr 8);
                Message.Result := LRESULT(C1.C);

[Error] sFrameAdapter.pas(248): Undeclared identifier: 'IntToByte'
[Fatal Error] sAlphaGraph.pas(85): Could not compile used unit 'sFrameAdapter.pas'

[Аватар]

Не это ли имеется ввиду (о функции такой не слышал, самоделка):

function IntToByte(Value:Integer): Byte;
begin
  if Value<0 then Result:=0
  else if Value>255 then Result:=255
  else Result:=Value;
end;

Возможен и вариант Value mod 256

[beegl]

можно и так:

function IntToByte(Value:Integer): Byte;
begin
result := Byte( v shr 8);
end;

без колебания 0-255

[Пепел Феникса]

это уже не то вообще то.

[Аватар]

Сообщение от beegl

без колебания 0-255

А для отрицательных или больших 65535?

[beegl]

Сообщение от Аватар

А для отрицательных или больших 65535?

Если мое наблюдение было правильным, на код не будет отрицательных чисел вообще.