Subversion Repositories Kolibri OS

Rev

Rev 4789 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4789 Rev 7119
Line 1... Line 1...
1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2
;;                                                              ;;
2
;;                                                              ;;
3
;; Copyright (C) KolibriOS team 2004-2011. All rights reserved. ;;
3
;; Copyright (C) KolibriOS team 2004-2017. All rights reserved. ;;
4
;; Distributed under terms of the GNU General Public License    ;;
4
;; Distributed under terms of the GNU General Public License    ;;
5
;;                                                              ;;
5
;;                                                              ;;
6
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
6
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Line 7... Line 7...
7
 
7
 
Line 98... Line 98...
98
 
98
 
99
macro BITMAP _name*,_fname*
99
macro BITMAP _name*,_fname*
100
{
100
{
101
  local w,h,a,r,g,b
101
  local w,h,a,r,g,b
-
 
102
  virtual at 0
-
 
103
    _file equ _#_name
102
  virtual at 0
104
    _file::
103
    file _fname
-
 
104
    load w dword from _bmp.i.biWidth
-
 
105
    load h dword from _bmp.i.biHeight
105
    file _fname
-
 
106
  end virtual
-
 
107
  load w dword from _file:_bmp.i.biWidth
-
 
108
  load h dword from _file:_bmp.i.biHeight
106
  end virtual
109
  load hsize dword from _file:_bmp.h.bfOffBits
107
  align 4
110
  align 4
108
  label _name
111
  label _name
109
    .width  = w
112
    .width  = w
110
    .height = h
113
    .height = h
111
  dd w,h
114
  dd w,h
112
  a=54+(w*3+(w mod 4))*(h-1)
115
  a=hsize+(w*3+(w mod 4))*(h-1)
113
  size = $
116
  size = $
114
  repeat h
117
  repeat h
115
    repeat w
-
 
116
      virtual at 0
-
 
117
        file _fname
118
    repeat w
118
        load r from a+0
119
      load r from _file:a+0
119
        load g from a+1
120
      load g from _file:a+1
120
        load b from a+2
-
 
121
      end virtual
121
      load b from _file:a+2
122
      db r,g,b
122
      db r,g,b
123
      a=a+3
123
      a=a+3
124
    end repeat
124
    end repeat
125
    a=a-w*3*2-(w mod 4)
125
    a=a-w*3*2-(w mod 4)
Line 139... Line 139...
139
}
139
}
Line 140... Line 140...
140
 
140
 
141
macro SKIN_PARAMS [a]
141
macro SKIN_PARAMS [a]
142
{
142
{
143
  common
143
  common
144
    local _height,_margins,_colors,_colors_1,_dtp,_dtp_sz
144
    local _height,_margins,_colors,_colors_1,_dtp
145
    __params__:
145
    __params__:
146
  forward
146
  forward
147
    match qq == ww,a
147
    match qq == ww,a
148
    \{
148
    \{
Line 171... Line 171...
171
    \}
171
    \}
172
  common
172
  common
173
    dd _height
173
    dd _height
174
    dw _margins
174
    dw _margins
175
    dd _colors,_colors_1
175
    dd _colors,_colors_1
176
    virtual at 0
-
 
177
      file _dtp
-
 
178
      _dtp_sz = $
-
 
179
    end virtual
-
 
180
    dd _dtp_sz
176
    dd @f - $ - 4
181
    file _dtp
177
    file _dtp
-
 
178
    @@:
182
}
179
}
Line 183... Line 180...
183
 
180
 
184
macro SKIN_BUTTONS [a]
181
macro SKIN_BUTTONS [a]
185
{
182
{