VPF::Как выдавить текст - Форум программистов

Poseidon

Дата 19.5.2005, 00:41 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: нет
Всего: 133

Чтобы сделать текст выпуклым, нужно за светло-серой надписью разместить точно такие же надписи, только белую чуть левее и выше и светло-серую чуть правее и ниже.

Приведенная ниже программа выводит выпуклый текст, который вдавливается при нажатии.

Код

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;

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »