Отправляет email-рассылки с помощью сервиса Sendsay

СообЧА. Программирование на Delphi

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Программирование в Delphi" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Сентябрь 2001   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
26.09.2001
22:01:01
22:36:02
27
28
29
30
Автор
Сергей

Статистика

10.085 подписчиков
-9 за неделю
←   Все выпуски   →

СообЧА. Программирование на Delphi


Служба Рассылок Subscribe.Ru проекта Citycat.Ru
Subscribe.Ru : СообЧА. Программирование на Delphi
Служба Рассылок Subscribe.Ru проекта Citycat.Ru
Технологии карьеры и личностного развития.
Разнообразные материалы по технологиям, методам, способам построения успешной карьеры и личностного (интеллектуального, духовного, физического ...) развития.
Подписаться.   Рассылки Subscribe.Ru


 

Мир Delphi

PixelSoftware

  

Подписчиков: 3720

  
     

.::::: СообЧа - Программирование на Delphi :::::.

 

ї 2000 - 2001COOLer

  

Дизайн: Yoghurt

  
     

Оглавление

 

В выпуске

  

Рассылка СообЧА

  
     
  
Рассылки Subscribe.Ru
СообЧа (СООБщество ЧАйников). Обмен опытом, вопросы, ответы.

  Назад к оглавлению    
   
 

Конкурс и новости рассылки

  
 
   

  • Участвуйте в конкурсе "Статья месяца" и вы выиграете книгу по Delphi от магазина ОЗОН. В конце каждого месяца Вами будет выбран лучший автор, который и получит книгу. Присылайте ваши статьи на  pixel@novgorod.net . Авторов просим строго придерживаться тематики рассылки.

  • Хотите поучаствовать в нашем проекте, вы умеете работать с OpenGL или DX? Присоединяйтесь вместе мы напишем классную RPG ... подробности по адресу  pixel@novgorod.net или http://pixelsoft.narod.ru/ раздел Проект... Желательны(Хотя не обязательны , по ходу сами все поймете) знания Borland C++ Builder или Delphi в сфере графики(или просто кодеры).Все абсолютно свободно freewareно и бесплатно. ПОЛНЫЙ ДОСТУП К НАШИМ ИСХОДНИКАМ.

 
  • В связи с трагедией в США наша рассылка в трауре и ходит будет реже...
  • На правах черного юмора: Мы скорбим о том, что ни один самолет не посетил Microsoft :) 

 

 

  • Нравится ли вам наша рассылка?

    • Да

    Нет

    Не успел оценить

      Назад к оглавлению    
       
     

    Выбор лучшего

    		  
     
       
    ув. Подписчики. пожалуйста оцените труд данных авторов отдав свой голос за того, кого вы считаете достойным. В конце месяца(блин хоть бы кто сказал!) по итогам голосования лучшему автору будет подарена книга от магазина "ОЗОН". Если вы хотите увидить своё имя среди авторов - то прочитайте условия конкурса Выбери лучшего
    Pixel
    PILOT
    Art

     
      Назад к оглавлению    
       
     

    Вращающийся текст

    		  
     
       

    Вот, весьма интересный код

    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/ )
    ї COOLer 
    Назад к оглавлению    
       
     

    Клонирование?ДАВИТЬ!!!

    		  
     
       

    метод, с помощью которого можно предотвращать запуск второй копии приложения.
    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"



    о3он TopList
    -AdRiver-
    http://subscribe.ru/
    E-mail: ask@subscribe.ru     		Отписаться
    Убрать рекламу     		Рейтингуется SpyLog
    http://subscribe.ru/
    E-mail: ask@subscribe.ru     		Отписаться
    Убрать рекламу     		Рейтингуется SpyLog
    В избранное