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

IDE: removed obsolete workaround for not working TRadioButton.Checked from Paul

Browse Source 
git-svn-id: trunk@12544 -
This commit is contained in:
mattias 2007-10-21 13:03:44 +00:00
parent 9f455244c8
commit f61657314b
1 changed files with 0 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ide/ideoptiondefs.pas
View File

@ -285,7 +285,6 @@ type
DockedRadioButton: TRadioButton;
ApplyButton: TButton;
GetWindowPositionButton: TButton;
procedure RadioButtonClick(Sender: TObject);
procedure ApplyButtonClick(Sender: TObject);
procedure GetWindowPositionButtonClick(Sender: TObject);
private
@ -909,7 +908,6 @@ begin
Top := 6
else
AnchorToNeighbour(akTop,6,PreviousButton);
OnClick:=@RadioButtonClick;
Caption:=GetRadioBtnCaptions(APlacement);
Checked:=(APlacement=ALayout.WindowPlacement);
end;
@ -1009,21 +1007,6 @@ begin
fUpdateRadioButtons:=false;
end;
procedure TIDEWindowSetupLayoutComponent.RadioButtonClick(Sender: TObject);
var APlacement: TIDEWindowPlacement;
ARadioButton: TRadioButton;
begin
if fUpdateRadioButtons then exit;
fUpdateRadioButtons:=true;
for APlacement:=Low(TIDEWindowPlacement) to High(TIDEWindowPlacement) do
begin
ARadioButton:=GetPlacementRadioButtons(APlacement);
if ARadioButton<>nil then
ARadioButton.Checked:=(ARadioButton=Sender);
end;
fUpdateRadioButtons:=false;
end;
function TIDEWindowSetupLayoutComponent.GetPlacementRadioButtons(
APlacement: TIDEWindowPlacement): TRadioButton;
begin