Results 1 to 3 of 3

Thread: TColorPicker is confusing the shit out of me X.X

  1. #1
    Join Date
    Jul 2008
    Posts
    79
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default TColorPicker is confusing the shit out of me X.X

    I made a color picker, but how do I get it to save the color that is found. My script-

    {The Procedure}

    Procedure FindColorProcedure (Sender: TObject);
    begin
    TColorPicker1.Pick
    ColorByte.text := IntToStr({what goes here?});
    end;

    {form information}

    FindColorButton := TButton.Create(frmDesign); //Find Color Button
    FindColorButton.Parent := TabPages[2];
    FindColorButton.Left := 300;
    FindColorButton.Top := 140;
    FindColorButton.name :='FindColor';
    FindColorButton.Caption :='Find Color';
    FindColorButton.Width := 100;
    FindColorButton.OnClick := @FindColorProcedure;

    TColorPicker1 := TColorPicker.Create(frmDesign); //TColorPicker

    ColorByte := TEdit.Create(frmDesign); //Color Edit Box
    ColorByte.Parent := TabPages[2];
    ColorByte.Width := 100;
    ColorByte.Top := 400;
    ColorByte.left := 300;

  2. #2
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    scar Code:
    program New;
    var
      Col, X, Y : Integer;

    begin
      PickColor(Col, X, Y);
    end.
    No need to use TColorPicker. ColorByte.Text := IntToStr(Col);


  3. #3
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program New;
    var
      Col, X, Y : Integer;

    begin
      PickColor(Col, X, Y);
      Writeln('Color: '+IntToStr(Col));
    end.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •