Longint conversion - Solved -

[Hacktank]

Is there any way to convert a longint to/from an integer value? Or convert it to an RGB? I need this for a textbox function im making.

Thankyou

[tk]

RGB(R, G, B: byte): longint;

Code: [Select]

var x: longint;

x := RGB(255, 200, 100); // $FFC864

[Hacktank]

I need to convert a longint to a RGB not the other way around.

[iDante]

I need to convert a longint to a RGB not the other way around.

A longint is a RGB. If you want to get the individual components of it then just turn it into hex and take the first 2 characters for R, next 2 for B, etc.

[Hacktank]

Thanks man, but how would I put a longint into that? Is it concidered a string for var use purposes?

[DorkeyDear]

Longint can also has alpha information, but it is sometimes ignored.

Code: [Select]

function ARGB(const Alpha, Red, Green, Blue: longint): longint;
begin
  Result := (Alpha shl 24) or (Red shl 16) or (Green shl 8) or Blue;
end;

function GetAlpha(const Color: longint): longint;
begin
  Result := (Color shr 24) and $FF;
end;

function GetRed(const Color: longint): longint;
begin
  Result := (Color shr 16) and $FF;
end;

function GetGreen(const Color: longint): longint;
begin
  Result := (Color shr 8) and $FF;
end;

function GetBlue(const Color: longint): longint;
begin
  Result := Color and $FF;
end;

procedure ActivateServer();
var
  Color, i: longint;
begin
  Color := $FFEFDFCF;
  WriteLn(InttoStr(GetBlue(Color))); // CF, 207
  WriteLn(InttoStr(GetGreen(Color))); // DF, 223
  WriteLn(InttoStr(GetRed(Color))); // EF, 239
  WriteLn(InttoStr(GetAlpha(Color))); // FF, 255
end;

Some reason when I change the return types to byte, it returns 0. I don't got time to figure out how to fix that atm.

EDIT: Well, some of it I understand... <byte> shr <int> returns byte, but not all of it makes sense to me in the Get<Type> functions

[Hacktank]

Thats awsome Curt!  Thanks, that is exactly what i need.