Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 256

•  TDictionary Custom Sort  6 299

•  Fast Watermark Sources  6 097

•  3D Designer  9 011

•  Sik Screen Capture  6 415

•  Patch Maker  6 832

•  Айболит (remote control)  6 816

•  ListBox Drag & Drop  5 693

•  Доска для игры Реверси  96 479

•  Графические эффекты  7 031

•  Рисование по маске  6 327

•  Перетаскивание изображений  5 203

•  Canvas Drawing  5 574

•  Рисование Луны  5 279

•  Поворот изображения  4 830

•  Рисование стержней  3 419

•  Paint on Shape  2 671

•  Генератор кроссвордов  3 557

•  Головоломка Paletto  2 852

•  Теорема Монжа об окружностях  3 656

•  Пазл Numbrix  2 392

•  Заборы и коммивояжеры  3 072

•  Игра HIP  2 033

•  Игра Go (Го)  1 959

•  Симулятор лифта  2 321

•  Программа укладки плитки  2 021

•  Генератор лабиринта  2 477

•  Проверка числового ввода  2 161

•  HEX View  2 492

•  Физический маятник  2 109

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Как автоматически расширить TEdit



Разговаривают два юзера:
- Сушай, я тут на днях прочитал про страшный вирус, который передается по электронной почте... И вспомнил как я читал про вирус, который каким-то хитрым образом сажает трубу у монитора, похоже это все из одной страшной серии...
- Не мужик, я про другой вирус слыхал. Перехватывает он, значит, мыша, захлестывает ейным шнурком юзера за шею и ну душить, понимашь. Воооо как! А ты трубу, трубу...

Следующий компонент автоматически подстраивается под текст, вводимый в него:


unit ExpandingEdit;

interface

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

type
  TExpandingEdit = class(TEdit)
  private
    FCanvas: TControlCanvas;
  protected
    procedure Change; override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
end;

procedure register;

implementation

constructor TExpandingEdit.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FCanvas := TControlCanvas.Create;
  FCanvas.Control := Self;
end;

destructor TExpandingEdit.Destroy;
begin
  FCanvas.Free;
  inherited Destroy;
end;

procedure TExpandingEdit.Change;
const
  EditMargin = 8;
var
  W: Integer;
begin
  inherited Change;
  if not HandleAllocated then
    Exit;
  FCanvas.Font := Font;
  W := FCanvas.TextWidth(Text) + (2 * EditMargin);
  if (Width < W) then
    Width := W;
end;

procedure register;
begin
  RegisterComponents('Samples', [TExpandingEdit]);
end;

end.





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

Расширение компонента TEdit




Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте