- Realigned frmRegionControl

- Added coordinate grabbing to TfrmRegionControl
- Added hints to the grab buttons in frmLargeScaleCommand
This commit is contained in:
Andreas Schneider 2009-12-19 14:39:14 +01:00
parent 387d5fb28d
commit a9f278ae21
3 changed files with 1348 additions and 1193 deletions

View File

@ -1084,7 +1084,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = btnDeleteArea AnchorSideBottom.Control = btnDeleteArea
Left = 4 Left = 4
Height = 118 Height = 122
Top = 154 Top = 154
Width = 144 Width = 144
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
@ -1209,10 +1209,8 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
Top = 280 Top = 280
Width = 22 Width = 22
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Left = 4 BorderSpacing.Bottom = 4
BorderSpacing.Top = 8 BorderSpacing.Around = 4
BorderSpacing.Right = 4
BorderSpacing.Bottom = 8
Color = clBtnFace Color = clBtnFace
Glyph.Data = { Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
@ -1394,6 +1392,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 34 Left = 34
Height = 22 Height = 22
Hint = 'Grab coordinates from the main window.'
Top = 360 Top = 360
Width = 22 Width = 22
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
@ -1438,6 +1437,8 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
} }
NumGlyphs = 0 NumGlyphs = 0
OnClick = btnGrab1Click OnClick = btnGrab1Click
ShowHint = True
ParentShowHint = False
end end
object btnGrab2: TSpeedButton object btnGrab2: TSpeedButton
AnchorSideLeft.Control = seY2 AnchorSideLeft.Control = seY2
@ -1446,6 +1447,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 92 Left = 92
Height = 22 Height = 22
Hint = 'Grab coordinates from the main window.'
Top = 360 Top = 360
Width = 22 Width = 22
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
@ -1489,5 +1491,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
} }
NumGlyphs = 0 NumGlyphs = 0
OnClick = btnGrab1Click OnClick = btnGrab1Click
ShowHint = True
ParentShowHint = False
end end
end end

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff