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

IDE: fixed designer shiftstate

Browse Source 
git-svn-id: trunk@21732 -
This commit is contained in:
mattias 2009-09-16 10:51:34 +00:00
parent 3ded35fa2f
commit 5a612c0fdb
3 changed files with 29 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
designer/designer.pp
View File

@ -1281,7 +1281,18 @@ begin
Button:=mbRight; Button:=mbRight;
end; end;
else else
Button:=mbExtra1; if (TheMessage.keys and MK_MButton)<>0 then begin
Include(Shift,ssMiddle);
Button:=mbMiddle;
end;
if (TheMessage.keys and MK_RButton)<>0 then begin
Include(Shift,ssRight);
Button:=mbRight;
end;
if (TheMessage.keys and MK_LButton)<>0 then begin
Include(Shift,ssLeft);
Button:=mbLeft;
end;
end; end;
case TheMessage.Msg of case TheMessage.Msg of
@ -1840,7 +1851,7 @@ begin
if (ControlSelection.SelectionForm=nil) if (ControlSelection.SelectionForm=nil)
or (ControlSelection.SelectionForm=Form) or (ControlSelection.SelectionForm=Form)
then begin then begin
if (TheMessage.keys and MK_LButton) = MK_LButton then begin if Button=mbLeft then begin
// left button pressed // left button pressed
if (ControlSelection.ActiveGrabber<>nil) then begin if (ControlSelection.ActiveGrabber<>nil) then begin
// grabber moving -> size selection // grabber moving -> size selection

18
examples/designnonlcl/project/unit1.lfm
View File

@ -1,6 +1,6 @@
object MyForm1: TMyForm1 object MyForm1: TMyForm1
Left = 319 Left = 329
Top = 231 Top = 279
Width = 320 Width = 320
Height = 240 Height = 240
Visible = False Visible = False
@ -14,24 +14,24 @@ object MyForm1: TMyForm1
Caption = 'MyButton1' Caption = 'MyButton1'
end end
object MyButton2: TMyButton object MyButton2: TMyButton
Left = 30 Left = 27
Top = 70 Top = 68
Width = 75 Width = 91
Height = 25 Height = 25
Visible = False Visible = False
Caption = 'MyButton2' Caption = 'MyButton2'
end end
object MyGroupBox1: TMyGroupBox object MyGroupBox1: TMyGroupBox
Left = 144 Left = 139
Top = 65 Top = 65
Width = 105 Width = 145
Height = 75 Height = 75
Visible = False Visible = False
Caption = 'MyGroupBox1' Caption = 'MyGroupBox1'
object MyGroupBox2: TMyGroupBox object MyGroupBox2: TMyGroupBox
Left = 10 Left = 14
Top = 10 Top = 10
Width = 70 Width = 101
Height = 53 Height = 53
Visible = False Visible = False
Caption = 'MyGroupBox2' Caption = 'MyGroupBox2'

14
examples/designnonlcl/project/unit1.lrs
View File

@ -1,13 +1,13 @@
{ This is an automatically generated lazarus resource file } { This is an automatically generated lazarus resource file }
LazarusResources.Add('TMyForm1','FORMDATA',[ LazarusResources.Add('TMyForm1','FORMDATA',[
'TPF0'#8'TMyForm1'#7'MyForm1'#4'Left'#3'?'#1#3'Top'#3#231#0#5'Width'#3'@'#1#6 'TPF0'#8'TMyForm1'#7'MyForm1'#4'Left'#3'I'#1#3'Top'#3#23#1#5'Width'#3'@'#1#6
+'Height'#3#240#0#7'Visible'#8#7'Caption'#6#7'MyForm1'#0#9'TMyButton'#9'MyBut' +'Height'#3#240#0#7'Visible'#8#7'Caption'#6#7'MyForm1'#0#9'TMyButton'#9'MyBut'
+'ton1'#4'Left'#2#20#3'Top'#2#10#5'Width'#2'K'#6'Height'#2#25#7'Visible'#8#7 +'ton1'#4'Left'#2#20#3'Top'#2#10#5'Width'#2'K'#6'Height'#2#25#7'Visible'#8#7
+'Caption'#6#9'MyButton1'#0#0#9'TMyButton'#9'MyButton2'#4'Left'#2#30#3'Top'#2 +'Caption'#6#9'MyButton1'#0#0#9'TMyButton'#9'MyButton2'#4'Left'#2#27#3'Top'#2
+'F'#5'Width'#2'K'#6'Height'#2#25#7'Visible'#8#7'Caption'#6#9'MyButton2'#0#0 +'D'#5'Width'#2'['#6'Height'#2#25#7'Visible'#8#7'Caption'#6#9'MyButton2'#0#0
+#11'TMyGroupBox'#11'MyGroupBox1'#4'Left'#3#144#0#3'Top'#2'A'#5'Width'#2'i'#6 +#11'TMyGroupBox'#11'MyGroupBox1'#4'Left'#3#139#0#3'Top'#2'A'#5'Width'#3#145#0
+'Height'#2'K'#7'Visible'#8#7'Caption'#6#11'MyGroupBox1'#0#11'TMyGroupBox'#11 +#6'Height'#2'K'#7'Visible'#8#7'Caption'#6#11'MyGroupBox1'#0#11'TMyGroupBox'
+'MyGroupBox2'#4'Left'#2#10#3'Top'#2#10#5'Width'#2'F'#6'Height'#2'5'#7'Visibl' +#11'MyGroupBox2'#4'Left'#2#14#3'Top'#2#10#5'Width'#2'e'#6'Height'#2'5'#7'Vis'
+'e'#8#7'Caption'#6#11'MyGroupBox2'#0#0#0#0 +'ible'#8#7'Caption'#6#11'MyGroupBox2'#0#0#0#0
]); ]);