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

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


Служба Рассылок Subscribe.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHI.mastak.ru

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

Кое-что из нашей кладовки   |x|
  • ExecuteFile Mihan kikoz@kemtel.ru   (24.03.02 08:40)
    Компонент способен открывать файлы в тех приложениях, которые зарегистрированны в системе для этого типа файла. То есть txt-файл откроется в Блокноте:))
    »»» Скачать: исходные тексты (3кб)
  • EjectCD Mihan kikoz@kemtel.ru   (24.03.02 08:38)
    Как видно из названия, компонент предназначен для выдвижения лотка CD-ROM и задвижения его назад. Все очень просто!
    »»» Скачать: исходные тексты (2кб)
  • WinPass v1.0 iFaQ[LaG-Group] 2go@nm.ru   (24.03.02 08:24)
    Программа накладывает на вынды(с XP/2000 НЕРАБОТАЕТ!)
    дополнительный слой защиты,для доступа к компу нужен пароль, обойти невозможно(покрайней мере пока не удалось ни кому)
    »»» Скачать: исходные тексты (24кб)
  • Программа учета времени проведенного в Internet Suharew sdn31@mail.ru   (23.03.02 13:57)
    Программа считает сколько времени вы провели в интернете, возможность задания тарифа, если он указан то программа считает и ваши затраченые деньги. Есть отчет о соединениях, возмлжность задания пароля на изменение настроек.(предполагается наличие Delphi)
    »»» Скачать: исходные тексты (52кб) демонстрационный EXE файл (538кб)
Лучшее из нашего 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}
line := 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|
У нас большой выбор статей   |x|
Перевод и адаптация под DELPHI раздела Win32 SDK посвященного клавиатурным курсорам
Поскольку только одно окно может иметь в данный момент фокус ввода (быть активным), то в системе может быть только один курсор. Каждое окно, содержащее курсор, должно создавать его при получении фокуса, и освобождать при потере фокуса.
Все программы, написанные под Microsoft® Windows® могут создавать курсоры, отображать или скрывать их, перемещать их, а также изменять время мерцания...
Новинки книжного рынка   |x|
Shareware : профессиональная разработка и продвижение программ
Рассматриваются особенности создания условно-бесплатных программ, приводятся рекомендации по разработке интерфейса и оформлению документации, обсуждаются теоретические и практические вопросы проектирования, рекламы, маркетинга и технической поддержки создаваемого программного продукта. Книга содержит примеры удачной разработки и реализации программ из мировой и российской практики. Множество иллюстраций дает возможность более наглядно представить объем и качество работы, необходимой для создания программ на профессиональном уровне.
Автор: Жарков С.
Другие сайты о DELPHI   |x|
Программирование на Дельфи и Паскаль
Конференция, Уроки, Компоненты и Программы с исходниками, Советы, Скоро будет ЧАТ !!!sЗаходите в гости !!!

» Оценка сайта: 2
Опрос населения :)
Новый журнал для программистов "RSDN Magazine". Согласны ли вы его покупать ежемесячно?
»»» Да
»»» Нет
Журнал "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=1


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

Добро пожаловать на сайт -= Мастера DELPHI =- 


http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу

В избранное