| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Инспектор объектов [D5, WinME]
Gari © (2002-10-16 08:33:00)Добрый день уважаемые господа. У меня такой вопрос. можек кто поможет, если знает. А именно: можно ли в инспекторе объектов, каким либо образом отображать свойства русскими буквами (тобиш по русски). И второй вопрос: неподскажете каким образом можно в компонент с классом унаследованном от TImage вставить рисунок (bmp), но так чтобы он находился внутри самого компонента.
Separator (2002-10-16 09:51:00) [21]Не обязательно, можно так:
unit Unit1;
type
TMyImage = class(TImage)
public
constructor Create(AOwner: TComponent; BmpName: TFileName)
end;
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
var
Image1: TMyImage;
procedure TForm1.FormCreate(Sender: TObject);
begin
Image1:= TMyImage.Create(self, "MyBmp.bmp");
wiht Image1 do
begin
Align:= alClient;
Show
end
end;
{ TMyImage }
constructor TMyImage.Create(AOwner: TComponent; BmpName: TFileName);
begin
inherited Create(AOwner);
Picture.LoadFromFile(BmpName)
end;
end.
Это просто пример создания компонента, который не види Инспектор объектов, а если тыы хочешь, чтоб видел, то создавай с помощью Component>New Component
Юрий Зотов (2002-10-16 09:48:00) [22]Добавьте вот этот модуль к любому design-time пакету (или создайте новый) - и наслаждайтесь.
unit
Izvrat;
interface
uses
DsgnIntf;
type
TRusCaptionProperty = class(TCaptionProperty)
function GetName: string; override;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterPropertyEditor(TypeInfo(TCaption), nil, "Caption", TRusCaptionProperty)
end;
function TRusCaptionProperty.GetName: string;
begin
Result := "Заголовок"
end;
end.
Gari (2002-10-16 09:37:00) [23]Непонял, ответа. мы вроде всегда создавая компонент, регистрируем его.
Separator (2002-10-16 09:26:00) [24]> Gari (16.10.02 09:06)
зарегистрируй свой компонент в дельфях и тогда его свойства можно будет править в инспекторе
Opuhshii (2002-10-16 09:09:00) [25]5 минут и столько шума,.. ;))
2Gari (16.10.02 09:02)
Вот Вам мое (тобишь имхо) конструктивное предложение
1.отображать свойства русскими буквами - забудь,..
2.Каким образом можно загрузить картинку из самого компонента, типа ресурсов - LoadFromResource :)
Separator (2002-10-16 09:06:00) [26]Лучше так:
цикли:= от 1 до 10
начать
ПоказатьСообщение("Привет Мир")
кончить
А Restorator, это такая прога, с помощью которой можно в любых win32 приложения заменять любыу ресурсы на свои, если помучаться то можно с помощью нее все минюшки русифицировать, а вот в инспекторе объектов все русским сделать, это наврядли, хотя мож попробовать, может тогда тебя в Борланд на работу возьмут :)
Gari (2002-10-16 09:06:00) [27]1) Вы правильно поняли. Я думаю можно каким либо образом это сделать. Если можно хорошо. Если нет то свой вопрос снимаю.
2) LoadFromResource, это надо опять где то хранить файл изображения, или его можно поместить внутрь компонента?
Opuhshii (2002-10-16 09:03:00) [28]2Gari (16.10.02 08:33)
1. или это что-то в стиле
TButton.ОнКлик ?????
2. что значит "внутри самого компонента."
"внутри" TImage есть TPicture у которого есть property Bitmap: TBitmap.... хочется ещё, пожалуйста,.
....
private
FBitmap1:TBitmap;
public
property Bitmap1: TBitmap read FBitmap1 write FBitmap1;
....
,в конструкторе можно написать LoadFromResource, или нарисовать его самому,..
Gari (2002-10-16 09:02:00) [29]Обидеть каждый может а конструктивное предложение, слабо дать.
roadster (2002-10-16 08:58:00) [30]а давайте писать так:
фор и := 1 ту 10 ду
бегин
ШоуМессэдж("Хелло Ворлд!")
енд;
И Борландов попросим: чтобы Дельфина полностью русифицировали!
:0)
Gari (2002-10-16 08:55:00) [31]1) Что такое Restorator.
2) Каким образом можно загрузить картинку из самого компонента, типа ресурсов.
MBo (2002-10-16 08:52:00) [32]Название свойства- идентификатор, и русским быть не может
Alx2 (2002-10-16 08:51:00) [33]>Gari (16.10.02 08:47)
1. Не получится
2.
У наследников Image есть свойство Picture. У него есть метод LaodFromFile
Reads the file specified in FileName and loads the data into the TPicture object.
procedure LoadFromFile(const FileName: string);
Или это не то, что имелось в виду?
Separator (2002-10-16 08:49:00) [34]1) Подправь сам вие вручную с помощью Restorator
2) Если ты его зарегистрировал в Delphi, то так же как и в TImage, т.е. щелка на Picture в Инспекторе объектов, а если нет, то загружай рисунок в компанент. Например:
procedureTForm1.FormCreate(Sender: TObject);
var
Image: TMyImage;
begin
Image1.Picture.LoadFromFile("FileName.bmp");
end
Gari (2002-10-16 08:47:00) [35]Может быть я неправильно поставил вопрос. Мне нужно чтобы писалось не Label.Caption а Label.Заголовок. Вот как. А как по второму вопросу?
MBo (2002-10-16 08:44:00) [36]???
Label.Caption в инспекторе русскими пишется нормально
| |
Страницы: 