Skip to content

Commit

Permalink
Fixed play song in list if 2x click.
Browse files Browse the repository at this point in the history
  • Loading branch information
fredvs committed Nov 21, 2019
1 parent cfdf412 commit 2152629
Show file tree
Hide file tree
Showing 4 changed files with 62 additions and 49 deletions.
4 changes: 2 additions & 2 deletions src/filelistform.mfm
Original file line number Diff line number Diff line change
Expand Up @@ -547,8 +547,8 @@ object filelistfo: tfilelistfo
face.template = mainfo.tfaceorange
taborder = 7
visible = False
bounds_x = 54
bounds_y = 32
bounds_x = -1
bounds_y = 93
bounds_cx = 431
bounds_cy = 32
anchors = [an_left, an_bottom]
Expand Down
7 changes: 6 additions & 1 deletion src/filelistform.pas
Original file line number Diff line number Diff line change
Expand Up @@ -443,7 +443,12 @@ procedure tfilelistfo.oncellev(const Sender: TObject; var info: celleventinfoty)

// {
if (ss_double in info.mouseeventinfopo^.shiftstate) then
begin
begin

if filelistfo.tbutton1.face.template = mainfo.tfaceorange then
onsent(tbutton1) else
if filelistfo.tbutton2.face.template = mainfo.tfaceorange then onsent(tbutton2) ;


// writeln('button 2x click');
if commanderfo.tbutton2.face.template = mainfo.tfaceorange then
Expand Down
4 changes: 2 additions & 2 deletions src/filelistform_mfm.pas
Original file line number Diff line number Diff line change
Expand Up @@ -731,8 +731,8 @@ implementation
101,46,108,111,99,97,108,112,114,111,112,115,11,0,13,102,97,99,101,46,
116,101,109,112,108,97,116,101,7,18,109,97,105,110,102,111,46,116,102,97,
99,101,111,114,97,110,103,101,8,116,97,98,111,114,100,101,114,2,7,7,
118,105,115,105,98,108,101,8,8,98,111,117,110,100,115,95,120,2,54,8,
98,111,117,110,100,115,95,121,2,32,9,98,111,117,110,100,115,95,99,120,
118,105,115,105,98,108,101,8,8,98,111,117,110,100,115,95,120,2,255,8,
98,111,117,110,100,115,95,121,2,93,9,98,111,117,110,100,115,95,99,120,
3,175,1,9,98,111,117,110,100,115,95,99,121,2,32,7,97,110,99,104,
111,114,115,11,7,97,110,95,108,101,102,116,9,97,110,95,98,111,116,116,
111,109,0,9,102,111,110,116,46,110,97,109,101,6,11,115,116,102,95,100,
Expand Down
96 changes: 52 additions & 44 deletions src/strumpract.prj
Original file line number Diff line number Diff line change
Expand Up @@ -1533,7 +1533,7 @@ findhistory=20
oswav2.y
paintsliderimage
findoptions=1
editpos=63
editpos=64
0,-1073741823
0,-1073741823
0,-1073741823
Expand Down Expand Up @@ -1578,16 +1578,16 @@ editpos=63
0,-1073741823
0,-1073741823
0,-1073741823
0,0
0,-1073741823
0,-1073741823
0,-1073741823
0,-1073741823
0,441
0,-1073741823
0,-1073741823
0,-1073741823
0,-1073741823
0,-1073741823
0,449
0,-1073741823
0,-1073741823
0,-1073741823
Expand All @@ -1597,6 +1597,7 @@ editpos=63
0,-1073741823
0,-1073741823
0,-1073741823
0,0
bookmarks0=0
bookmarks1=0
bookmarks2=0
Expand Down Expand Up @@ -1660,7 +1661,8 @@ bookmarks59=0
bookmarks60=0
bookmarks61=0
bookmarks62=0
sourcefiles=63
bookmarks63=0
sourcefiles=64
${PROJECTDIR}/filelistform.pas
${PROJECTDIR}/filelistform.pas
/home/fred/msegui/lib/common/kernel/linux/mseguiintf.pas
Expand Down Expand Up @@ -1724,7 +1726,8 @@ sourcefiles=63
${PROJECTDIR}/filelistform.pas
${PROJECTDIR}/uos_flat.pas
${PROJECTDIR}/strumpract.pas
relpaths=63
${PROJECTDIR}/songplayer.pas
relpaths=64
filelistform.pas
filelistform.pas
msegui/lib/common/kernel/linux/mseguiintf.pas
Expand Down Expand Up @@ -1788,7 +1791,9 @@ relpaths=63
filelistform.pas
uos_flat.pas
strumpract.pas
ismoduletexts=63
songplayer.pas
ismoduletexts=64
0
0
0
0
Expand Down Expand Up @@ -1885,7 +1890,9 @@ nomenumodules=7
0
0
[sourcefo.files_tab]
order=63
order=64
53
63
0
1
2
Expand All @@ -1896,6 +1903,9 @@ order=63
7
8
9
44
46
56
48
59
61
Expand Down Expand Up @@ -1932,27 +1942,23 @@ order=63
39
40
41
42
43
44
45
58
52
54
45
50
58
49
51
55
57
47
54
53
43
51
49
60
46
56
firsttab=9
index=10
42
57
firsttab=0
index=1
[layout]
windowlayout=727
windowlayout=729
[mainfo.basedock]
splitdir=2
useroptions=268450944
Expand Down Expand Up @@ -2097,7 +2103,7 @@ windowlayout=727
sortdescend1=0
sorted=0
col=0
row=4
row=7
rowheight=17
[stackfo]
splitdir=0
Expand Down Expand Up @@ -2178,7 +2184,7 @@ windowlayout=727
[objectinspectorfo]
splitdir=0
useroptions=268451947
stackedunder=targetconsolefo
stackedunder=_mse_filelistfo_mse_
parent=
mdistate=0
nx=0
Expand Down Expand Up @@ -2419,8 +2425,9 @@ windowlayout=727
[debuggerfo.edit_compiler]
value=Pascal
[debuggerfo.file_history]
value=/home/fred/strumpract/src/filelistform.pas
history=3
value=/home/fred/strumpract/src/songplayer.pas
history=4
/home/fred/strumpract/src/uos.pas
/home/fred/strumpract/src/filelistform.pas
/home/fred/strumpract/src/main.pas
${PROJECTDIR}/main.pas
Expand All @@ -2445,7 +2452,9 @@ windowlayout=727
rcx=0
rcy=0
[sourcefo.files_tab]
order=63
order=64
53
63
0
1
2
Expand All @@ -2456,6 +2465,9 @@ windowlayout=727
7
8
9
44
46
56
48
59
61
Expand Down Expand Up @@ -2492,25 +2504,21 @@ windowlayout=727
39
40
41
42
43
44
45
58
52
54
45
50
58
49
51
55
57
47
54
53
43
51
49
60
46
56
firsttab=9
index=10
42
57
firsttab=0
index=1
[cpuc86_64fo]
irqoff=0
splitdir=0
Expand Down Expand Up @@ -2626,7 +2634,7 @@ windowlayout=727
[_mse_filelistfo_mse_]
splitdir=0
useroptions=268451963
stackedunder=objectinspectorfo
stackedunder=_mse_songplayerfo_mse_
parent=
mdistate=3
nx=0
Expand All @@ -2645,7 +2653,7 @@ windowlayout=727
[_mse_guitarsfo_mse_]
splitdir=0
useroptions=268451963
stackedunder=_mse_songplayerfo_mse_
stackedunder=targetconsolefo
parent=
mdistate=3
nx=0
Expand All @@ -2664,7 +2672,7 @@ windowlayout=727
[_mse_songplayerfo_mse_]
splitdir=0
useroptions=268451963
stackedunder=_mse_filelistfo_mse_
stackedunder=mainfo
parent=
mdistate=3
nx=0
Expand Down

0 comments on commit 2152629

Please sign in to comment.