well in my forms i want the writeing to be on a black background how do i do this?


well in my forms i want the writeing to be on a black background how do i do this?
Like this?
SCAR Code:program New;
var
Form : TForm;
Button : TButton;
PickThaColor : TColorPicker;
Edit : TEdit;
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);
// Form.Color := 0;
Button := TButton.Create(form);
Button.Parent := Form;
Button.OnClick := @OnClick;
Button.Caption := 'Color picker please?';
Button.SetBounds(75,75,150,25);
Edit := TEdit.Create(Form);
Edit.SetBounds(50,50,150,50);
Edit.Parent := Form;
Edit.Color := 0;
Edit.Font.Color := clwhite;
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


ermm isnt that hte color picker in my other thread?


ok ty
EDIT: 2 questins
1) i want a black ground for the whole of the form how i do that ?
2) when i pick the color how do i make it go into the edit box?
ty
Here you go:
SCAR Code:program New;
var
Form : TForm;
Button : TButton;
PickThaColor : TColorPicker;
Edit : TEdit;
Procedure WriteThaColor(Sender: TObject; Color, X, Y: Integer);
begin;
WriteLn('Color Picked: '+inttostr(Color) +' at ('+inttostr(x) + ', '+inttostr(Y) + ')');
Edit.Text := inttostr(Color);
end;
procedure OnClick(Sender: TObject);
begin;
PickThaColor.Pick;
end;
Procedure SafeStart;
begin;
Form := CreateForm;
Form.SetBounds(50,50,250,250);
Form.Color := 0;
Button := TButton.Create(form);
Button.Parent := Form;
Button.OnClick := @OnClick;
Button.Caption := 'Color picker please?';
Button.SetBounds(75,75,150,25);
Edit := TEdit.Create(Form);
Edit.SetBounds(50,50,150,50);
Edit.Parent := Form;
// Edit.Color := 0;
// Edit.Font.Color := clwhite;
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


thanks man + rep![]()
Your welcome.
Verrekte Koekwous
There are currently 1 users browsing this thread. (0 members and 1 guests)