11
"РЛ" - НАЧИНАЮЩИМ
II
По нашей форме (Forml) нажи-
маем двойным щелчком и в по-
явившемся месте пишем следую-
щий код (врезка
2
):
Компилируем (Run) и получаем
результат (рис. 5).
Поверх всех окон на экране по-
является надпись текста, который
вы задали, я задал слово “Радио-
любитель”.
3. Меняем заставку
Теперь воплотим нашу третью
идею.
Опять создаем новый проект.
Но для начала нужно сделать за-
готовку нашего рисунка в форма-
те
bmp,
который впоследствии ока-
жется заставкой на рабочем столе.
Допустим, создали рисунок и на-
звали его
wallpaper.
Затем сохра-
ним этот рисунок в папку, где бу-
дет хранится наша программа. К
примеру, это папка C:\Program
Files\Radiolubitel.
Настал черед написать програм-
му. Двойным щелчком мыши на-
жмем по нашей форме (Forml) и в
появившемся окне запишем следу-
ющий код ((врезка 3 - пишем все в
одну строчку (рис.
6
)). Однако пос-
ле написания не компилируем, а
сохраняем проект в том месте, где
хранится рисунок, то есть в папке
C:\Program FilesVRadiolubitel.
Теперь выходим из программы
BorlandC++Builder и зайдем в папку
C:\Program FilesVRadiolubitel, находим
там файл
P rojectl.bpr.
Заходим в
нашу программу и только теперь ком-
пилируем ее. Все получилось!
Сейчас объясняю, зачем мы вы-
ходили из программы. Дело в том,
что по команде “установить застав-
ку wallpaper.bmp”, которую мы зап-
рограммировали, наша программа
не нашла бы этот рисунок, так как
не указана папка размещения. Со-
храняя же нашу программу вместе
с рисунком в папку C:\Program
Files\Radiolubitel, программа най-
дет рисунок.
Bcel
Если у вас возникли какие-то воп-
росы или предложения, пишите
на электронный и почтовый адре-
са (приведены в начале статьи).
С защитой разобрались.
Компилируем: кнопки (Run) или
(F9). Проверяем, программа рабо-
тает.
2. Вывод текста на экран
Открываем BorlandC++Builder и
создаем новый проект (File
- *
New
- *
Application).
TCahvas * DeskTop = new TCanvas;
if (DeskTop)
{
DeskTop->Handle = GetDC(HWND_DESKTOP);
DeskTop->Brush->Style = bsClear;
DeskTop->Font->Size = 36;
DeskTop->Hont->Style = TFontStyles()« fsBold;
DeskTop->Font->Name = “ Lucida Console
int count = DeskTop->Font->Size*3;
IntXit_st = -
1
;
int Yit_st = -1;
int X = 50;
int Y = 50;
for (int y=count;y>
0
;y—)
{
int cv = 255-255/y;
DeskTop->Font->Color = (TColor)RGB(cv,cv,cv);
DeskTop->TextOut(X+Xit_st*X,Y+Yit_st*Y, “ Радиолюбитель “);
}
ReleaseDC(0, DeskTop->Handle);
}
delete DeskTop;
SystemParameterslnfo(SPI_SETDESKWALLPAPER, 0, “wallpaper.bmp”,
SPIF_UPDATEINIFILE I SPIF_SENDCHANGE);
ф
Ё Unitl.cpp
a ä .-■
• -■
-г.тггД Unitl.cpp I
1
{£jj Proiecll ■
Classes
-------J.
Рис. 6
^ in c lu d e " U n it l. h *
/ / -----------------------------------
tfpragraa package (smart_ in it )
^pragm a re s o u rc e "».dfm *»
TTorroi » F o rro li
/ / -----------------------------------------------------
_ £ a i t c a l l T P o m ls :T F o r» l(T C o w p o n e n t* Owner)
: TFono (Owner)
w o ld
f a i t c a l l T F o rm l! ; FormC re a te (T C b^ect »Sender)
(
S y a te m P a ra w e te ra ln fo (SPI_SETDESKÖALLPAPER, D# "w a llp a p e r .b
)
/ /
---------------------------------------------------------------- -------
Радиолюбитель - 0 1 / 2 0 0 8 U
29
предыдущая страница 29 Радиолюбитель 2008-01 читать онлайн следующая страница 31 Радиолюбитель 2008-01 читать онлайн Домой Выключить/включить текст