Правое выравнивание текста в компоненте Edit

Утро. Квартира сисопа. Ночная подружка подходит к компу, смотрит в логи и говорит:
- Да, и cps у тебя тоже маленький...

TEdit1  = class(TEdit)
  public
    procedure CreateParams(var Params: TCreateParams); Override;
end;

procedure TEdit1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style := Params.Style or ES_MULTILINE or ES_RIGHT;
end;

Недавно добавленные исходники
• Animation Loaders 976 • DeLiKaTeS Tetris (Тетрис) 5 908 • TDictionary Custom Sort 7 859 • Fast Watermark Sources 7 528 • 3D Designer 10 756 • Sik Screen Capture 8 088 • Patch Maker 8 285 • Айболит (remote control) 8 336 • ListBox Drag & Drop 7 180 • Доска для игры Реверси 101 163 • Графические эффекты 8 401 • Рисование по маске 7 777 • Перетаскивание изображений 6 367 • Canvas Drawing 6 744 • Рисование Луны 6 674 • Поворот изображения 5 801 • Рисование стержней 4 748 • Paint on Shape 3 447 • Генератор кроссвордов 4 443 • Головоломка Paletto 3 583 • Теорема Монжа об окружностях 4 383 • Пазл Numbrix 2 839 • Заборы и коммивояжеры 3 790 • Игра HIP 2 557 • Игра Go (Го) 2 564 • Симулятор лифта 2 954 • Программа укладки плитки 2 380 • Генератор лабиринта 3 131 • Проверка числового ввода 2 615 • HEX View 3 020

Правое выравнивание текста в компоненте Edit

Похожие по теме исходники