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

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

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

При закрытии подписчики были переданы в рассылку "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
27
28
29
30
31
Автор
Сергей

Статистика

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

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


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

DELPHI.mastak.ru

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

Новые компоненты   |x|
  • CVMAutoInstall v.1.1 (9kb) (17.12.01 11:49)
    Позволяет модулю инсталлироваться в указанный пользователем каталог и опционально делает модуль автозагружаемым при старте Windows.

    С исходными текстами
    Компонента из раздела: Installation: Other
    Источник: www.torry.net   Автор: Patrick Dumoleyn http://www.cvm.fr
    -= · Tools · Samples · =- [Перевел: Сергей Касаткин]
  • TBX v.1.7 (472kb) (17.12.01 11:46)
    TBX - добавочный компонент к библиотеке Toolbar2000. Добавляет следующие возможности:
    поддержка тем;
    настраиваемое расположение элементов toolbar;
    изменяемый размер шрифта;
    многострочные заголовки (только в run-time);
    ComboBox и ListBox елементы меню;
    выбиралка цвета.

    С исходными текстами
    Компонента из раздела: Bars and Status Bars: Tool Bars
    Источник: www.torry.net   Автор: Alex Denisov http://g32.org
    -= · VCL · Samples · =- [Перевел: Сергей Касаткин]
  • Для уменьшения объема писем здесь публикуется не весь список новых компонент, потому заглядывайте и на сайт!
Кое-что из нашей кладовки   |x|
Лучшее из нашего FAQ   |x|
Как создать эквивалент TEdit но только с выравниваением вводимого текста по центру или по правой стороне?
TEdit не поддерживает выравниваение текста по центру и по правой стороне - лучше использовать компонент TMemo. Вам понадобится запретить пользователю нажимать Enter, Ctrl-Enter и всевозможные комбинации клавиш со стрелками, чтобы избежать появления нескольких сторк в Memo. Этого можно добиться и просматривая содержимое текста в TMemo в поисках кода возврата каретки (13) и перевода строки(10) на событиях TMemo Change и KeyPress. Можно также заменять код возврата каретки на пробел - для того чтобы позволять вставку из буфера обмена многострочного текста в виде одной строки.
Пример:

procedure TForm1.FormCreate(Sender: TObject);
begin
    Memo1.Alignment := taRightJustify;
    Memo1.MaxLength := 24;
    Memo1.WantReturns := false;
    Memo1.WordWrap := false;
end;

procedure MultiLineMemoToSingleLine(Memo : TMemo);
var
    t : string;
begin
    t := Memo.Text;
    if Pos(#13, t) > 0  then
        begin
            while Pos(#13, t) > 0 do
                delete(t, Pos(#13, t), 1);
            while Pos(#10, t) > 0 do
                delete(t, Pos(#10, t), 1);
            Memo.Text := t;
        end;
end;

procedure TForm1.Memo1Change(Sender: TObject);
begin
    MultiLineMemoToSingleLine(Memo1);
end;

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
    MultiLineMemoToSingleLine(Memo1);
end;



Комментарий от "Сэр Кот-Оборотень" (kotwlf@newmail.ru)
Вот так это можно сделать...

unit QEditAlignment;
interface
uses Windows, Messages, SysUtils, Classes, Controls, StdCtrls;
 
type
  TEdit_Alignment = class(TEdit)
  private
    FAlignment: TAlig!
nment;
  protected
    procedure CreateParams(var Params: TCreateParams); override;
    procedure SetAlignment(Value: TAlignment);
  public
    function GetControlsAlignment: TAlignment; override;
    constructor Create (AOwner: TComponent); override;
 
  published
    property Alignment: TAlignment read FAlignment write SetAlignment default taLeftJustify;
  end;
 
procedure Register;
 
implementation
 
constructor TEdit_Alignment.Create (AOwner: TComponent);
Begin
 inherited Create (AOwner);
 Alignment:=FAlignment;
End;
 
procedure TEdit_Alignment.CreateParams(var Params: TCreateParams);
const
  Alignments: array[Boolean, TAlignment] of DWORD =
    ((ES_LEFT, ES_RIGHT, ES_CENTER),(ES_RIGHT, ES_LEFT, ES_CENTER));
begin
  inherited CreateParams(Params);
  with Params do
  begin
    Style := Style or Alignments[UseRightToLeftAlignment, FAlignment];
  end;
end;
 
function TEdit_Alignment.GetControlsAlignment: TAlignment;
begin
  Result := FAlignment;
end;
 
procedure TEdit_Alignment.SetAlignment(Value: TAlignment);
begin
  if FAlignment <> Value then
  begin
    FAlignment := Value;
    RecreateWnd;
  end;
end;
 
procedure Register;
begin
  RegisterComponents('Standard', [TEdit_Alignment]);
end;
 
end.

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

Обсуждается в конференциях   |x|
  • Простой вопрос!
    Как мне запустить вручную контроллер удаленного доступа? Exe Rnaapp.exe сам так вот просто не запускается! Что делать, ...
  • Загрузка файла!
    Здраствуйте! Почему когда данный код записывает информацию в файл то там получается  не qqqqqq а какойто глюк ...
  • Восстановление БД Access
    Всем привет! Кто нибудь знает чем можно восстановить испорченную базу Access, которую сам Access открыть не может? Буду ...
  • Почему не правильно работает RecordCount?
    Доброго всем здоровья. В чем проблема, почему в InterBase'е в RecordCount неверные значения. Мне один программист ...
  • DBEdit в фокусе
    1) В форме имеется несколько DBEdit’ов из которых посредством PopupMenu вызываются определенные DBGrid’ы. После чего ...
  • Нужен Label для отображения формул
    Привет всем!!!! может кто знает где взять Label с помощью которого можно отобразить сложные фомулы, с дробями верхним, ...
  • HELP!!!!
    Срочно нужных тексты реализации методов сортировки массива QuickSort, Шелла, пирамидальная
У нас большой выбор статей   |x|
DirectX (Игровой SDK) Часть 1-2
Часть 1 (Модель компонентных объектов (СОМ) ,DirectDraw,
Объект IDirectDraw, Пример DDDemo1)
Часть 2 (Коды возврата DirectDraw и исключения Delphi, Переключение
на полноэкранный режим, Пример DDDemo2, Добавление обработчика
исключений приложения)
Новинки книжного рынка   |x|
Delphi 5: учебный курс
В книге рассмотрены возможности системы программирования Delphi 5, описан язык программирования Object Pascal, рассмотрены визуальные компоненты системы и методы их создания. Особое внимание уделено принципам и практическим приемам создания сетевых приложений для разных архитектур и разработке программ, поддерживающих основные протоколы Интернета.Не требует специальной подготовки, может быть использована как пособие для изучающих основы программирования и сетевые технологии, а также как справочник по компонентам Delphi и пособие для самообразования.
Автор: С. Бобровский
Другие сайты о DELPHI   |x|
Delphi for Russian
Delphi4. Delphi5. ObjectPascal. Стандартные функции и процедуры. On-line справочник на русском языке.
Опрос населения :)
Какую ОС вы используете _в_основном_ при написании програм для Win32
»»» Win2k
»»» Win98
»»» WinXP
»»» WinNT
»»» WinMe
»»» Win95
»»» Ни одну из перечисленных
»»» Я не пишу под Win32
»»» Не знаю
Журнал "RSDN Magazine"  |x|

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

Для души

Хокку дня
Молодой петушок
Кукарекнул во сне с перепугу -
Бульонный кубик приснился...

Афоризмы
Опыт сильнее логики...

Фраза дня
Это Вам не гифы по сайтам тырить!

И на закуску коротенький анекдот
Два мужика разговаривают:
- Почему твой сын так быстро растет, за уши тянешь, что ли?
- Не, я просто монитор каждый месяц на 5 см поднимаю!

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

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

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