paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 18:29:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed TComboBox and InvalidateControl

Browse Source 
git-svn-id: trunk@3258 -
This commit is contained in:
lazarus 2002-08-29 00:07:01 +00:00
parent 3e9ae9aac4
commit 5e4938af5d
2 changed files with 14 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/environmentopts.pp
View File

@ -2797,7 +2797,7 @@ begin
with AnEnvironmentOptions do begin
// language
LanguageComboBox.ItemIndex:=ord(Language);
// auto save
AutoSaveEditorFilesCheckBox.Checked:=AutoSaveEditorFiles;
AutoSaveProjectCheckBox.Checked:=AutoSaveProject;

28
lcl/include/customcombobox.inc
View File

@ -31,11 +31,9 @@ var NewStrings : TStrings;
begin
inherited CreateHandle;
// create an interface based item list
// get the interface based item list
NewStrings:= TStrings(Pointer(CNSendMessage(LM_GETITEMS, Self, nil)));
// copy the values
NewStrings.Assign(FItems);
// delete internal list
// then delete internal list
FItems.Free;
// and use the interface based list
FItems:= NewStrings;
@ -170,8 +168,6 @@ end;
procedure TCustomComboBox.Loaded;
begin
inherited Loaded;
if FItemIndex>=0 then
SetItemIndex(FItemIndex);
end;
{------------------------------------------------------------------------------
@ -407,6 +403,8 @@ begin
fCompStyle := csComboBox;
SetBounds(1,1,100,25);
FItems := TStringlist.Create;
FItemIndex:=-1;
FDropDownCount:=8;
// FItems:= TComboBoxStrings.Create;
// TComboBoxStrings(FItems).ComboBox := Self;
end;
@ -474,16 +472,11 @@ end;
if no item is currently selected.
------------------------------------------------------------------------------}
function TCustomComboBox.GetItemIndex : integer;
var
CacheText : string;
begin
// ToDo: ask the interface
{ I am not sure whether the item remains selected after the user pressed the item }
{ Result:= CNSendMessage(LM_GETITEMINDEX, Self, nil);}
CacheText := Text;
Result:= Items.Count-1;
while (Result>=0) and (Items[Result]<>CacheText) do dec(Result);
if HandleAllocated then
Result:= CNSendMessage(LM_GETITEMINDEX, Self, nil)
else
Result:=FItemIndex;
end;
{------------------------------------------------------------------------------
@ -497,6 +490,8 @@ procedure TCustomComboBox.SetItemIndex(Val : integer);
begin
if FItemIndex=Val then exit;
FItemIndex:=Val;
if (FItemIndex>=0) and (not (csLoading in ComponentState)) then
Text:=FItems[FItemIndex];
if HandleAllocated then
CNSendMessage(LM_SETITEMINDEX, Self, Pointer(FItemIndex));
end;
@ -515,6 +510,9 @@ end;
{
$Log$
Revision 1.10 2002/08/29 00:07:01 lazarus
MG: fixed TComboBox and InvalidateControl
Revision 1.9 2002/08/27 18:45:13 lazarus
MG: propedits text improvements from Andrew, uncapturing, improved comobobox