компонент

[Cyrus83]

подскажите, какой компонент нужно создать, чтобы хватило на целую дипломку? Вот код компонента на основе Edit, но он слишком прост и на дипломную работу не тянет.

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

type
TEditAlignment=(eaLeft, eaCenter, eaRight);
TEditLetNum = Class(TEdit)

private
{private declarations}
FClear:TNotifyEvent;{Поля события OnClear}
FEnableNum:boolean;
FenableLet:boolean;
FModified:boolean;
FAlignment: TEditAlignment;

protected
{protected declarations}
procedure SetAlignment (value: TEditAlignment);
procedure SetEnableNum(Value:boolean);{Процедура записи}
procedure SetEnableLet(Value:boolean);{Процедура записи}
procedure KeyPress(var Key:Char);override;
procedure CreateParams(var Params: TCreateParams); override;

public
{public declarations}
property Modified:boolean read FModified default true;
constructor create(AOwner:TComponent); override;{Конструктор}
procedure Clear; override;

published
{published declarations}
property Alignment: TEditAlignment read FAlignment write SetAlignment;
property OnClear:TNotifyEvent read FClear write FClear;{событие}
property EnableNum:boolean read FEnableNum write SetEnableNum default true;
property EnableLet:boolean read FEnableLet write SetEnableLet default true;
end;

procedure Register;
implementation

procedure TEditLetNum.SetEnableNum(Value:boolean);
begin
FEnableNum:=Value; {Присвоение значения полю FEnableNum}
{Если значения FEnableNum и FEnableLet =false, то полю FenableLet присваивается true}
  if (not Value)
      then if (not FEnableLet)
 then FEnableLet:=true;
end;

procedure TEditLetNum.SetEnableLet(Value:boolean);
begin
FEnableLet :=Value;{присвоение значения полю FEnableLet}
{Если значения FEnableNum и FEnableLet=false, то полю FEnableNum присваивается true}
       if (not Value)
then if (not FEnableNum) 
      then FEnableNum:=true;
end;

procedure Register;
begin
RegisterComponents('MyComponents', [TEditLetNum]);
end;

constructor TEditLetNum.create (AOwner:TComponent);
begin
inherited create(AOwner); {Вызов конструктора класса родителя}
FEnableNum:=True;
FenableLet:=True;
FModified:=False;
end;

procedure TEditLetNum.CreateParams (var Params:TCreateParams);
begin
  inherited;
  Case FAlignment of
 	 eaLeft:Params.Style:=Params.Style or ES_LEFT;
  	eaCenter: Params.Style:=Params.Style or ES_CENTER;
  	eaRight:Params.Style:=Params.Style or ES_RIGHT;
end;
end;

procedure TEditLetNum.SetAlignment (value:TEditAlignment);
begin
  if FAlignment<> Value then  begin
  FAlignment:=Value;
  end; 
RecreateWnd;
 end;

procedure TEditLetNum.KeyPress (var Key:Char);
begin
  if (not FEnableNum) and (Key in ['0'..'9'])
  	  then Key:=#0;
  if (not FenableLet) and not (Key in ['0'..'9'])
   	 then Key:=#0;
  if (Key<>#0) then FModified:=true;
  inherited KeyPress (Key);
end;

procedure TEditLetNum.Clear;
begin
{Вызов обработчика пользователя}
   	 if assigned (FClear) 
then OnClear (Self);
{Вызов родительского метода}
inherited Clear;
FModified:=false;
end;
end.

@темы: Delphi

Comments

[Imaginary Unit]

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

[Cyrus83]

Taburetkin, это понятно. обоснование актуальности и все такое прочее. Но меня все-таки интересует, что такого-этакого можно сделать, чтобы это действительно было полезно? Edit-а c возможностью ограничения ввода текста/цифр и выравнивания относительно краев оказалось недостаточно. Создать какую-нибудь экзотическую декоративную кнопку в форме многоугольника - скажут "а нафига это нужно?". вот такие дела...

[fess2007]

можно попробовать сделать календарь к примеру, с возможностью менять скины, т.е. кроме этого предусмотреть различные представления в зависимости от настроек. С возможностью показа времени...

[Flex Ferrum]

Rabid Coyote, а факультет/специализация какие?

[Cyrus83]

Flex Ferrum, Информатика и вычислительная техника.

fess2007, Да, или это, или что-то вроде файлового менеджера.

[Flex Ferrum]

Flex Ferrum, Информатика и вычислительная техника.

Хм. Ладно. Задам вопрос иначе. На кого вас учили?

[Cyrus83]

Flex Ferrum, отвечаю: всего понемножку. Это не чисто программерская специальность (например, в качестве тематики диплома помимо программирования можно было выбрать сети, базы данных, ОС и еще чего-то там). А в дипломе будет написано "бакалавр техники и технологии". )))

[Flex Ferrum]

А какую вы выбрали тематику диплома? Просто "программирование"? И вы в качестве темы хотите выбрать создание компонента под Delphi?

[Cyrus83]

Flex Ferrum, в качестве темы я и выбрал "Создание компонента". О чем впоследствии пожалел. ))

[Ri]

Ну, например, компонент, который рисует графики, гистограммы всякие и т.д. Там функциональности можно впихнуть сколько угодно.

[Flex Ferrum]

у, например, компонент, который рисует графики, гистограммы всякие и т.д. Там функциональности можно впихнуть сколько угодно.

Ага. Согласен. А если вид графика можно было бы ещё и формулой задавать (а не только таблично)...