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

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

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

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

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

←   Январь 2003   →
 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
27
28
29
30
31
Автор
Сергей

Статистика

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

Мастера DELPHI. Новости мира компонент, FAQ, статьи...


Информационный Канал Subscribe.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHI.mastak.ru

Выпуск от 07.01.03 09:04

Кое-что из нашей кладовки   |x|
  • IncDay dmi dmiprogrammer@mail.ru   (05.01.03 20:21)
    При создании бухгалтерской программы я столкнулся с
    необходимостью изменить значение даты (класс TDateTime) путем добавления количества дней. Но в Delphi готовой функции не оказалось. Просмотрев в Delphi7 исходный текст функции IncMonth (добавление месяцев к дате), я решил создать функцию IncDay (добавление дней к дате).
    Если у кого-то возникла подобная проблема, готов поделиться "исходником".
    »»» Скачать: исходные тексты
Лучшее из нашего FAQ   |x|
Как в RichEdit или TMemo реализовать при нажатии Enter-а позиционирование курстора в позицию
как в предыдущей строке 


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    RichEdit1: TRichEdit;
    procedure RichEdit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses richedit;

{$R *.DFM}


procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
var
  line, col, indent: integer;
  S: String;
begin
  if key = #13 then begin
    key := #0;
    with sender as TRichEdit do
begin
      {figure out line and column position of caret}
      lin!
e := PerForm( EM_EXLINEFROMCHAR, 0, SelStart );
      Col  := SelStart - Perform( EM_LINEINDEX, line, 0 );
      {get part of current line in front of caret}
      S:= Copy( lines[ line ], 1, col );
      {count blanks and tabs in this string}
      indent := 0;
      while (indent < length( S )) and (S[indent + 1] in  [' ', #9])
      do 
        Inc( indent );
      {insert a linebreak followed by the substring of blanks and tabs}
      SelText := #13#10 + Copy(S, 1, indent);
    end;
  end;
end;

end.

»»» Прислать свои комментарии

Обсуждается в конференциях   |x|
  • USB-диск
    Когда вы нажимаете правой кнопкой на USB-drive, то там ест пункт в меню "Извлечь". А как вызвать этот пункт в Win API. ...
  • ActionList
    Всем доброго время суток. Наболел небольшой вопросик, а именно: Народ расскажите плиз поподробнее чем облегчает жизнь ...
  • FIBDataSet, run-time формирование SQL- запроса
    В приложении 2 набора FIBDataSet. Приложение должно работать в двух режимах: "Просмотр" и "Редактирование". Режим ...
  • Удаление записей через триггер
    Три связных таблицы: "Категории" -> "Объекты" -> "Составляющие объекта". Соответственно: CAT_ID -> CAT_ID, ID ...
  • Вставка строки  в бд
    Необходимо вставить данные  в  таблицу бд. Данные берутся с Form2. if form2. showmodal =mrOk then begin  table1....
  • Кто-нибудь работал с ТВ-тюнером?
    Народ, кто-нить работал с таким девайсом как ТВ-тюнер? Поделитесь мнениями или кодом :) Как, например, получить с него ...
  • Online/Offline
    Как узнать: в онлайне комп или нет и если в онлайне, какой у него ип? Заранее спасибо
У нас большой выбор статей   |x|
Создание DLL с Web-ресурсами
Многим известна возможность Internet Explorer отображать ресурсы (странички, графику) из DLL.
В статье подробно рассмотрен метод создания таких ресурсов. Прилагается пример и полный набор инструментов.
Новинки книжного рынка   |x|
Shareware : профессиональная разработка и продвижение программ
Рассматриваются особенности создания условно-бесплатных программ, приводятся рекомендации по разработке интерфейса и оформлению документации, обсуждаются теоретические и практические вопросы проектирования, рекламы, маркетинга и технической поддержки создаваемого программного продукта. Книга содержит примеры удачной разработки и реализации программ из мировой и российской практики. Множество иллюстраций дает возможность более наглядно представить объем и качество работы, необходимой для создания программ на профессиональном уровне.
Автор: Жарков С.
Другие сайты о DELPHI   |x|
Torry`s  Delphi
Delphi-компонеты
» Оценка сайта: 5
Опрос населения :)
Какой сайт по Delphi лучший?
»»» Королевство Дельфи
»»» Этот сайт
»»» Дельфи. Вокруг да около
»»» Другой
»»» Чем больше, тем лучше!
Журнал "RSDN Magazine"  |x|

Дорогие друзья! Мы рады представить вам новый совместный проект сайтов www.rsdn.ru, delphi.mastak.ru и www.optim.ru - профессиональный журнал для программистов RSDN Magazine.
Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!
На сайте выложен анонс пилотного выпуска журнала, вступительное слово от редакции.

Для души

Хокку дня
Тигра свирепого когти
Смелым друзьям не страшны-
Двум Рознблюмам и Кацу...

Афоризмы
На детях гениев природа отдыхает...Но это не значит, что если природа отдохнула на твоем ребенке, то ты - гений (первый наш афоризм, скомпонованный участниками обсуждений на афоризмах много.ру)

Фраза дня
"Под лежачий камень я всегда успею." //Андрей Кнышев

Дурацкие законы (информация предоставлена сайтом kurilka.com)
В Австралии запрещено составлять и читать гороскопы, а также заниматься гаданиями во всех видах. Закон считает это преступным колдовством.
В провинции Виктория на пляж Брайтон Бич можно купаться только в купальнике, который закрывает тело от горла до колен

И на закуску коротенький анекдот
Идет экзамен в медицинском вузе. Профессор обращается к студенту:
- Назовите стандартное оборудование прививочного кабинета.
- Спирт, кушетка, медсестра.

Фотоприколы.
Начните день с хорошего настроения!
http://delphi.mastak.ru/cgi-bin/prikol.pl?id=789063

На этом позвольте откланяться и пожелать вам удачного дня.
Искренне ваш, Алексей (delphi@mastak.com)

Добро пожаловать на сайт -= Мастера DELPHI =- 
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное