Форум: "KOL";
Текущий архив: 2006.03.05;
Скачать: [xml.tar.bz2];
ВнизРабота с ComboBox в KOL Найти похожие ветки
← →
Alexx2000 (2005-06-26 22:43) [0]Как отобразить иконку в ComboBox, чтобы при этом было возможно редактировать текст в ComboBox? (Хочу сделать ComboBox типа такого, который используется в панели адреса в Explorer).
← →
Thaddy (2005-06-27 00:04) [1]Something Like this?
unit autocom1;
{
Title : Autocompleting edit box for KOL
Author : Thaddy de Koning
Date : April 14, 2005
Terms : Copyrighted freeware © 2005
Delphi Version: 4,5,6,7, 2005
Third Party Required: ShlwApi.pas (www.delphi-jedi.org)
Description: As it says :)
program autocomplete;
uses
Kol,
autocom1 in "autocom1.pas";
begin
NewForm1( Form1, nil);
Run(Form1.form);
end.
}
interface
uses
Windows, Messages, Kol, ShlwApi;
const
aoForceOn = $10000000;
aoForceOff = $20000000;
aoAppendForceOn = $40000000;
aoAppendForceOff = $80000000;
aoDefault = $0;
aoFileSystem = $1;
aoUrlHistory = $2;
aoUrlMru = $4;
type
PForm1=^TForm1;
TForm1=object(Tobj)
Form:pControl;
edit:PControl;
public
end;
procedure NewForm1( var Result: PForm1; AParent: PControl );
var
Form1:pForm1;
implementation
procedure NewForm1( var Result: PForm1; AParent: PControl );
var
Options:Dword;
begin
New(Result,Create);
with Result^ do
begin
Form:= NewForm(AParent,"KOL Autocomplete Example").SetSize(400,60);
Applet:=Form;
Form.Add2AutoFree(Result);
Edit:=NewEditbox(form,[]).setalign(caTop);
Edit.color:=clWindow;
Options := aoFileSystem or aoUrlHistory or aoUrlMru or
aoForceOn or aoAppendForceOn;
ShAutoComplete(Edit.Handle,Options);
Edit.Color:=clWindow;
end;
end;
initialization
OleInit;
finalization
OleUnInit;
end.
← →
Alexx2000 (2005-07-05 22:47) [2]Это не совсем то, что мне нужно.
← →
ECM © (2005-07-06 13:44) [3]>Как отобразить иконку в ComboBox, чтобы при этом было возможно редактировать текст в ComboBox?
ИМХО:
1) Перекрыть OnDrawItem (в качестве примера можно использовать EnhCombos (http://bonanzas.rinet.ru/enhcombos.zip) )
2) Поколдовать с размерами редактора... (как вариант - погрызть MSDN на предмет перекрытия событий при показе редактора)
← →
Thaddy (2005-07-06 23:33) [4]Alex: did you TRY the code? It does exactly what you asked says my russian teacher. It is the API to explorer combobox. ;)
← →
Alexx2000 (2005-07-12 13:05) [5]Я рассмотрел полученные примеры, попробую что - нибудь сделать через пару недель, а сейчас мне пора уезжать для поступления в институт. Так, что всем спасибо за ответы.
Страницы: 1 вся ветка
Форум: "KOL";
Текущий архив: 2006.03.05;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.011 c