Home
last modified time | relevance | path

Searched refs:AShift (Results 1 – 25 of 170) sorted by relevance

1234567

/dports/editors/cudatext/CudaText-1.151.0/atsynedit/atsynedit/
H A Datstrings_editing.inc48 AShift.Y:= 0;
59 AShift.X:= 0;
60 AShift.Y:= 1;
104 AShift.X:= 0;
105 AShift.Y:= 0;
261 AShift.X:= 0;
262 AShift.Y:= 0;
328 AShift.X:= 0;
329 AShift.Y:= 0;
467 AShift.X:= 0;
[all …]
/dports/lang/fpc-source/fpc-3.2.2/packages/ptc/src/core/
H A Dkeyeventi.inc58 AAlt, AShift, AControl: Boolean); deprecated;
60 AAlt, AShift, AControl, APress: Boolean); deprecated;
92 Result := TPTCKeyEvent.Create(ACode, AAlt, AShift, AControl);
97 Result := TPTCKeyEvent.Create(ACode, AAlt, AShift, AControl, APress);
103 Result := TPTCKeyEvent.Create(ACode, AUnicode, AAlt, AShift, AControl);
109 Result := TPTCKeyEvent.Create(ACode, AUnicode, AAlt, AShift, AControl, APress);
183 if AShift then
197 if AShift then
211 if AShift then
219 AAlt, AShift, AControl, APress: Boolean);
[all …]
H A Dkeyeventd.inc68 …class function CreateNew(ACode: Integer; AAlt, AShift, AControl: Boolean): IPTCKeyEvent; deprecate…
69 …class function CreateNew(ACode: Integer; AAlt, AShift, AControl, APress: Boolean): IPTCKeyEvent; d…
71 AAlt, AShift, AControl: Boolean): IPTCKeyEvent; deprecated;
73 AAlt, AShift, AControl, APress: Boolean): IPTCKeyEvent; deprecated;
/dports/graphics/lazpaint/lazpaint-7.1.6/lazpaintcontrols/
H A Dlcvectorrectshapes.pas172 {%H-}AShift: TShiftState);
493 if ssShift in AShift then
532 if ssShift in AShift then
563 if not (ssShift in AShift) then
610 ANewCoord: TPointF; AShift: TShiftState);
618 DoMoveXAxis(ANewCoord, AShift, 1);
624 DoMoveYAxis(ANewCoord, AShift, 1);
630 DoMoveXAxis(ANewCoord, AShift, -1);
636 DoMoveYAxis(ANewCoord, AShift, -1);
666 DoMoveXYCorner(ANewCoord, AShift, 1, 1);
[all …]
H A Dlcvectorialfill.pas95 ANewCoord: TPointF; {%H-}AShift: TShiftState);
97 ANewCoord: TPointF; AShift: TShiftState);
99 ANewCoord: TPointF; AShift: TShiftState);
101 {%H-}AShift: TShiftState);
347 ANewCoord: TPointF; AShift: TShiftState);
356 ANewCoord: TPointF; AShift: TShiftState);
364 if ssAlt in AShift then
377 ANewCoord: TPointF; AShift: TShiftState);
385 if ssAlt in AShift then
398 AShift: TShiftState);
H A Dlcvectorpolyshapes.pas103 procedure InsertPointAuto(AShift: TShiftState);
576 ANewCoord: TPointF; AShift: TShiftState);
583 ANewCoord: TPointF; AShift: TShiftState);
589 AShift: TShiftState);
687 APointIndex: integer; AShift: TShiftState);
696 DoClickPoint(i, AShift);
703 AShift: TShiftState);
708 ((APointIndex = PointCount-2) and (ssRight in AShift))) then
741 procedure TCustomPolypointShape.InsertPointAuto(AShift: TShiftState);
815 if ssShift in AShift then
[all …]
/dports/editors/lazarus-qt5-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/tachart/
H A Dtanavigation.pas111 AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer); override;
112 procedure MouseMove(AShift: TShiftState; AX, AY: Integer); override;
114 AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer); override;
282 AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer);
287 (AShift = Shift) and IsPointInRect(Point(AX, AY), FLogicalExtentRect);
293 inherited MouseDown(AButton, AShift, AX, AY);
296 procedure TChartNavPanel.MouseMove(AShift: TShiftState; AX, AY: Integer);
309 inherited MouseMove(AShift, AX, AY);
313 AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer);
318 inherited MouseUp(AButton, AShift, AX, AY);
H A Dtachartlistbox.pas91 procedure KeyDown(var AKey: Word; AShift: TShiftState); override;
92 procedure MouseDown(AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer); override;
95 procedure MouseUp(AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer); override;
493 procedure TChartListbox.KeyDown(var AKey: Word; AShift: TShiftState);
497 (AKey = VK_SPACE) and (AShift = []) and
504 inherited KeyDown(AKey, AShift);
527 AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer);
549 inherited MouseDown(AButton, AShift, AX, AY);
566 AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer);
H A Dtagraph.pas304 AShift: TShiftState; AWheelDelta: Integer; in DoMouseWheel()
901 AShift: TShiftState; AWheelDelta: Integer; AMousePos: TPoint): Boolean; in TChart.DoMouseWheel()
912 Result := ts.Dispatch(Self, EV[AWheelDelta > 0], AShift, AMousePos) or
913 inherited DoMouseWheel(AShift, AWheelDelta, AMousePos);
1385 if (ts <> nil) and ts.Dispatch(Self, evidKeyDown, AShift, p) then exit;
1397 VK_CONTROL: AShift += [ssCtrl];
1398 VK_MENU: AShift += [ssAlt];
1399 VK_SHIFT: AShift += [ssShift];
1402 if (ts <> nil) and ts.Dispatch(Self, evidKeyUp, AShift, p) then exit;
1436 AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer);
[all …]
/dports/editors/lazarus/lazarus/components/tachart/
H A Dtanavigation.pas111 AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer); override;
112 procedure MouseMove(AShift: TShiftState; AX, AY: Integer); override;
114 AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer); override;
280 AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer);
285 (AShift = Shift) and IsPointInRect(Point(AX, AY), FLogicalExtentRect);
291 inherited MouseDown(AButton, AShift, AX, AY);
294 procedure TChartNavPanel.MouseMove(AShift: TShiftState; AX, AY: Integer);
307 inherited MouseMove(AShift, AX, AY);
311 AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer);
316 inherited MouseUp(AButton, AShift, AX, AY);
H A Dtachartlistbox.pas87 procedure KeyDown(var AKey: Word; AShift: TShiftState); override;
88 procedure MouseDown(AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer); override;
91 procedure MouseUp(AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer); override;
477 procedure TChartListbox.KeyDown(var AKey: Word; AShift: TShiftState);
481 (AKey = VK_SPACE) and (AShift = []) and
488 inherited KeyDown(AKey, AShift);
511 AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer);
533 inherited MouseDown(AButton, AShift, AX, AY);
550 AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer);
H A Dtagraph.pas302 AShift: TShiftState; AWheelDelta: Integer; in DoMouseWheel()
877 AShift: TShiftState; AWheelDelta: Integer; AMousePos: TPoint): Boolean; in TChart.DoMouseWheel()
888 Result := ts.Dispatch(Self, EV[AWheelDelta > 0], AShift, AMousePos) or
889 inherited DoMouseWheel(AShift, AWheelDelta, AMousePos);
1315 if (ts <> nil) and ts.Dispatch(Self, evidKeyDown, AShift, p) then exit;
1327 VK_CONTROL: AShift += [ssCtrl];
1328 VK_MENU: AShift += [ssAlt];
1329 VK_SHIFT: AShift += [ssShift];
1332 if (ts <> nil) and ts.Dispatch(Self, evidKeyUp, AShift, p) then exit;
1369 AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer);
[all …]
/dports/editors/lazarus-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/tachart/
H A Dtanavigation.pas111 AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer); override;
112 procedure MouseMove(AShift: TShiftState; AX, AY: Integer); override;
114 AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer); override;
282 AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer);
287 (AShift = Shift) and IsPointInRect(Point(AX, AY), FLogicalExtentRect);
293 inherited MouseDown(AButton, AShift, AX, AY);
296 procedure TChartNavPanel.MouseMove(AShift: TShiftState; AX, AY: Integer);
309 inherited MouseMove(AShift, AX, AY);
313 AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer);
318 inherited MouseUp(AButton, AShift, AX, AY);
H A Dtachartlistbox.pas91 procedure KeyDown(var AKey: Word; AShift: TShiftState); override;
92 procedure MouseDown(AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer); override;
95 procedure MouseUp(AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer); override;
493 procedure TChartListbox.KeyDown(var AKey: Word; AShift: TShiftState);
497 (AKey = VK_SPACE) and (AShift = []) and
504 inherited KeyDown(AKey, AShift);
527 AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer);
549 inherited MouseDown(AButton, AShift, AX, AY);
566 AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer);
/dports/editors/lazarus-qt5/lazarus/components/tachart/
H A Dtanavigation.pas111 AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer); override;
112 procedure MouseMove(AShift: TShiftState; AX, AY: Integer); override;
114 AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer); override;
280 AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer);
285 (AShift = Shift) and IsPointInRect(Point(AX, AY), FLogicalExtentRect);
291 inherited MouseDown(AButton, AShift, AX, AY);
294 procedure TChartNavPanel.MouseMove(AShift: TShiftState; AX, AY: Integer);
307 inherited MouseMove(AShift, AX, AY);
311 AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer);
316 inherited MouseUp(AButton, AShift, AX, AY);
H A Dtachartlistbox.pas87 procedure KeyDown(var AKey: Word; AShift: TShiftState); override;
88 procedure MouseDown(AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer); override;
91 procedure MouseUp(AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer); override;
477 procedure TChartListbox.KeyDown(var AKey: Word; AShift: TShiftState);
481 (AKey = VK_SPACE) and (AShift = []) and
488 inherited KeyDown(AKey, AShift);
511 AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer);
533 inherited MouseDown(AButton, AShift, AX, AY);
550 AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer);
H A Dtagraph.pas302 AShift: TShiftState; AWheelDelta: Integer; in DoMouseWheel()
877 AShift: TShiftState; AWheelDelta: Integer; AMousePos: TPoint): Boolean; in TChart.DoMouseWheel()
888 Result := ts.Dispatch(Self, EV[AWheelDelta > 0], AShift, AMousePos) or
889 inherited DoMouseWheel(AShift, AWheelDelta, AMousePos);
1315 if (ts <> nil) and ts.Dispatch(Self, evidKeyDown, AShift, p) then exit;
1327 VK_CONTROL: AShift += [ssCtrl];
1328 VK_MENU: AShift += [ssAlt];
1329 VK_SHIFT: AShift += [ssShift];
1332 if (ts <> nil) and ts.Dispatch(Self, evidKeyUp, AShift, p) then exit;
1369 AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer);
[all …]
/dports/graphics/lazpaint/lazpaint-7.1.6/bgrabitmapnew/bgrabitmap/
H A Dbgragradientoriginal.pas330 ANewCoord: TPointF; AShift: TShiftState);
344 ANewCoord: TPointF; AShift: TShiftState);
350 if not (ssAlt in AShift) or (GradientType in [gtLinear,gtReflected]) then
360 if (GradientType = gtLinear) and (ssShift in AShift) then
374 APrevCoord, ANewCoord: TPointF; AShift: TShiftState);
382 if (GradientType = gtLinear) and (ssShift in AShift) then
396 ANewCoord: TPointF; AShift: TShiftState);
401 if not (ssAlt in AShift) or (GradientType in [gtLinear,gtReflected]) then
414 APrevCoord, ANewCoord: TPointF; AShift: TShiftState);
420 APrevCoord, ANewCoord: TPointF; AShift: TShiftState);
[all …]
/dports/editors/cudatext/CudaText-1.151.0/bgrabitmap/bgrabitmap/
H A Dbgragradientoriginal.pas330 ANewCoord: TPointF; AShift: TShiftState);
344 ANewCoord: TPointF; AShift: TShiftState);
350 if not (ssAlt in AShift) or (GradientType in [gtLinear,gtReflected]) then
360 if (GradientType = gtLinear) and (ssShift in AShift) then
374 APrevCoord, ANewCoord: TPointF; AShift: TShiftState);
382 if (GradientType = gtLinear) and (ssShift in AShift) then
396 ANewCoord: TPointF; AShift: TShiftState);
401 if not (ssAlt in AShift) or (GradientType in [gtLinear,gtReflected]) then
414 APrevCoord, ANewCoord: TPointF; AShift: TShiftState);
420 APrevCoord, ANewCoord: TPointF; AShift: TShiftState);
[all …]
/dports/games/hedgewars-server/hedgewars-src-1.0.0/hedgewars/
H A DuLandGraphics.pas153 LandPixels[pixelY, pixelX]:= IceColor and (not AMask) or $E8 shl AShift;
156 if LandPixels[pixelY, pixelX] and AMask shr AShift = 255 then
293 oAlpha := (OldColor shr AShift);
294 nAlpha := (NewColor shr AShift);
817 ceil((pixel shr AShift and $FF) * ((tint and $ff) / 255)) shl AShift;
1113 inc(a, (pixel and AMask) shr AShift);
1135 LandPixels[y,x]:= (r shl RShift) or (g shl GShift) or (b shl BShift) or (a shl AShift);
1150 if ((LandPixels[y,x] and AMask) shr AShift) < 10 then
1151 LandPixels[y,x]:= (ExplosionBorderColor and (not AMask)) or (128 shl AShift)
1178 if ((LandPixels[y,x] and AMask) shr AShift) < 10 then
[all …]
/dports/games/hedgewars/hedgewars-src-1.0.0/hedgewars/
H A DuLandGraphics.pas153 LandPixels[pixelY, pixelX]:= IceColor and (not AMask) or $E8 shl AShift;
156 if LandPixels[pixelY, pixelX] and AMask shr AShift = 255 then
293 oAlpha := (OldColor shr AShift);
294 nAlpha := (NewColor shr AShift);
817 ceil((pixel shr AShift and $FF) * ((tint and $ff) / 255)) shl AShift;
1113 inc(a, (pixel and AMask) shr AShift);
1135 LandPixels[y,x]:= (r shl RShift) or (g shl GShift) or (b shl BShift) or (a shl AShift);
1150 if ((LandPixels[y,x] and AMask) shr AShift) < 10 then
1151 LandPixels[y,x]:= (ExplosionBorderColor and (not AMask)) or (128 shl AShift)
1178 if ((LandPixels[y,x] and AMask) shr AShift) < 10 then
[all …]
/dports/editors/lazarus/lazarus/components/synedit/
H A Dsyneditmarkupctrlmouselink.pp51 function IsCtrlMouseShiftState(AShift: TShiftState; OnlyShowLink: Boolean): Boolean;
195 function TSynEditMarkupCtrlMouseLink.IsCtrlMouseShiftState(AShift: TShiftState;
205 … (AShift * ([ssShift, ssCtrl, ssAlt] + [SYNEDIT_LINK_MODIFIER]) = [SYNEDIT_LINK_MODIFIER]);
214 act.IsMatchingShiftState(AShift)
223 act.IsMatchingShiftState(AShift)
234 act.IsMatchingShiftState(AShift)
/dports/editors/lazarus-qt5/lazarus/components/synedit/
H A Dsyneditmarkupctrlmouselink.pp51 function IsCtrlMouseShiftState(AShift: TShiftState; OnlyShowLink: Boolean): Boolean;
195 function TSynEditMarkupCtrlMouseLink.IsCtrlMouseShiftState(AShift: TShiftState;
205 … (AShift * ([ssShift, ssCtrl, ssAlt] + [SYNEDIT_LINK_MODIFIER]) = [SYNEDIT_LINK_MODIFIER]);
214 act.IsMatchingShiftState(AShift)
223 act.IsMatchingShiftState(AShift)
234 act.IsMatchingShiftState(AShift)
/dports/editors/lazarus-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/synedit/
H A Dsyneditmarkupctrlmouselink.pp51 function IsCtrlMouseShiftState(AShift: TShiftState; OnlyShowLink: Boolean): Boolean;
194 function TSynEditMarkupCtrlMouseLink.IsCtrlMouseShiftState(AShift: TShiftState;
204 … (AShift * ([ssShift, ssCtrl, ssAlt] + [SYNEDIT_LINK_MODIFIER]) = [SYNEDIT_LINK_MODIFIER]);
213 act.IsMatchingShiftState(AShift)
222 act.IsMatchingShiftState(AShift)
233 act.IsMatchingShiftState(AShift)
/dports/editors/lazarus-qt5-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/synedit/
H A Dsyneditmarkupctrlmouselink.pp51 function IsCtrlMouseShiftState(AShift: TShiftState; OnlyShowLink: Boolean): Boolean;
194 function TSynEditMarkupCtrlMouseLink.IsCtrlMouseShiftState(AShift: TShiftState;
204 … (AShift * ([ssShift, ssCtrl, ssAlt] + [SYNEDIT_LINK_MODIFIER]) = [SYNEDIT_LINK_MODIFIER]);
213 act.IsMatchingShiftState(AShift)
222 act.IsMatchingShiftState(AShift)
233 act.IsMatchingShiftState(AShift)

1234567