Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.08.12;
Скачать: [xml.tar.bz2];

Вниз

!!! Компонент. Помогите !!!   Найти похожие ветки 

 
V.Turecky   (2002-07-30 14:54) [0]

Здравствуйте.

Пожалуйста, помогите разобратся с компонентом. Он отказываеться компилироватся, выдает ошибку. Я прокоментировал где именно.

unit glSmallFontsDefence;
{
Если у пользователя установлен крупный шрифт,
компонент автоматически использует в программе
шрифт Arial за счет чего размер шрифта не
увеличивается. При этом он также следит, чтобы
и размеры формы не изменялись.
}
interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
TglSmallFontsDefence = class(TComponent)
private
procedure UpdateFonts(Control: TWinControl);
{ Private declarations }
protected
procedure Loaded; override;
public
constructor Create(AOwner: TComponent); override;
published
{ Published declarations }
end;

procedure Register;

implementation

function IsSmallFonts: boolean;{Значение функции TRUE если мелкий шрифт}
var DC: HDC;
begin
DC:=GetDC(0);
Result:=(GetDeviceCaps(DC, LOGPIXELSX) = 96);
{ В случае крупного шрифта будет 120}
ReleaseDC(0, DC);
end;

procedure Register;
begin
RegisterComponents("Controls", [TglSmallFontsDefence]);
end;

{ TglSmallFontsDefence }

constructor TglSmallFontsDefence.Create(AOwner: TComponent);
begin
inherited;
if (Owner is TForm) then (Owner as TForm).Scaled := false;
end;

procedure TglSmallFontsDefence.Loaded;
begin
inherited;
if (Owner is TForm) then (Owner as TForm).Scaled := false;
if csDesigning in ComponentState then
begin
if not IsSmallFonts then
ShowMessage("Проектирование приложения в режиме крупных" +
" шрифтов недопустимо!"#13#10+
"Компонент TglSmallFontsDefence отказывается" +
" работать в таких условиях.");
end else
UpdateFonts((Owner as TForm));
end;

procedure TglSmallFontsDefence.UpdateFonts(Control: TWinControl);
var
i: integer;
fnt:Tfont;
procedure UpdateFont(Font: TFont);
begin
if CompareText(Font.Name, "MS Sans Serif") <> 0 then exit;
Font.Name := "Arial";
end;
begin
if IsSmallFonts then exit;

//Эта строка неработает. Компилятор не может идентифицировать TShowFont?
UpdateFont(TShowFont(Control).Font);

with Control do
for i:=0 to ControlCount-1 do
begin

//Здесь такая-же ситуация и по-моему, ешё чего-то неправильно.
UpdateFont(TShowFont(Controls[i]).Font);

if Controls[i] is TWinControl then UpdateFonts(Controls[i] as TWinControl);
end;

end;


end.


 
DiamondShark   (2002-07-30 15:17) [1]

Дык в тексте идентификатор TShowFont больше нигде не наблюдается, а телепаты в отпуске.


 
V.Turecky   (2002-07-30 16:00) [2]


> Дык в тексте идентификатор TShowFont больше нигде не наблюдается,
> а телепаты в отпуске.


Т.е никак?



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.08.12;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.035 c
3-35157
Прытков В.А.
2002-07-21 03:29
2002.08.12
Скорость Apollo VCL 5.2


3-35134
RDA
2002-07-20 20:24
2002.08.12
Простой вопрос


1-35269
V.Turecky
2002-07-31 12:53
2002.08.12
Информация о памяти.


14-35433
ghremlin
2002-07-17 15:08
2002.08.12
VBA


4-35500
Max2000
2002-06-04 12:48
2002.08.12
Как как на API открывать и закрывать доступ к диску или папке.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский