Друзья!
Поздравляю вас всех с Новым Годом!
Желаю всем вам здоровья, счатья и благополучия в наступившем 2016 году!
Пожелаю всем нам успехов в наших делах, проектах, разработках!
Чтобы все у нас с вами сложилось)
Отдельно хочу поздравить Бровина Ярослава и Ефимова Андрея!
Пожелать Вам, ребята, и Вашим близким, успехов и благополучия!
Еще раз - с Новым Годом!
p.s. Надеюсь не забанят за то, что "не в тему" )))
R := 80;
Canvas.BeginScene();
Alpha := ((Sender as TPie).EndAngle+(Sender as TPie).StartAngle)/2;
dX := (Sender as TPie).Width /2+ R * Cos(DegToRad(Alpha));
dY := (Sender as TPie).Height/2 +R * Sin(DegToRad(Alpha));
rct.Create(dX-5,dY-5,dX+5,dY+5);
Canvas.DrawEllipse(rct,100);
Canvas.EndScene();
В следующей версии я как раз планировал добавить событие OnClose и OnShow
Подумаю на счет Windows и OSX реализации
В текущей реализации, только при помощи правок исходников. Обсуждение тут
function GetParentForm(o:TFmxObject):TForm;
var p:TFmxObject;
begin
result := nil;
p:=o.parent;
while (p<>NIL)and(not (p is tform)) do
p:=p.parent;
if p<>NIL then
result := P as TForm;
end;