Самая тяжелая профессия - быть человеком. Это действительно, самая тяжелая профессия, так как не каждый может быть им. Человеком не появляются - им становятся.
Человеком может стать каждый. Необходимо только выучиться им быть: вырасти, набратся опыта пожилым, а так же и сверстникам, и остальным. Оборонять слабых. Попытаться прожить жизнь, без вредных повадок. Не дерзить, почитать старших, почитать суждения иных, слушать, созидать и тому сходственное.
Я размышляю, меньше всего шансов стать человеком у тех, кто делает все напротив вышесказанному. Я встречал малюсенько истинных людей, их вообщем то, мало осталось, но время все меняет. Меняет окружающую среду, меняет технологии, меняет и людей.
Стать человеком, могут все без исключения, основное поверить, и не лениться.
Procedure TForm1.Button1Click(Sender: TObject); begin If FontDialog.Execute then RichEdit1.SelAttributes.Assign(FontDialog1.Font); RichEdit1.SetFocus; End; end;
делфи у меня не установлены за совершенной ненадобностью, потому проверить возможности нет, но догадки показать могу. Не уверенна что RichEdit1.SelAttributes.Assign(FontDialog1.Font) выставляет шрифт, может там нужна кострукция типа RichEdit1.SelAttributes.Font := FontDialog1.Font и конечно описка выделенная ранее, как на нее только компилятор не матерится
Самая тяжелая профессия - быть человеком. Это действительно, самая тяжелая профессия, так как не каждый может быть им. Человеком не появляются - им становятся.
Человеком может стать каждый. Необходимо только выучиться им быть: вырасти, набратся опыта пожилым, а так же и сверстникам, и остальным. Оборонять слабых. Попытаться прожить жизнь, без вредных повадок. Не дерзить, почитать старших, почитать суждения иных, слушать, созидать и тому сходственное.
Я размышляю, меньше всего шансов стать человеком у тех, кто делает все напротив вышесказанному. Я встречал малюсенько истинных людей, их вообщем то, мало осталось, но время все меняет. Меняет окружающую среду, меняет технологии, меняет и людей.
Стать человеком, могут все без исключения, основное поверить, и не лениться.
begin
If FontDialog.Execute then
RichEdit1.SelAttributes.Assign(FontDialog1.Font);
RichEdit1.SetFocus;
End;
end;
делфи у меня не установлены за совершенной ненадобностью, потому проверить возможности нет, но догадки показать могу.
Не уверенна что RichEdit1.SelAttributes.Assign(FontDialog1.Font) выставляет шрифт, может там нужна кострукция типа
RichEdit1.SelAttributes.Font := FontDialog1.Font
и конечно описка выделенная ранее, как на нее только компилятор не матерится