Рассылка закрыта
При закрытии подписчики были переданы в рассылку "Программирование в Delphi" на которую и рекомендуем вам подписаться.
Вы можете найти рассылки сходной тематики в Каталоге рассылок.
СообЧА. Программирование на Delphi
|
|
Вот, весьма интересный код
procedure MyRotateText(CV : TCanvas; sText:String;
X, Y, Angle:Integer); {угол в
градусах}
VAR LogFont : TLogFont;
BEGIN
GetObject(CV.Font.Handle, SizeOf(TLogFont), @LogFont);
LogFont.lfEscapement:= Angle*10;
CV.Font.Handle := CreateFontIndirect(LogFont);
CV.TextOut(X,Y,sText);
END;
К примеру, при задании угла Angle = -90, тект выведется вертикально по направлению сверху вниз. ) Как только я присвою свойству Handle новый шрифт, старый уничтожается, правильно? А для восстановления оригинальных установок мне необходимо восстановить предыдущий шрифт, правильно? Есть простое решение для сохранения оригинального шрифта...
SaveFont: TFont;
SaveFont := TFont.Create;
SaveFont.Assign (CV.Font);
CV.Font := CreateFontIndirect (....)
(....)
CV.Font.Assign (SaveFont);
SaveFont.Free;
mailto:Автор:Pixel(pixel@novgorod.net
http://pixelsoft.narod.ru/ )
метод, с помощью которого можно
предотвращать запуск второй копии
приложения.
program pds;uses
Windows,
Forms,
Main in 'MAIN.PAS' {MainForm},
const
MemFileSize=127;
MemFileName='one_example';
var
MemHnd:HWND;
{$R *.RES} begin
MemHnd:=CreateFileMapping(HWND($FFFFFFFF),nil,
PAGE_READWRITE,0,MemFileSize,
MemFileName);
if GetLastError<>ERROR_ALREADY_EXISTS then
begin
Application.Initialize;
with TForm1.Create(nil) do
try
Show;
Update;
Application.CreateForm(TMainForm, MainForm);
finally
Free;
end;
Application.Run;
end else Application.MessageBox('Приложение
уже запущено (возможно оно свёрнуто на
панели задач): Нажмите кнопку ОК для
продолжения работы','Производственно-диспетчерская
служба',MB_OK);
CloseHandle(MemHnd);
end.
mailto:Автор:Pixel(pixel@novgorod.net
http://pixelsoft.narod.ru/ )
|
| Zaluskiy Anton(COOLer) - ведущий проекта "Мир Delphi" |
| http://subscribe.ru/ E-mail: ask@subscribe.ru |
Отписаться
Убрать рекламу |
Рейтингуется SpyLog |
| http://subscribe.ru/
E-mail: ask@subscribe.ru |
Отписаться
Убрать рекламу | Рейтингуется SpyLog |
| В избранное | ||
