{{notification.text}}

MirGames

28.01.08 00:47
0
Пример.
Вот думаю, есть компонент, который выводит числа в таком стиле или самому писать?
#1
28.01.08 01:05
0
Есть наверно компонент, насколько я помню к KOL был такой. А вообще-то, и самому написать легко, я делал так:
Код

procedure TForm1.SetNumber(Number: string);
var
  i: integer;
begin
  for i:=Length(Number) downto 1 do
    case Number[i] of
      #32: Number[i]:=#59;
      #48..#58:;
      else Delete(Number, i, 1);
    end;
  if Length(Number)>5 then Delete(Number, 6, MaxInt);
  Image1.Canvas.FillRect(Image1.ClientRect);
  for i:=1 to Length(Number) do
    ImageList1.Draw(Image1.Canvas, (i-1)*24+24*(5-Length(Number)), 0, Ord(Number[i])-48);
  Image1.Refresh;
end;

ImageList1 содержит изображения цифр (24 пикселя шириной - ширина тут хардкодом зашита, символы 1..9, 0, : пробел). Image1 - Image (впрочем можно и другой компонент) для отрисовки, шириной в 5 символов (тоже хардкодно задано).
#2
28.01.08 01:08
0
Впрочем, вот вся демка (точнее тест :) ):
SegDig.7z
#3
Mirage
28.01.08 01:32
0
Поищи по ключевому слову LED на Torry.
#4
28.01.08 01:39
0
Цитата(Mirage @ Сегодня, 23:32)
[snapback]74363[/snapback]
ключевому слову LED

Точно, еще можно по слову LCD.
#5
28.01.08 01:45
0
Vga
Блин, забыл сказать, что без ресов работало и масштобыровать можно было. Хатя... пока так оставлю.
Спасибо!
#6
28.01.08 01:49
0
Adler
Посмотри процедуру AssaultLite->StateMenu.TStateMenu.DrawSegs, там отрисовка 11-сегментных, легко превращается в отрисовку 7-сегментных :) Такой как у тебя таким методом отрисовать на GDI не проблема.
#{{post.Index}}
{{post.Author.Login}}
{{post.CreatedDate | date:'dd.MM.yy HH:mm'}}
{{post.VotesRating}}
Отредактировано: {{post.UpdatedDate | date:'dd.MM.yy HH:mm'}}