Текущий архив: 2008.11.09;
Скачать: CL | DM;
Вниз
MHFontDialog Найти похожие ветки
← →
Dy1 © (2007-07-25 01:00) [0]MHFontDialog (Версия 1.3, коррекция 15-авг-2003)
1) вылетает на присваивании цвета -- исправил строку 230 на TMPCF.rgbColors := Cardinal( InitFont.Color);
2) строка 251 -- Font.Color := Integer( TMPCF.rgbColors);
Кстати, в диалоге нет выбора цвета. Этот компонент будет дописан?
← →
=BuckLr= (2007-07-25 16:15) [1]
> Кстати, в диалоге нет выбора цвета
Там много чего нет. Что больше всего напрягает - так это отсутствие большинства стандартных обработчиков. Переписать надо. Я под себя переписывал этот компонент, но как-то не довёл до конца...
← →
Дмитрий К © (2007-07-25 16:27) [2]Странно, что на kolnmck.ru старая версия.
Есть новее.
> // Дата коррекции (Last correction Date): 29-фев(feb)-2004
← →
Dy1 © (2007-07-25 20:25) [3]> Есть новее
И где? На kolmck новее не видел
← →
Дмитрий К © (2007-07-25 20:34) [4]В смысле - было.
У меня есть:
http://dmiko.mail333.com/other/MHFontDialog.zip
← →
Dy1 © (2007-07-25 22:20) [5]V1.32
// [+] Диалог выбора цвета шрифта (FontColorDialog added) <Thanks to Ajax Talamned>
А за что thanks? Цвета как не было так и нет.
Кстати, может мои исправления признать официальными? :\ И в этой версии поднадоевший AV на тех же строчках (под другими номерами)
← →
Дмитрий К © (2007-07-25 23:01) [6]
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.
← →
Дмитрий К © (2007-07-25 23:05) [7]
>var fd: PMHFontDialog; cd: PColorDialog;
cd: PColorDialog - лишнее.
ColorDlg объявлен в KOLMHFontDialog
← →
Dy1 © (2007-07-26 08:51) [8]на пустой форме работает. При добавлении в старый проект вылезает рантаймеррор 201
← →
Дмитрий К © (2007-07-26 09:08) [9]я в свое время слегка менял код юнита:
http://dmiko.mail333.com/other/KOLMHFontDialog.zip
← →
имя (2007-11-13 13:42) [10]Удалено модератором
← →
имя (2007-11-13 13:43) [11]Удалено модератором
← →
имя (2007-11-17 14:30) [12]Удалено модератором
← →
имя (2007-11-17 14:30) [13]Удалено модератором
← →
имя (2007-11-17 15:24) [14]Удалено модератором
← →
имя (2007-11-17 15:25) [15]Удалено модератором
← →
имя (2007-11-17 15:25) [16]Удалено модератором
← →
имя (2007-11-17 15:25) [17]Удалено модератором
← →
имя (2007-11-17 16:39) [18]Удалено модератором
← →
имя (2007-11-17 16:39) [19]Удалено модератором
← →
имя (2007-11-17 16:39) [20]Удалено модератором
Страницы: 1 вся ветка
Текущий архив: 2008.11.09;
Скачать: CL | DM;
Память: 0.5 MB
Время: 0.011 c
