• R/O
  • SSH
  • HTTPS

apollo: Commit


Commit MetaInfo

Revision556 (tree)
Time2007-08-26 03:27:04
Authormoriq

Log Message

added StrColGrid#fill_cell.

Change Summary

Incremental Difference

--- apollo/trunk/src/ext/strcolgrid/uSCGrid.pas (revision 555)
+++ apollo/trunk/src/ext/strcolgrid/uSCGrid.pas (revision 556)
@@ -162,6 +162,24 @@
162162 result := This;
163163 end;
164164
165+function dl_GridDrawState(v: Tvalue): TGridDrawState;
166+var
167+ a: Integer;
168+ b: TGridDrawState absolute a;
169+begin
170+ a:= dl_Set(v);
171+ result := b;
172+end;
173+
174+function StrColGrid_fill_cell(This, col, row, state: Tvalue): Tvalue; cdecl;
175+var
176+ real: TStrColGrid;
177+begin
178+ real := ap_data_get_struct(This);
179+ real.FillCell(dl_Integer(col), dl_Integer(row), dl_GridDrawState(state));
180+ result := This;
181+end;
182+
165183 procedure Init_SCGrid;
166184 begin
167185 DefineConstSetType(ap_mPhi, TypeInfo(TSCGCellCaptionType));
@@ -176,6 +194,8 @@
176194
177195 DefineAttrGet(cStrColGrid, 'cell_divide', StrColGrid_get_cell_divide);
178196 DefineAttrSet(cStrColGrid, 'cell_divide', StrColGrid_set_cell_divide);
197+
198+ rb_define_method(cStrColGrid, 'fill_cell', @StrColGrid_fill_cell, 3);
179199 end;
180200
181201 end.
Show on old repository browser