/dports/editors/cudatext/CudaText-1.151.0/atsynedit/atsynedit/ |
H A D | atstrings_editing.inc | 48 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 D | keyeventi.inc | 58 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 D | keyeventd.inc | 68 …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 D | lcvectorrectshapes.pas | 172 {%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 D | lcvectorialfill.pas | 95 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 D | lcvectorpolyshapes.pas | 103 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 D | tanavigation.pas | 111 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 D | tachartlistbox.pas | 91 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 D | tagraph.pas | 304 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 D | tanavigation.pas | 111 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 D | tachartlistbox.pas | 87 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 D | tagraph.pas | 302 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 D | tanavigation.pas | 111 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 D | tachartlistbox.pas | 91 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 D | tanavigation.pas | 111 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 D | tachartlistbox.pas | 87 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 D | tagraph.pas | 302 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 D | bgragradientoriginal.pas | 330 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 D | bgragradientoriginal.pas | 330 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 D | uLandGraphics.pas | 153 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 D | uLandGraphics.pas | 153 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 D | syneditmarkupctrlmouselink.pp | 51 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 D | syneditmarkupctrlmouselink.pp | 51 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 D | syneditmarkupctrlmouselink.pp | 51 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 D | syneditmarkupctrlmouselink.pp | 51 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)
|