Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Effect:=TFillRGBEffect.Create(Self);
- Effect.Color:=$80FF0000;
- Effect.Parent:=SomeButton;
- Button:=TColorButton.Create(Self);
- Button.Color:=$80FF0000;
- Text:=TText.Create(Button);
- Text.Parent:=Button;
- Text.Align:=TAlignLayout.alClient;
- Text.Text:='Hello';
- Text.HitTest:=false;
- Button.ClipChildren:=true;
- Button.Parent:=Self;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement