show command list while using text tool.
This commit is contained in:
parent
684e3d1b0c
commit
4126beddc2
1 changed files with 7 additions and 1 deletions
|
|
@ -187,8 +187,8 @@ do
|
||||||
canvas
|
canvas
|
||||||
if showtoolbox then toolbox
|
if showtoolbox then toolbox
|
||||||
if showcolorpicker then colorpicker
|
if showcolorpicker then colorpicker
|
||||||
if showcommands then commandlist
|
|
||||||
if state.tool = 12 then drawTextToolPanel
|
if state.tool = 12 then drawTextToolPanel
|
||||||
|
if showcommands then commandlist
|
||||||
_limit 30
|
_limit 30
|
||||||
_display
|
_display
|
||||||
loop
|
loop
|
||||||
|
|
@ -221,6 +221,12 @@ sub drawTextToolPanel
|
||||||
dim x as integer: x = _width - panelWidth
|
dim x as integer: x = _width - panelWidth
|
||||||
static showFontList as integer ' Tracks the expanding drop-down list state
|
static showFontList as integer ' Tracks the expanding drop-down list state
|
||||||
|
|
||||||
|
if showcommands then
|
||||||
|
x = _width - panelWidth - 250
|
||||||
|
else
|
||||||
|
x = _width - panelWidth
|
||||||
|
end if
|
||||||
|
|
||||||
' Draw the side panel background card block
|
' Draw the side panel background card block
|
||||||
line (x, 0)-(_width - 1, _height - 1), backgroundcolor1, bf
|
line (x, 0)-(_width - 1, _height - 1), backgroundcolor1, bf
|
||||||
line (x, 0)-(x, _height - 1), backgroundcolor2
|
line (x, 0)-(x, _height - 1), backgroundcolor2
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue