| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
У меня тут несколько халявных вопросов... [Delphi, Windows]
stals © (2005-03-21 16:00:00)У меня несколько халявных вопросов, так что долго задерживать не буду :)
1) Как в run-time добавить закладку к tabcontrol?
(как в каком-нибудь редакторе - открываешь новый файл,
а он на навой закладке появляется)
2) Как добвлять строки разного форматирования в RichEdit?
(какая-нибудь строка - красным цветом на черном фоне, например)
3) Как можно организовать выбор шрифта?
4) Как можно узнать, что пользователь сменил раскладку и сделать
свое действие?
Лучше с примерами... :)
panov (2005-03-21 23:14:00) [1]Несвязанные вопросы нужно задавать в отдельных ветках.
Stals (2005-03-21 20:48:00) [2]Тогда еще немного задержусь :)
1) Как сделать DropFile на RichEdit,
чтоб его содержимое появилось в редакторе?
(Сделал форме WS_EX_ACCEPTFILES, назначил процедуру
onDropFiles, А как, собственно, узнать путь и имя того
файла, который Drop-нули, чтоб его Re_loadFromFile?)
2) Как у ListBox-а сделать, как у его VCL аналога, Style = CsDropDown?
(чтоб он раскрывался не только от кнопки,
но и от нажатия на него в любом месте)
ECM (2005-03-21 16:24:00) [3]З.Ы.
"Акела промахнулся..."
3 )можно при помощи доп. компонента MHFontDialog
http://www.kolnmck.ru/files/kompon/MHFontDialog.zip
MHFontDialog1.Font.Assign(SomeControl.Font);
MHFontDialog1.InitFont.Assign(SomeControl.Font);
MHFontDialog1.ForceFontExist := TRUE;
MHFontDialog1.UseInitFont := TRUE;
//MHFontDialog1.ShowEffects := TRUE;
MHFontDialog1.Flags := CF_INITTOLOGFONTSTRUCT or CF_SCREENFONTS
or CF_FIXEDPITCHONLY or CF_EFFECTS;
if MHFontDialog1.Execute then begin
SomeControl.Font.Assign(MHFontDialog1.Font);
SomeControl.SetFontHeight(TermView1.Font.FontHeight);
SomeControl.Perform(WM_SIZE,0,0);
end;
ECM (2005-03-21 16:19:00) [4]1) function TC_Insert( Idx: Integer; const TabText: String; TabImgIdx: Integer ): PControl;
{* |<#tabcontrol>
Inserts new tab before given, returns correspondent page control
(which can be used as a parent for controls to place on the page). }
Пример:
Page := TabControl1.TC_Insert(TabCOntrol1.Count,pMob.Name,0);
Page.Border := 0;
2) ...
3) TKOLColorDialog
ColorDialog1.Color := OldColor;
if ColorDialog1.Execute then NewColor := ColorDialog1.Color;
4) А самому поискать в MSDN облом? :) - WM_INPUTLANGCHANGE
отлови в Form(Applet).OnMessage...
| |
