Отправляет email-рассылки с помощью сервиса Sendsay

Программирование от Судьи [www.del5.da.ru]

Подписаться Бесплатная новостная рассылка Подписчиков 23 RSS
←   Июнь 2002   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30


За последние 60 дней ни разу не выходила


Открыта: 04-03-2002

Автор
Sudiya

Статистика

23 подписчиков
0 за неделю
←   Все выпуски   →

Программирование от Судьи [www.del5.da.ru] Выпуск от 10/06/2002 года


Информационный Канал Subscribe.Ru

- От Судьи -

 

- Основное месторасположение [http://del5.da.ru]

- Зеркало сайта [http://del50.by.ru]

- Mailto: [wadim274@permonline.ru]

 

Доброго времени суток, господа коллеги!

*****************************************

 

================================================================================

Выдавить текст

 

const
s = 'It is a text string';
ColDark = clGray;
ColNorm = clSilver;
ColLight = clWhite;
XPos = 10;
YPos = 10;
dx = 1;
dy = 1;

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Canvas.Brush.Style := bsClear;
with Form1.Canvas.Font do begin
Name := 'Arial';
Size := 20;
Style := [fsBold];

end;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
with Form1.Canvas do begin
Font.Color := ColDark;
TextOut(XPos - dx, YPos - dy, s);
Font.Color := ColLight;
TextOut(XPos + dx, YPos + dy, s);
Font.Color := ColNorm;
TextOut(XPos, YPos, s);
end;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);
begin
with Form1.Canvas do begin
Font.Color := ColLight;
TextOut(XPos - dx, YPos - dy, s);
Font.Color := ColDark;
TextOut(XPos + dx, YPos + dy, s);
Font.Color := ColNorm;
TextOut(XPos, YPos, s);
end;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
Form1.MouseUp(mbLeft, [], 0, 0);
end;

================================================================================

 

Новости нашего сайта:

В данный момент новостей нет...

Ссылки на дружественные сайты:
В данный момент нет никаких ссылок:

На последок:

- Анекдот

В автобусе пожилой, но игриво настроенный француз сидит напротив
дамы, которая не скрывает красивые ножки.
- Даю сто франков, мадам, если вы немного приподнимете свою юбочку,
шепчет он.
Дама с улыбкой приподнимает и, получив обещанное, прячет купюру в
сумочку и добавляет:
- Еще столько, и я покажу вам то место, где мне вырезали аппендици 
т...
Мсье тотчас вручает ей еще одну купюру.
- Вот здесь, - говорит дама и показывает в окно на клинику, мимо
которой они проезжают.

http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное