Отправляет 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

Я обновляю свой сайт, и могу занятся вашим... за символическую плату(договоримся)


 

Мир Delphi

PixelSoftware (у нас архив рассылки+файлы примеры)

  

По тех. причинам подсчет подписчиков не ведется.

 
     

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

для чайников и не только.

 

 

(С) 2000 - 2001COOLer

  

Дизайн: Yoghurt

  
     

Оглавление

 

В этом выпуске:

  

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

  
     

Статьи:

Прочее:

Все желающие могут заказать у меня программу пример, к статьям этой рассылки.

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

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

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

  
 
   

Охота на VCL 

  • Я ищу компонент предварительного просмотра.
    Суть задачи в следующем: 
    Несколько разных программных модулей должны работать с одним документом, поэтому нужен именно компонент. Документ представляет из себя 
    типографский бланк из нескольких листов на бумаге с водными знаками. 
    Каждая буква документа располагается на своем месте (напоминает налоговую декларацию). 
    На печать выводится только текст и примитивные рисунки пользователя (прямоугольники или подчеркивание) естественно без бланка.
    Требования :
    1)Надо точно показать бланки (Bitmapы бланков) и набранный пользователем поверх текст. Допустимо чтобы каждый лист показывался по отдельности. 
    2)Изменение масштаба. Очень важно, чтобы при изменении масштаба набранный текст оставался на своем месте и точно масштабировался. Изменение 
    масштаба должно быть в широких пределах. 
    3)Недопустимо даже незначительное отличие внешнего вида на экране и на принтере.
    4)Компонент должен воспринимать следующие команды в десятых миллиметра
    TextOut, TextRect, MoveTo, LineTo, CopyRect, TFont. 
    5) Должна быть возможность позиционировать исходный бланк вместе с набранным текстом.

    Оплата за компонент возможна.
    Я посмотрел много компонентов но пока ничего не нашел.

    Mark Berson

  • Ижу компонент для работы с векторной графикой
    vr-raven@yandex.ru
    Заранее благодарен

    Raven

  • "Wanted" кряк для TRichView (http://www.trichview.com).
    Описание : отличный набор для работы с RTF файлами, упакован
    полным набором необходимых свойств и методов.
    Валерий mailto:esdba@elserv.minsk.by



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

    • Да

    Нет

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

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

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

    		  
     
       
    Временно недоступно.

     

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

    Снимок DESKTOP в form.canvas

    		 
     
       

    Попробуйте это:

     

        procedure TScrnFrm.GrabScreen;
    var

    DeskTopDC: HDc;
    DeskTopCanvas: TCanvas;
    DeskTopRect: TRect;

    begin
    DeskTopDC := GetWindowDC(GetDeskTopWindow);
    DeskTopCanvas := TCanvas.Create;
    DeskTopCanvas.Handle := DeskTopDC;

    DeskTopRect := Rect(0,0,Screen.Width,Screen.Height);

    ScrnForm.Canvas.CopyRect(DeskTopRect,DeskTopCanvas,DeskTopRect);

    ReleaseDC(GetDeskTopWindow,DeskTopDC);
    end;

    Примечание: Я не тестировал это, так что не удивляйтесь некоторым системным сообщениям об ошибках. Вы можете переделать данный код под себя, в зависимости от стоящей перед вами задачей. Да, еще, если ваша форма уже загружена и отображена, то вам необходимо предусмотреть механизм обновления снимка при скрытии и показе окна, привязав данную функцию к соответствующим событиям.

    mailto:Автор:Pixel(pixel@novgorod.net http://pixelsoft.narod.ru/ )
    ї COOLer 
    Назад к оглавлению    
       
     

    Ау... 

    		  
     
       

    Попробуйте следующий код. Я им пользуюсь продолжительное время.

    Входные данные:
    StartLat (начальная широта) = Градусы и сотые доли
    StartLong (начальная долгота) = Градусы и сотые доли
    EndLat (конечная широта) = Градусы и сотые доли
    EndLong (конечная долгота) = Градусы и сотые доли

    Выходные данные:
    Distance (расстояние) = Расстояние в метрах
    Bearing (смещение) = Смещение в градусах

    Не забудьте включить модуль Math в список используемых (USES) модулей.

     

        var
    // Передаваемые широта/долгота в градусах и сотых долях
    StartLat: double;                  // Начальная широта
    StartLong: double;                 // Начальная долгота
    EndLat: double;                    // Конечная широта
    EndLong: double;                   // Конечная долгота

    // Переменные, используемые для вычисления смещения и расстояния
    fPhimean: Double;                  // Средняя широта
    fdLambda: Double;                  // Разница между двумя значениями долготы
    fdPhi: Double;                     // Разница между двумя значениями широты
    fAlpha: Double;                    // Смещение
    fRho: Double;                      // Меридианский радиус кривизны
    fNu: Double;                       // Поперечный радиус кривизны
    fR: Double;                        // Радиус сферы Земли
    fz: Double;                        // Угловое расстояние от центра сфероида
    fTemp: Double;                     // Временная переменная, использующаяся в вычислениях
    Distance: Double;                  // Вычисленное расстояния в метрах
    Bearing: Double;                   // Вычисленное от и до смещение
    End

    const
    // Константы, используемые для вычисления смещения и расстояния
    D2R: Double = 0.017453;            // Константа для преобразования градусов в радианы
    R2D: Double = 57.295781;           // Константа для преобразования радиан в градусы
    a: Double = 6378137.0;             // Основные полуоси
    b: Double = 6356752.314245;        // Неосновные полуоси
    e2: Double = 0.006739496742337;    // Квадрат эксцентричности эллипсоида
    f: Double = 0.003352810664747;     // Выравнивание эллипсоида

    begin
    // Вычисляем разницу между двумя долготами и широтами и получаем среднюю широту
    fdLambda := (StartLong - EndLong) * D2R;
    fdPhi := (StartLat - EndLat) * D2R;
    fPhimean := ((StartLat + EndLat) / 2.0) * D2R;

    // Вычисляем меридианные и поперечные радиусы кривизны средней широты
    fTemp := 1 - e2 * (Power(Sin(fPhimean),2));
    fRho := (a * (1 - e2)) / Power(fTemp, 1.5);
    fNu := a / (Sqrt(1 - e2 * (Sin(fPhimean) * Sin(fPhimean))));

    // Вычисляем угловое расстояние
    fz :=
    Sqrt(Power(Sin(fdPhi/2.0),2)+Cos(EndLat*D2R)*Cos(StartLat*D2R)*Power(Sin(fdLambda/2.0),2)) ;
    fz := 2 * ArcSin(fz);

    // Вычисляем смещение
    fAlpha := Cos(EndLat * D2R) * Sin(fdLambda) * 1 / Sin(fz);
    fAlpha := ArcSin(fAlpha);

    // Вычисляем радиус Земли
    fR := (fRho * fNu) / ((fRho * Power(Sin(fAlpha),2)) + (fNu * Power(Cos(fAlpha),2)));

    // Получаем смещение и расстояние
    Distance := (fz * fR);
    if((StartLat < EndLat) and (StartLong < EndLong)) then
    Bearing := Abs(fAlpha * R2D)
    else if ((StartLat < EndLat) and (StartLong > EndLong)) then
    Bearing := 360 - Abs(fAlpha * R2D)
    else if ((StartLat > EndLat) and (StartLong > EndLong)) then
    Bearing := 180 + Abs(fAlpha * R2D)
    else if ((StartLat > EndLat) and (StartLong < EndLong)) then
    Bearing := 180 - Abs(fAlpha * R2D);
    end;



     

    mailto:Автор:Pixel(pixel@novgorod.net http://pixelsoft.narod.ru/ )

     

    Zaluskiy Anton(COOLer)  и Khrapunov Kirill(Pixel)  - ведущие проекта    "Мир Delphi"



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