Changeset 174
- Timestamp:
- Jun 16, 2019, 11:29:21 AM (5 years ago)
- Location:
- trunk
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LocalPlayer/Nego.pas
r57 r174 15 15 type 16 16 THistory = record 17 n: integer;18 Text: array 19 end; 20 21 TCommandAllowedEnum = scDipNoticeStart ..scDipBreakStart;17 n: Integer; 18 Text: array[0 .. MaxHistory - 1] of ansistring; 19 end; 20 21 TCommandAllowedEnum = scDipNoticeStart..scDipBreakStart; 22 22 23 23 { TNegoDlg } -
trunk/Packages/CevoComponents/DrawDlg.pas
r168 r174 15 15 public 16 16 constructor Create(AOwner: TComponent); override; 17 destructor Destroy; override; 17 18 procedure SmartInvalidate; virtual; 18 19 private … … 20 21 MoveMousePos: TPoint; 21 22 MoveActive: Boolean; 23 procedure VisibleChangedHandler(Sender: TObject); 22 24 protected 23 25 TitleHeight: Integer; … … 67 69 inherited; 68 70 TitleHeight := 0; 71 MoveActive := False; 72 AddHandlerOnVisibleChanged(VisibleChangedHandler); 73 end; 74 75 destructor TDrawDlg.Destroy; 76 begin 77 RemoveHandlerOnVisibleChanging(VisibleChangedHandler); 78 inherited Destroy; 69 79 end; 70 80 … … 111 121 var 112 122 MousePosNew: TPoint; 123 NewFormPos: TPoint; 113 124 begin 114 125 inherited; 115 126 {$IFDEF LINUX} 116 127 // HitTest is not supported under Linux GTK2 so use form inside move mechanizm 117 MoveMousePos := ClientToScreen(Point(X, Y)); 118 MoveFormPos := Point(Left, Top); 119 MousePosNew := Mouse.CursorPos; 120 // Activate move only if mouse position was not changed during inherited call 121 if (MousePosNew.X = MoveMousePos.X) and (MousePosNew.Y = MoveMousePos.Y) then begin 122 MoveActive := True; 123 end; 128 NewFormPos := ScreenToClient(Mouse.CursorPos); 129 if (NewFormPos.X >= 0) and (NewFormPos.X < Width) and 130 (NewFormPos.Y >= 0) and (NewFormPos.Y < Height) then begin 131 MoveMousePos := ClientToScreen(Point(X, Y)); 132 MoveFormPos := Point(Left, Top); 133 MousePosNew := Mouse.CursorPos; 134 // Activate move only if mouse position was not changed during inherited call 135 if (MousePosNew.X = MoveMousePos.X) and (MousePosNew.Y = MoveMousePos.Y) then begin 136 MoveActive := True; 137 end; 138 end else MoveActive := False; 124 139 {$ENDIF} 125 140 end; … … 149 164 MoveActive := False; 150 165 inherited; 166 end; 167 168 procedure TDrawDlg.VisibleChangedHandler(Sender: TObject); 169 begin 170 MoveActive := False; 151 171 end; 152 172 -
trunk/Packages/CevoComponents/Sound.pas
r173 r174 99 99 {$ENDIF} 100 100 {$IFDEF LINUX} 101 {$IFNDEF WINDOWS}102 101 FreeAndNil(SoundPlayerSyncProcess); 103 102 FreeAndNil(SoundPlayerAsyncProcess); 104 {$ENDIF}105 103 {$ENDIF} 106 104 inherited Destroy; -
trunk/Packages/CevoComponents/StringTables.pas
r128 r174 17 17 destructor Destroy; override; 18 18 function LoadFromFile(const FileName: String): boolean; 19 function GetHandle(const Item: AnsiString): integer;19 function GetHandle(const Item: string): integer; 20 20 function LookupByHandle(Handle: integer; Index: integer = -1): string; 21 21 function Lookup(const Item: string; Index: integer = -1): string; … … 55 55 end; 56 56 57 function TStringTable.GetHandle(const Item: AnsiString): integer;57 function TStringTable.GetHandle(const Item: string): integer; 58 58 var 59 59 I: Integer;
Note:
See TracChangeset
for help on using the changeset viewer.