Ilka Guigova - Professional Profile

<style type='text/css'>
.TableContainer div { 
 width:900px;
 padding-bottom: 20px;
 overflow-x:auto;
 overflow-y:hidden; 
}
.locked {
 position: relative; 
}
</style>

<style type='text/css'>

/* HORIZONTAL SCROLLING */
.TableContainer div{
 width:800px;
 padding-bottom: 20px;
 overflow-x:auto;
 overflow-y:hidden;
}
.locked {
 position: relative; 
}

/* VERTICAL SCROLLING */
.TableContainer tbody{
 height:300px;
 overflow-x:hidden;
 overflow-y:auto;
 padding-right: 20px;
 /*direction:rtl; // Use to place the scroll bar on the left side */
}
/* Prevent IE from using the TBODY height for all the TR's */
.TableContainer tbody tr {
 height: auto;
 white-space: nowrap;
}
</style>

private void MakeAccessible(GridView grid)
        {
            // complements of 
            // http://blog.madskristensen.dk/post/Make-the-GridView-control-accessible.aspx
            if (grid.Rows.Count > 0)
            {
                //This replaces <td> with <th> and adds the scope attribute
                grid.UseAccessibleHeader = true;

                //This will add the <thead> and <tbody> elements
                grid.HeaderRow.TableSection = TableRowSection.TableHeader;

                //This adds the <tfoot> element. Remove if you don't have a footer row
                grid.FooterRow.TableSection = TableRowSection.TableFooter;

                // To avoid out of order Pager rows: The table  must contain row sections in order of header, body, then footer
                // http://msnetprogrammer.net/blog/archive/2007/02/02/5.aspx
                if (grid.TopPagerRow != null)
                {
                    grid.TopPagerRow.TableSection = TableRowSection.TableHeader;
                }
                if (grid.BottomPagerRow != null)
                {
                    grid.BottomPagerRow.TableSection = TableRowSection.TableFooter;
                }

            }
        }

<script type="text/javascript">
/* compliments to http://www.robertnyman.com/index.php?p=256 */
function getElementsByClassName(oElm, strTagName, oClassNames){
	var arrElements = (strTagName == "*" && oElm.all)? oElm.all : oElm.getElementsByTagName(strTagName);
	var arrReturnElements = new Array();
	var arrRegExpClassNames = new Array();
	if(typeof oClassNames == "object"){
		for(var i=0; i<oClassNames.length; i++){
			arrRegExpClassNames.push(new RegExp("(^|\s)" + oClassNames[i].replace(/-/g, "\-") + "(\s|$)"));
		}
	}
	else{
		arrRegExpClassNames.push(new RegExp("(^|\s)" + oClassNames.replace(/-/g, "\-") + "(\s|$)"));
	}
	var oElement;
	var bMatchesAll;
	for(var j=0; j<arrElements.length; j++){
		oElement = arrElements[j];
		bMatchesAll = true;
		for(var k=0; k<arrRegExpClassNames.length; k++){
			if(!arrRegExpClassNames[k].test(oElement.className)){
				bMatchesAll = false;
				break;
			}
		}
		if(bMatchesAll){
			arrReturnElements.push(oElement);
		}
	}
	return (arrReturnElements)
}

function OnScroll(){
    // alert("Scrolling...");    
    var cells = getElementsByClassName(document.getElementByID("div_OLMGridView"), "td", "locked"); 
    for (var i = 0; i < cells.length; i++){
        cells[i].style.left = cells[i].offsetParent.scrollLeft;
    }
}

function GetScroller(){
    var scroller = null; 
    var divs=document.getElementsByTagName('div');
	for (var i = 0; i < divs.length; i++) {
	    if (divs[i].parentNode.getAttribute('class') == "TableContainer"){
	        scroller = divs[i];
	        break;
	    }
	}
	return (scroller);
}

function AddScrollListener(){	
    var scroller = GetScroller();
    // alert(scroller);
    if (scroller != null){
	if (scroller.addEventListener){
            scroller.addEventListener('scroll', OnScroll, false);
        } else if (scroller.attachEvent){
            scroller.attachEvent('scroll', OnScroll);
        }
    }
}// run it on load, or just call the function when you startup.
window.onload = function(){AddScrollListener();}
</script>

<DIV STYLE="background-color: #CFCFCF; position: absolute; 
         left:expression(document.body.clientWidth/2-oDiv.offsetWidth/2);
         top:expression(document.body.clientHeight/2-oDiv.offsetHeight/2)"></DIV>

unit uUPOSFactory;

interface
uses
  uUPOSDeviceControl,
  uUPOSDeviceService;

const
  POSDEVICESINIFILE = 'C:\Program Files\Vivonet\iPOS\Client\PosDevices.ini';

function CreateDeviceService(DeviceName: string): TUPOSDeviceService;
function CreateDeviceControl(DeviceName: string): TUPOSDeviceControl;

implementation

uses
  IniFiles,
  Classes;

function GetClassName(DeviceName: string; DeviceObject: string):string;
var
  iniFile: TIniFile;
begin
  iniFile := TIniFile.Create(POSDEVICESINIFILE);
  Result := iniFile.ReadString(DeviceName, DeviceObject, 'T' + DeviceName + DeviceObject);
  iniFile.Free;
end;

function CreateDeviceService(DeviceName: string): TUPOSDeviceService;
var
  DeviceClass: TPersistentClass;
begin
  try
    DeviceClass := GetClass(GetClassName(DeviceName, 'Service'));
    Result := TUPOSDeviceService(DeviceClass.Create);
  except
    Result := nil;
  end;
end;

function CreateDeviceControl(DeviceName: string): TUPOSDeviceControl;
var
  DeviceClass: TPersistentClass;
begin
  try
    DeviceClass := GetClass(GetClassName(DeviceName, 'Control'));
    Result := TUPOSDeviceControl(DeviceClass.Create);
  except
    Result := nil;
  end;
end;
end.

CURRENCY Currency_Amount;
CString Currency_Text = "";
Currency_Text.Format("%.2f", (float)(Currency_Amount.int64) / 10000);

CURRENCY Currency_Amount; 
COleCurrency COleCurr_Amount;
MSXML::IXMLDOMNodePtr pNode;
pNode = pDOMDoc->selectSingleNode("//Amount/Authorize");
if(pNode)
{
   COleCurr_Amount.ParseCurrency(W2T(pNode->Gettext()));
   Currency_Amount = COleCurr_Amount.m_cur;
}

while PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do begin
  TranslateMessage(Msg);
  DispatchMessage(Msg);
end;

function TApplication.ProcessMessage(var Msg: TMsg): Boolean;
var
  Handled: Boolean;
begin
  Result := False;
  if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then
  begin
    Result := True;
    if Msg.Message <> WM_QUIT then
    begin
      Handled := False;
      if Assigned(FOnMessage) then FOnMessage(Msg, Handled);
      if not IsHintMsg(Msg) and not Handled and not IsMDIMsg(Msg) and
        not IsKeyMsg(Msg) and not IsDlgMsg(Msg) then
      begin
        TranslateMessage(Msg);
        DispatchMessage(Msg);
      end;
    end
    else
      FTerminate := True;
  end;
end;