Rev 9659 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 9659 | Rev 9668 | ||
---|---|---|---|
Line 80... | Line 80... | ||
80 | res.top := 0; |
80 | res.top := 0; |
81 | res.value := FALSE; |
81 | res.value := FALSE; |
82 | res.mouse := FALSE; |
82 | res.mouse := FALSE; |
83 | COPY(text, res.text); |
83 | COPY(text, res.text); |
84 | res.canvas := G.CreateCanvas(fontHeight + padding + LENGTH(res.text)*fontWidth, fontHeight + 1); |
84 | res.canvas := G.CreateCanvas(fontHeight + padding + LENGTH(res.text)*fontWidth, fontHeight + 1); |
85 | G.SetFont(res.canvas, G.CreateFont(1, "", {})); |
85 | G.SetFont(res.canvas, G.font1); |
86 | chkbox := res |
86 | chkbox := res |
87 | END create; |
87 | END create; |
Line 88... | Line 88... | ||
88 | 88 |