Текущий архив: 2007.02.18;
Скачать: CL | DM;

Вниз

Достучаться до TOpenDialog   Найти похожие ветки 

← →
Ламерюга   (2007-01-26 15:41) [0]

Вопрос - как? Мне бы хотелось его по-своему раскрасить, например...

---

← →
Сергей М. ©   (2007-01-26 15:46) [1]

Юзеру нужны шашечки или ехать ?)

---

← →
zdm ©   (2007-01-26 15:46) [2]

> Ламерюга   (26.01.07 15:41) 

Написать свой, в чем трабла то?

---

← →
zdm ©   (2007-01-26 15:48) [3]

Создай форму, разукрась как хочешь, кинь компоненты для общения с дисками,директориями и файлами и юзай.

---

← →
zdm ©   (2007-01-26 15:50) [4]

На страничке Win 3.1 замечательные стандартные компоненты, хотя юзеры вряд ли оценят твои старания. :)

---

← →
Ламерюга   (2007-01-26 15:51) [5]

zdm видишь ли, в дизайн обычное не вписывается :)
К тому же я просто не хочу использовать то, с чем ни разу не работал (типа Outline eg)

---

← →
clickmaker ©   (2007-01-26 15:57) [6]

TOpenPictureDialog из source\vcl\extdlgs.pas не подойдет для аналогии?

---

← →
zdm ©   (2007-01-26 16:04) [7]

Если писать и разбираться с исходниками не хочется, тогда путь один-Yandex.ru. А зачем в обще разукрашивать-то? Так для примера, я сколько не пробовал всяких прибамбасин наводящих "красоту" на ОС все равно возвращался к стандартному виду, который продумали профессионалы. А все остальное -лишь временное эстетическое удовлетворение доставляет, но не надолго.

---

← →
Ламерюга   (2007-01-26 16:14) [8]

clickmaker
а формочка к нему е? или она динамически создаётся?

---

← →
Hero ©   (2007-01-28 06:13) [9]

Создай новый проект, в Public запиши переменную FileName:string;
на форму кинь компоненты типа
DirectoryListBox
FileListBox
сделай событие OnClick на FilelistBox в процедуре присвой FileName значение выбранного, добавь пару модальных кнопок типа ок и Cancel
обзови форму типа OpenDlgFrm
Сохрани в папку компонента типа как MyOpenDialogUnit,
создай новый компонент
типа такого

unit MyOpenDialog;

interface

uses
Controls, Classes, Messages, Windows, Graphics;

type
 TMyOpenDialog = class(TComponent)
 private
   FFileName: String;
   Procedure SetFileName(value:string);
 protected
   { Protected declarations }
 public
   constructor Create(AOwner: TComponent); override;
   destructor Destroy; override;
 published
   function Execute:boolean;
   property FileName:string read FFileName write SetFileName;
 end;

procedure Register;

implementation

uses MyOpenDialogUnit;

procedure Register;
begin
 RegisterComponents("Dialogs", [TMyOpenDialog]);
end;

constructor TMyOpenDialog.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
end;

destructor TMyOpenDialog.Destroy;
begin
 inherited Destroy;
end;

Procedure TMyOpenDialog.SetFileName(value:string) ;
begin
FFileName:=Value;
end;

function TMyOpenDialog.Execute:boolean;
var frm:TOpenDlgFrm;
begin
frm:=TOpenDlgFrm.Create(self);
frm.FileName:=FFileName;
if fileexists(FFileName) then
 frm.DirectoryListbox:=ExtractFilePath(FFileName);
if frm.ShowModal = 1 then
begin
   FFileName:=frm.FileName;
   result:=true;
end
else result:=false;
end;

end.


---

← →
Hero ©   (2007-01-28 06:16) [10]

забыл в конце написать frm.free

---

Страницы: 1 вся ветка

Текущий архив: 2007.02.18;
Скачать: CL | DM;

Наверх

Память: 0.49 MB
Время: 0.031 c