paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 01:39:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL : Changed TColorBox.Selection to TColorBox.Selected (bug #9498)

Browse Source 
git-svn-id: trunk@11863 -
This commit is contained in:
vincents 2007-08-25 21:50:38 +00:00
parent fa05992ce0
commit 8609307af8
2 changed files with 22 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ideintf/imagelisteditor.pp
View File

@ -311,7 +311,7 @@ begin
begin
P := PGlyphInfo(TreeView.Selected.Data);
P^.Adjustment := TGlyphAdjustment(RadioGroup.ItemIndex);
P^.TransparentColor := ColorBoxTransparent.Selection;
P^.TransparentColor := ColorBoxTransparent.Selected;
T := CreateGlyph(P^.Bitmap, ImageList.Width, ImageList.Height, P^.Adjustment,
P^.TransparentColor);
@ -378,7 +378,7 @@ begin
ColorBoxTransparent.Enabled := True;
ColorBoxTransparent.OnChange := nil;
ColorBoxTransparent.Selection := P^.TransparentColor;
ColorBoxTransparent.Selected := P^.TransparentColor;
ColorBoxTransparent.OnChange := @ColorBoxTransparentClick;
end
else
@ -390,7 +390,7 @@ begin
ColorBoxTransparent.Enabled := False;
ColorBoxTransparent.OnChange := nil;
ColorBoxTransparent.Selection := clFuchsia;
ColorBoxTransparent.Selected := clFuchsia;
ColorBoxTransparent.OnChange := @ColorBoxTransparentClick;
end;
@ -412,7 +412,7 @@ begin
ColorBoxTransparent.Enabled := False;
ColorBoxTransparent.OnChange := nil;
ColorBoxTransparent.Selection := clFuchsia;
ColorBoxTransparent.Selected := clFuchsia;
ColorBoxTransparent.OnChange := @ColorBoxTransparentClick;
Preview.HorzScrollBar.Range := ImageList.Width;

36
lcl/colorbox.pas
View File

@ -38,8 +38,8 @@ type
private
FPalette: TColorPalette;
function GetColor(Index : Integer): TColor;
function GetSelection: TColor;
procedure SetSelection(Value: TColor);
function GetSelected: TColor;
procedure SetSelected(Value: TColor);
procedure SetPalette(Value: TColorPalette);
protected
procedure SetStyle(Value: TComboBoxStyle); override;
@ -75,7 +75,7 @@ type
property ParentShowHint;
property PopupMenu;
property ReadOnly;
property Selection: TColor read GetSelection write SetSelection;
property Selected: TColor read GetSelected write SetSelected;
property ShowHint;
property Sorted;
property TabOrder;
@ -112,8 +112,8 @@ type
private
FPalette: TColorPalette;
function GetColor(Index : Integer): TColor;
function GetSelection: TColor;
procedure SetSelection(Value: TColor);
function GetSelected: TColor;
procedure SetSelected(Value: TColor);
procedure SetPalette(Value: TColorPalette);
protected
procedure SetStyle(Value: TListBoxStyle); override;
@ -121,8 +121,8 @@ type
public
constructor Create(AOwner: TComponent); override;
procedure SetColorList;
property Selection: TColor read GetSelection write SetSelection;
property Colors[Index : Integer] : TColor Read GetColor;
property Selected: TColor read GetSelected write SetSelected;
published
property Align;
property Anchors;
@ -214,14 +214,14 @@ begin
Style := csOwnerDrawFixed;
end;
{------------------------------------------------------------------------------
Method: TColorBox.GetSelection
Method: TColorBox.GetSelected
Params: None
Returns: TColor
Use GetSelection to convert the item selected into a system color.
Use GetSelected to convert the item selected into a system color.
------------------------------------------------------------------------------}
function TColorBox.GetSelection: TColor;
function TColorBox.GetSelected: TColor;
begin
Result := 0;
if ItemIndex >= 0 then
@ -245,15 +245,15 @@ begin
end;
{------------------------------------------------------------------------------
Method: TColorBox.SetSelection
Method: TColorBox.SetSelected
Params: Value
Returns: Nothing
Use SetSelection to set the item in the ColorBox when appointed a color
Use SetSelected to set the item in the ColorBox when appointed a color
from code.
------------------------------------------------------------------------------}
procedure TColorBox.SetSelection(Value: TColor);
procedure TColorBox.SetSelected(Value: TColor);
var
c: integer;
i: Longint;
@ -400,14 +400,14 @@ begin
Style := lbOwnerDrawFixed;
end;
{------------------------------------------------------------------------------
Method: TColorListBox.GetSelection
Method: TColorListBox.GetSelected
Params: None
Returns: TColor
Use GetSelection to convert the item selected into a system color.
Use GetSelected to convert the item selected into a system color.
------------------------------------------------------------------------------}
function TColorListBox.GetSelection: TColor;
function TColorListBox.GetSelected: TColor;
begin
Result := 0;
if ItemIndex >= 0 then
@ -430,15 +430,15 @@ begin
end;
{------------------------------------------------------------------------------
Method: TColorListBox.SetSelection
Method: TColorListBox.SetSelected
Params: Value
Returns: Nothing
Use SetSelection to set the item in the ColorListBox when appointed a color
Use SetSelected to set the item in the ColorListBox when appointed a color
from code.
------------------------------------------------------------------------------}
procedure TColorListBox.SetSelection(Value: TColor);
procedure TColorListBox.SetSelected(Value: TColor);
var
c: integer;
i: Longint;