paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-24 12:56:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: fix TColorBox bug introduced in #0014552

Browse Source 
git-svn-id: trunk@21639 -
This commit is contained in:
paul 2009-09-09 22:52:48 +00:00
parent 382a314889
commit 49fffeed25
1 changed files with 29 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
lcl/colorbox.pas
View File

@ -59,6 +59,7 @@ type
procedure SetSelected(Value: TColor);
procedure SetStyle(const AValue: TColorBoxStyle); reintroduce;
procedure ColorProc(const s: AnsiString);
procedure UpdateCombo;
protected
procedure DrawItem(Index: Integer; Rect: TRect; State: TOwnerDrawState); override;
procedure SetColorList;
@ -428,35 +429,12 @@ end;
------------------------------------------------------------------------------}
procedure TCustomColorBox.SetSelected(Value: TColor);
var
c: integer;
begin
if Selected = Value then
Exit;
if HandleAllocated then
begin
FSelected := Value;
for c := Ord(cbCustomColor in Style) to Items.Count - 1 do
begin
if Colors[c] = Value then
begin
ItemIndex := c;
inherited Change;
Exit;
end;
end;
if cbCustomColor in Style then
begin
Items.Objects[0] := TObject(PtrInt(Value));
ItemIndex := 0;
invalidate;
end
else
ItemIndex := -1;
end
else
FSelected := Value;
FSelected := Value;
UpdateCombo;
inherited Change;
end;
@ -507,6 +485,31 @@ begin
end;
end;
procedure TCustomColorBox.UpdateCombo;
var
c: integer;
begin
if HandleAllocated then
begin
for c := Ord(cbCustomColor in Style) to Items.Count - 1 do
begin
if Colors[c] = FSelected then
begin
ItemIndex := c;
Exit;
end;
end;
if cbCustomColor in Style then
begin
Items.Objects[0] := TObject(PtrInt(FSelected));
ItemIndex := 0;
Invalidate;
end
else
ItemIndex := -1;
end;
end;
{------------------------------------------------------------------------------
Method: TCustomColorBox.DrawItem
Params: Index, Rect, State
@ -599,7 +602,7 @@ end;
procedure TCustomColorBox.InitializeWnd;
begin
inherited InitializeWnd;
Selected := FSelected;
UpdateCombo;
end;
procedure TCustomColorBox.DoGetColors;