Урок 5 - Стандартные диалогиDelphi , Технологии , KOL и MCKУрок 5 - Стандартные диалоги
Ведущий раздела KOL и MCK: Анатолий aka XVeL Полную версию библиотеки KOL и MCK можно скачать здесь. В основе диалогов лежат совсем другие объекты, чем PControl (для каждого свой). KOL предлагает для работы 3 вида диалога
Их конструкторы: NewOpenSaveDialog( const Title, StrtDir: String; Options: TOpenSaveOptions ): POpenSaveDialog; Title - заголовок диалога В Options может быть следующее:
Для диалога открытия файла (Open File), надо свойство OpenDialog
установить в true, и соответственно для диалога сохранения файла
OpenDialog := false. NewOpenDirDialog( const Title: String; Options: TOpenDirOptions ): POpenDirDialog; Title - заголовок диалога В Options может быть следующее:
Выбранный путь можно узнать через свойство Path NewColorDialog( FullOpen: TColorCustomOption ): PColorDialog; В FullOpen следующее:
Пример: небольшой и мало функциональный, но текстовый редактор ;-) program Primer; uses Windows, messages, KOL; {$R *.RES} var form, PanTools, REdit, butOpen, butSave : PControl; procedure clikButOpenSave(Dummy : Pointer; Sender : PControl); var Dialog : POpenSaveDialog; title : string; begin if sender = butOpen then //определяем что за кнопка begin Dialog.title := 'Открыть'; Dialog.OpenDialog := TRUE; REdit.Clear; end else begin Dialog.title := 'Сохранить как...'; Dialog.OpenDialog := FALSE; end; if Dialog.Execute then if sender = butOpen then REdit.RE_LoadFromFile(Dialog.Filename, reText, false) else REdit.RE_SaveToFile(Dialog.Filename, reText,false); form.StatusText[0] := PChar(Dialog.Filename); end; begin form := NewForm(Applet, 'Редактор'); Dialog := NewOpenSaveDialog(title, '',[]) ; panTools := NewPanel(form, esRaised).SetAlign(caTop); panTools.Height := 35; REdit := NewRichEdit(form, []).SetAlign(caClient); butOpen := NewButton(panTools, 'Open').SetSize(50, 25); butSave := NewButton(panTools, 'Save as').SetSize(60, 25).PlaceRight; butOpen.OnClick := TOnEvent(MakeMethod(nil, @clikButOpenSave)); butSave.OnClick := TOnEvent(MakeMethod(nil, @clikButOpenSave)); run( form ); end.На экране результат будет примерно следующий:
Статья Урок 5 - Стандартные диалоги раздела Технологии KOL и MCK может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||||||||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |