Скруглённый TEdit

[Vadim]

Подскажите компонент типа TEdit со скруглёнными углами.
Или как у обычного TEdit скруглить углы не гася у него "BorderStyle"...

[wadman]

Сделать наследника со своим методом прорисовки.

[Vadim]

Сделать наследника со своим методом прорисовки.

Я думал, может кто-то уже сделал...

[Лекс Айрин]

Я думал, может кто-то уже сделал...

Я пытался сделать нечто подобное viewtopic.php?f=5&t=25585#p127093
Сейчас даже не найду исходников.
Долго, муторно и ноги после этого болят(((

[Vadim]

Я пока остановился на "составном" варианте - обычный TEdit без рамки, а вокруг скуглённый TShape как рамка...

[Лекс Айрин]

Vadim, ну да, это проще.

Тем более, что тебе все равно пришлось бы использовать TShare, для придания формы... Ну или самому делать картинку-фон, но это уже похуже.

[zoltanleo]

Я пока остановился на "составном" варианте - обычный TEdit без рамки, а вокруг скуглённый TShape как рамка...

покажи, как сделал...

[Vadim]

Дык всё просто - наложил один компонент на другой и всё. Только размеры Shape сделал побольше, чем у Edit, чтобы не загораживал...

[Лекс Айрин]

А вот как правильно. Возможно, что кто-то сделает лучше

Код: Выделить всё

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls,
  Buttons;

type

  { TForm1 }

  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure Edit1Change(Sender: TObject);
  private

  public
     Procedure DrawEdit (AControl: TWinControl);
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormActivate(Sender: TObject);
begin
  Form1.DrawEdit(Edit1);
end;

procedure TForm1.DrawEdit(AControl: TWinControl);
Var
  ABitmap: Graphics.TBitmap;// окно
  Rect:TRect;

begin
  ABitmap := Graphics.TBitmap.Create;
  ABitmap.Monochrome :={ True; //}False;
  ABitmap.Width := AControl.Width;
  ABitmap.Height := AControl.Height;
  Rect.Create(0 ,0, ABitmap.Width, ABitmap.Height);
   with ABitmap.Canvas do
  begin
    Brush.Color := clBlack; // transparent color
    FillRect(0, 0, ABitmap.Width, ABitmap.Height);
    Brush.Color := clWhite; // mask color
    RoundRect(Rect,20,20)//цифры величина закругления
  end;
  AControl.SetShape(ABitmap);
  ABitmap.Free;
end;

end.

[zoltanleo]

Спасибо, комрады. Посмотрю на досуге.

зы. а вот если б еще выложить пример, экспортированный в демку, было б шикарно. Лень ручками забивать

[Лекс Айрин]

zoltanleo, куда выложить? Могу зипом на гуглодрайв. Пойдет?

Добавлено спустя 8 минут 4 секунды:
вот ссылка https://drive.google.com/file/d/1nySpyZ ... sp=sharing

[zoltanleo]

вот ссылка

Спасибо большое. Емнип, тут есть возможность файлы к сообщению аттачить

[Vadim]

Вот мой пример:

Добавлено спустя 1 минуту 2 секунды:
Вот как выглядит.

[Лекс Айрин]

Емнип, тут есть возможность файлы к сообщению аттачить

Если бы... то ли из-за того, что ты топикстартер, толь просто не хватает прав, но у меня не получается.

Вот как выглядит.

У меня чуть интереснее))

[Vadim]

Лекс Айрин
А если на форму поместить белочек и бурундучков, будет ещё интереснее...