Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице. Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.
02-05-2005 05:37 | Сообщение от автора вопроса
Исправил - в исходном тексте компонента почему-то не было процедуры регистрации класса.
В раздел interface надо вставить
procedure Register;
В implementation:
procedure Register;
begin
RegisterComponents('Math', [TMathLabel]);
end;
У меня возникла проблема при установке MathLabel - Delphi 7 пишет, что компонент установлен, но его просто нет (View - Component List пишет, что TMatlLabel не найден)
Это установит для заголовков аглийский вариант символов DOS. Среди них есть вторая степень(#178),третья(#179) и нек. другие матем. символы (ограниченный, правда, набор). Узнать, какие там ещё есть символы можно так (label1 - TLabel, поля свойства Font установлены так, как написано выше):
label1.Caption:='';
for f:=0 to 255 do
label1.Caption:=label1.Caption+chr(f);
Также можно поэкспериментировать с другими шрифтами (Symbol,Webdings,Wingdings,...), но набор матем. символов будет всё равно ограничен
Например, такой код
with Memo1 do
begin
Font.Name := 'Terminal';
Font.Charset := 0; // ANSI characters
Font.Size := 14;
Caption := '';
for i := 0 to 255 do
Text := Text + IntToStr(i) + ': ' + Chr(i) + #13#10;
end;
мне вывел, что #178 - это l, а #179 - это i
Но кроме второй и третей степеней мне нужны и "x в степени t+j" и т. п.
Ещё вариант:
DBGrid.TitleFont.Name:='Terminal';
DBGrid.TitleFont.CharSet:='ANSI_CHARSET';
DBGrid.TitleFont.Size:=14;//хотя эта строка не обязательна
Это установит для заголовков аглийский вариант символов DOS. Среди них есть вторая степень(#178),третья(#179) и нек. другие матем. символы (ограниченный, правда, набор). Узнать, какие там ещё есть символы можно так (label1 - TLabel, поля свойства Font установлены так, как написано выше):
label1.Caption:='';
for f:=0 to 255 do
label1.Caption:=label1.Caption+chr(f);
Также можно поэкспериментировать с другими шрифтами (Symbol,Webdings,Wingdings,...), но набор матем. символов будет всё равно ограничен
Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter. Функция может не работать в некоторых версиях броузеров.