Colour Picker

[Madboy]

My old VB Colour Picker code, now i converted it to Delphi:

procedure TfrmColourPicker.GetRGB;
var
R: Integer;
G: Integer;
B: Integer;
begin
R:= RGBScroller0.Position;
G:= RGBScroller1.Position;
B:= RGBScroller2.Position;
panMain.Color:= RGB(R, G, B);
//Get RGB values
lblRed.Caption:= intTostr(RGBScroller0.Position);
lblGreen.Caption:= intTostr(RGBScroller1.Position);
lblBlue.Caption:= intTostr(RGBScroller2.Position);
panMain.SetFocus;
end;