well like in santys autofigter he has a button in his form what says pick then when you click it , it goes to the colorpicker button how do i do this?


well like in santys autofigter he has a button in his form what says pick then when you click it , it goes to the colorpicker button how do i do this?
SCAR Code:procedure ThePicker(Sender: TObject);
begin
PickColor(x, y, color);
end;
Interested in C# and Electrical Engineering? This might interest you.


Thanks i can work it out form here![]()
Like this?
SCAR Code:program New;
var
Form : TForm;
Button : TButton;
PickThaColor : TColorPicker;
Procedure WriteThaColor(Sender: TObject; Color, X, Y: Integer);
begin;
WriteLn('Color Picked: '+inttostr(Color) +' at ('+inttostr(x) + ', '+inttostr(Y) + ')');
end;
procedure OnClick(Sender: TObject);
begin;
PickThaColor.Pick;
end;
Procedure SafeStart;
begin;
Form := CreateForm;
Form.SetBounds(50,50,250,250);
Button := TButton.Create(form);
Button.Parent := Form;
Button.OnClick := @OnClick;
Button.Caption := 'Color picker please?';
Button.SetBounds(75,75,150,25);
PickThaColor := TColorPicker.Create(form);
PickThaColor.OnPick := @WriteThaColor;
Form.ShowModal;
end;
Procedure LoadMe;
var
V : TVariantArray;
begin;
Try
ThreadSafeCall('safestart',v);
except
end;
end;
begin
LoadMe;
end.
Verrekte Koekwous


i had a different idea but that could work![]()
There are currently 1 users browsing this thread. (0 members and 1 guests)