Нарисовать солнце с лучами
Автор Елена Поддубная задал вопрос в разделе Другие языки и технологии
Как нарисовать солнце с лучами в Лазарус? и получил лучший ответ
Ответ от
Ты помоему не в ту тему попал, какое солнце, тут программирование
Андрей Афанасьев
(724)
ясно. так бы и написать, тебе в paint нарисовать надо ? 😀
Ответ от Антон Полудужка[гуру]
лучи невидимы, а значит тебе нужно рисовать какие то предметы которые будут отбрасывать тень, что бы по этой тени можно было определить куда и как светит сонце
лучи невидимы, а значит тебе нужно рисовать какие то предметы которые будут отбрасывать тень, что бы по этой тени можно было определить куда и как светит сонце
Ответ от CLazStudio[гуру]
procedure TForm1.FormPaint(Sender: TObject); var i: integer;begin  Form1.Canvas.Brush.Color := clYellow;  for i := 0 to 5 do  begin    Form1.Canvas.Line(100 + Round(100*Cos(PI*i/6)),                      100 + Round(100*Sin(PI*i/6)),                      100 - Round(100*Cos(PI*i/6)),                      100 - Round(100*Sin(PI*i/6));  end;  Form1.Canvas.EllipseC(100, 100, 75, 75);end;
procedure TForm1.FormPaint(Sender: TObject); var i: integer;begin  Form1.Canvas.Brush.Color := clYellow;  for i := 0 to 5 do  begin    Form1.Canvas.Line(100 + Round(100*Cos(PI*i/6)),                      100 + Round(100*Sin(PI*i/6)),                      100 - Round(100*Cos(PI*i/6)),                      100 - Round(100*Sin(PI*i/6));  end;  Form1.Canvas.EllipseC(100, 100, 75, 75);end;
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Как нарисовать солнце с лучами в Лазарус?