| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
MHFontDialog
Dy1 © (2007-07-25 01:00:00)MHFontDialog (Версия 1.3, коррекция 15-авг-2003)
1) вылетает на присваивании цвета -- исправил строку 230 на TMPCF.rgbColors := Cardinal( InitFont.Color);
2) строка 251 -- Font.Color := Integer( TMPCF.rgbColors);
Кстати, в диалоге нет выбора цвета. Этот компонент будет дописан?
(2007-11-17 16:39:00) [1]Удалено модератором
(2007-11-17 16:39:00) [2]Удалено модератором
(2007-11-17 16:39:00) [3]Удалено модератором
(2007-11-17 15:25:00) [4]Удалено модератором
(2007-11-17 15:25:00) [5]Удалено модератором
(2007-11-17 15:25:00) [6]Удалено модератором
(2007-11-17 15:24:00) [7]Удалено модератором
(2007-11-17 14:30:00) [8]Удалено модератором
(2007-11-17 14:30:00) [9]Удалено модератором
(2007-11-13 13:43:00) [10]Удалено модератором
(2007-11-13 13:42:00) [11]Удалено модератором
Дмитрий К (2007-07-26 09:08:00) [12]я в свое время слегка менял код юнита:
http://dmiko.mail333.com/other/KOLMHFontDialog.zip
Dy1 (2007-07-26 08:51:00) [13]на пустой форме работает. При добавлении в старый проект вылезает рантаймеррор 201
Дмитрий К (2007-07-25 23:05:00) [14]
>var fd: PMHFontDialog; cd: PColorDialog;
cd: PColorDialog - лишнее.
ColorDlg объявлен в KOLMHFontDialog
Дмитрий К (2007-07-25 23:01:00) [15]
program Project1;
uses
kol,
KOLMHFontDialog;
var form, btn, lbl: pcontrol;
procedure DoClick(Dummy,Sender: PObj);
var fd: PMHFontDialog; cd: PColorDialog;
begin
fd := NewMHFontDialog(form);
fd.options := fd.options + [fdEffects, fdInitFont];
Colordlg:=NewColorDialog(ccoFullOpen);
fd.InitFont.Assign(lbl.font);
if fd.Execute then
lbl.Font.assign(fd.Font);
fd.Free;
end;
begin
form := newForm(nil, 'testmhfont');
lbl := NewLabel(form,'Test Font Color').AutoSize(True).ResizeParentRight;
btn := NewButton(form,'Font').PlaceUnder.ResizeParentBottom;
btn.OnClick := TOnEvent(MakeMethod(nil, @DoClick));
run(form);
end.
Dy1 (2007-07-25 22:20:00) [16]V1.32
// [+] Диалог выбора цвета шрифта (FontColorDialog added) <Thanks to Ajax Talamned>
А за что thanks? Цвета как не было так и нет.
Кстати, может мои исправления признать официальными? :\ И в этой версии поднадоевший AV на тех же строчках (под другими номерами)
Дмитрий К (2007-07-25 20:34:00) [17]В смысле - было.
У меня есть:
http://dmiko.mail333.com/other/MHFontDialog.zip
Dy1 (2007-07-25 20:25:00) [18]> Есть новее
И где? На kolmck новее не видел
Дмитрий К (2007-07-25 16:27:00) [19]Странно, что на kolnmck.ru старая версия.
Есть новее.
> // Дата коррекции (Last correction Date): 29-фев(feb)-2004
=BuckLr= (2007-07-25 16:15:00) [20]
> Кстати, в диалоге нет выбора цвета
Там много чего нет. Что больше всего напрягает - так это отсутствие большинства стандартных обработчиков. Переписать надо. Я под себя переписывал этот компонент, но как-то не довёл до конца...
| |
