mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-15 11:49:55 +02:00
removed -Rdirect compiler option from dialog
git-svn-id: trunk@9461 -
This commit is contained in:
parent
09df114df2
commit
b442d5b996
@ -1205,17 +1205,16 @@ begin
|
||||
Top := 5;
|
||||
Left := 5;
|
||||
Height := 42;
|
||||
Width := 400;
|
||||
Width := 350;
|
||||
Caption := dlgCOStyle+' (-R)';
|
||||
with Items do begin
|
||||
BeginUpdate;
|
||||
Items.Add('Default');
|
||||
Items.Add('Intel');
|
||||
Items.Add('AT&T');
|
||||
Items.Add('direct');
|
||||
Items.Add('AT&&T');
|
||||
EndUpdate;
|
||||
end;
|
||||
Columns:=4;
|
||||
Columns:=3;
|
||||
end;
|
||||
|
||||
yDiff:=22;
|
||||
|
@ -801,7 +801,7 @@ begin
|
||||
begin
|
||||
if (AWinControl is TCustomEdit) then
|
||||
if TCustomEdit(AWinControl).BorderStyle=bsSingle then
|
||||
FlagsEx := FlagsEx or WS_EX_CLIENTEDGE;
|
||||
FlagsEx := FlagsEx or WS_EX_CLIENTEDGE;
|
||||
pClassName := 'EDIT';
|
||||
WindowTitle := StrCaption;
|
||||
Flags := Flags or ES_AUTOHSCROLL;
|
||||
|
Loading…
Reference in New Issue
Block a user