Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
Автор: AVS (30.11.2007 в 13:25) Реализовал вот так, внутри таймера (чтобы было анимацией):
PLOGFONT font=(PLOGFONT) LocalAlloc(LPTR,sizeof(LOGFONT)); font->lfWeight=FW_NORMAL; Main->Caption="X: "+IntToStr(x)+"; Y: "+IntToStr(y)+" | "+IntToStr(grad/10)+" градусов"; font->lfEscapement=grad; SelectObject(Image->Canvas->Handle,CreateFontIndirect(font)); Image->Canvas->Brush->Color=clWhite; Image->Canvas->Rectangle(0,0,Image->Width,Image->Height); Image->Canvas->TextOut(x,y,Edit->Text.c_str()); if(i<36) { if(RB2->Checked) { grad+=100; } else { grad-=100; } i++; } else { Timer->Enabled=false; Edit->Enabled=true; return; }
PLOGFONT font=(PLOGFONT) LocalAlloc(LPTR,sizeof(LOGFONT));
SelectObject(Image->Canvas->Handle,CreateFontIndirect(font));
Ваше имя:
Пароль:
Цитировать Используйте тэги для выделения текста: Код: [code][/code] Жирный: [b][/b] Наклонный: [i][/i] URL: [url][/url]
Сообщение:
Прикрепить: