This is a migrated thread and some comments may be shown as answers.

problem with radgrid mouse hover

5 Answers 179 Views

Grid

This is a migrated thread and some comments may be shown as answers.

5 Answers, 1 is accepted

answered on 12 Nov 2012, 11:40 AM

I'll try- I can only copy paste the code parts..

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Nehalim.aspx.vb" Inherits="Nehalim" %>

<%@ Register Assembly="Telerik.Web.UI" Namespace="Telerik.Web.UI" TagPrefix="telerik" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head runat="server">

<title> </title>

<style type="text/css">

.style1

{

width: 100%;

}

#D12

{

text-align: right;

}

</style>

</head>

<body onload='CotDisp();'>

<form id="form1" runat="server">

<script language="vbscript" type="text/vbscript">

sub doCls1(mySec, mySubSec)

dim sUrl

sUrl=window.location.href

msgbox sUrl & "mySubSec=" & mySubSec

if instr(sUrl,"&popn_cls=OPEN" ) then

sUrl=replace(sUrl,"&popn_cls=OPEN","&popn_cls=CLOSE",1)

else

if instr(sUrl,"&popn_cls=") then

else

sUrl= sUrl & "&popn_cls=CLOSE"

end if

if instr(sUrl,"&popn_cls=CLOSE" ) then sUrl=replace(sUrl,"&popn_cls=CLOSE","&popn_cls=OPEN",1)

end if

if instr(surl,"&mySubSec=") then

else

sUrl=surl & "&mySubSec=" & mySubSec

end if

if instr(surl,"&mySec=") then

else

sUrl=surl & "&mySec=" & mySec

end if

window.location.href=sUrl

end sub

function RepisOPN(myOldstr)

dim tempstr

tempstr=myOldstr

if instr(tempstr,"&popn_cls=OPEN" ) then

tempstr=replace(tempstr,"&popn_cls=OPEN","&popn_cls=CLOSE",1)

else

if instr(tempstr,"&popn_cls=") then

else

tempstr= tempstr & "&popn_cls=CLOSE"

end if

if instr(tempstr,"&popn_cls=CLOSE" ) then tempstr=replace(tempstr,"&popn_cls=CLOSE","&popn_cls=OPEN",1)

end if

RepisOPN=tempstr

end function

</script>

<link href="ows.css" rel="stylesheet" type="text/css" />

<script type="text/javascript">

function getQueryVar(variable) {

var query = window.location.search.substring(1);

var vars = query.split("&");

for (var i = 0; i < vars.length; i++) {

var pair = vars[i].split("=");

if (pair[0] == variable) {

return pair[1];

}

return '';

}

function ShowMessage(sender, args) {

var id = args.getDataKeyValue("ID");

var secid = args.getDataKeyValue("PROC_NUM");

var app = args.getDataKeyValue("APPROVED");

var clss = args.getDataKeyValue("CLASS");

var btnOPC = args.getDataKeyValue("BUTTON_OPENCLS");

var mySec = args.getDataKeyValue("SECTIONID");

var mySubSec = args.getDataKeyValue("SUBSECTIONID");

var su = getQueryVar("SUB")

if (clss == "SECTION") {

mySubSec = "ALL"

}

if (clss == "SUBJECT") {

mySubSec = "ALL"

mySec = "ALL"

}

var filen = args.getDataKeyValue("FILENAME");

var SubjectID = args.getDataKeyValue("SUBJECTID")

var sers = document.getElementById("DetailURL").value;

var params = "aa=1&IDnum=" + id + "&SubjectID=" + SubjectID +"&Approved=" + app + "&FileName=" + filen;

if (String(filen).length > 2)

var win = window.open(sers + params);

else {

window.location = "Nehalim.aspx?aa=1" + "&SUB=" + su + "&SubjectID=" + SubjectID + "&pnewsubj=N&popn_cls=" + btnOPC + "&mySec=" + mySec + "&mySubSec=" + mySubSec;

}

function ShowMessage1(sender, args)

{

var id = args.getDataKeyValue("ID");

var wnd = window.radopen("Details.aspx?AuthorID=" + id, null);

var index = args.get_itemIndexHierarchical();

var item = args.get_tableView().get_dataItems()[index];

var rowElement = item.get_element();

var bounds = $telerik.getBounds(rowElement);

wnd.moveTo(bounds.x + 120 + index * 10, bounds.y - 180);

}

function ShowSubject(sender, args) {

var id = args.getDataKeyValue("ID");

var su = args.getDataKeyValue("SUBJECT");

if (String(id).length > 0)

window.location = "Nehalim.aspx?aa=1" + "&SUB=" + su + "&SubjectID=" + id + "&pnewsubj=Y&popn_cls=OPEN"

else

alert('xx');

}

function isDiferentSecorSubsec(oldurl, newurl) {

var tempstr = '';

var clopn = getQueryVar('popn_cls');

var oldsec = getQueryVar('mySec');

var oldsubsec = getQueryVar('mySubSec');

var isSubsec = true;

var isSec = true;

var isOpn = true;

bool = false;

if (newurl.indexOf('popn_cls') > 0)

if (newurl.indexOf('popn_cls=' + clopn ) < 0)

isOpn = false;

if (newurl.indexOf('mySec') > 0)

if (newurl.indexOf('mySec=' + oldsec ) < 0)

isSec = false;

if (newurl.indexOf('mySubSec') > 0)

if (newurl.indexOf('mySubSec=' + oldsubsec) < 0)

isSubsec = false;

var tempstr = '';

var bool2 = false;

bool2 = ((isSec == false) || (isSubsec == false));

if (bool2 )

bool=true;

var tempstr = '';

return (bool);

}

function doCls (mySec, mySubSec) {

var sUrl = "";

var sUrl1="";

sUrl = window.location.href;

sUrl1=RepisOPN(sUrl);

if (sUrl1.indexOf('mySubSec=') < 0)

sUrl1 = sUrl1 + '&mySubSec=' + mySubSec;

if (sUrl1.indexOf('mySec=') < 0)

sUrl1 = sUrl1 + '&mySec=' + mySec;

var ii = 0;

var myConst = "&popn_cls=OPEN&SubjectID="

var chkk = false;

var c1 = sUrl.indexOf('mySubSec='); var c2 = sUrl.indexOf('popn_cls=') ;

var c3 = sUrl.indexOf('mySec=');

chkk = ((c1 < 0) && (c2 < 0) && (c3 < 0));

if (chkk == true)

myConst = "&popn_cls=CLOSE&SubjectID=";

ii = 9;

var myNew = "http://" + window.location.hostname + window.location.pathname;

var myNewUrl = myNew + "?bb=1&mySubSec=" + mySubSec + '&mySec=' + mySec + myConst + getQueryVar("SubjectID");

var bool = isDiferentSecorSubsec(sUrl, myNewUrl);

if (bool == false)

sUrl1 = myNewUrl;

window.location = sUrl1;

}

function doCls2(mySec, mySubSec) {

var sUrl = "";

sUrl = window.location.href;

alert(sUrl + " mySubSec=" + mySubSec + ' &mySec=' + mySec);

if (sUrl.indexOf('popn_cls=OPEN') > 0) {

sUrl1 = sUrl.replace(sUrl, 'popn_cls=OPEN', 'popn_cls=CLOSE');

alert(sUrl1);

}

else {

if (sUrl.indexOf('popn_cls=') > 0)

var j=1;

else

sUrl = sUrl + '&popn_cls=OPEN';

if (sUrl.indexOf('popn_cls=CLOSE') > 0)

sUrl = sUrl.replace(sUrl, 'popn_cls=CLOSE', 'popn_cls=OPEN');

}

if (sUrl.indexOf('mySubSec=') < 0)

sUrl = sUrl + '&mySubSec=' + mySubSec;

if (sUrl.indexOf('mySec=') < 0)

sUrl = sUrl + '&mySec=' + mySec;

var ii = 0;

alert(sUrl);

window.location = sUrl;

}

function CotDisp() {

var ss = getQueryVar("SUB");

if (String(ss).indexOf("%") <0)

document.all("nowin").innerHTML = getQueryVar("SUB");

}

</script>

<div style="left :200;text-align:center;width=500">

<img src="images/bannerNohal.JPG" width="100%" />

<label id="nowin" name="nowin" class="UserGenericHeader"

style=

"font-weight: bold; font-size:22px;text-align:right; Width: 500px; top: 5px; right: 200px; clip: rect(auto, 200px, auto, auto); "

runat=server> </label>

</div>

<telerik:RadScriptManager ID="RadScriptManager1" runat="server" />

<table class="style1">

<tr>

<td id="D11" valign=top style="width: 80%">

<telerik:RadGrid ID="UserGrid" AutoGenerateColumns="False" runat="server" Skin="Outlook"

GridLines="None" AllowSorting="true" dir="RTL" HorizontalAlign=Right >

<ClientSettings Selecting-AllowRowSelect="true" EnableRowHoverStyle="true">

<ClientEvents OnRowSelected="ShowMessage" />

<Selecting AllowRowSelect="True" />

</ClientSettings>

<MasterTableView ClientDataKeyNames="ID,SUBSECTIONID,PROC_NUM,PROCID,FILENAME,STATUS,PR_AFFECTED,PR_OWNER,CLASS,APPROVED,SUBJECTID,BUTTON_OPENCLS,SECTIONID" >

<Columns>

<telerik:GridBoundColumn SortExpression="ID" DataField="ID" HeaderText="#" Visible="false" />

<telerik:GridBoundColumn DataField="HEADLINE" HeaderText="desc" />

<telerik:GridBoundColumn DataField="PROC_NUM" HeaderText="#no" />

<telerik:GridBoundColumn DataField="PROCID" HeaderText="num" Visible="false" />

<telerik:GridDateTimeColumn DataField="UPDATE_DATE" DataFormatString="{0:dd/MM/yyyy}"

HeaderText="upd" />

<telerik:GridBoundColumn DataField="STATUS" HeaderText="status" SortExpression="STATUS" />

<telerik:GridBoundColumn DataField="Language" HeaderText="lang" SortExpression="Language" />

<telerik:GridBoundColumn DataField="PR_OWNER" HeaderText="resp no" SortExpression="PR_OWNER" />

<telerik:GridBoundColumn DataField="PR_AFFECTED" HeaderText="ppl" SortExpression="PR_AFFECTED" />

<telerik:GridBoundColumn DataField="CLASS" HeaderText="" SortExpression="CLASS" Visible=false />

<telerik:GridBoundColumn DataField="SUBSECTIONID" HeaderText="" SortExpression="SUBSECTIONID" Visible=false />

<telerik:GridBoundColumn DataField="SECTIONID" HeaderText="" SortExpression="SECTIONID" Visible=false />

<telerik:GridBoundColumn DataField="APPROVED" HeaderText="" SortExpression="APPROVED" Visible=false />

<telerik:GridBoundColumn DataField="SUBJECTID" HeaderText="" SortExpression="SUBJECTID" Visible=false />

<telerik:GridBoundColumn DataField="SECTIONID" HeaderText="" SortExpression="SECTIONID" Visible=false />

<telerik:GridBoundColumn DataField="BUTTON_OPENCLS" HeaderText="BUTTON_OPENCLS" SortExpression="BUTTON_OPENCLS" Visible=false />

</Columns>

</MasterTableView>

</telerik:RadGrid>

</td>

<td id="D12" valign=top>

<div>

<telerik:RadGrid ID="SubjGrid" AutoGenerateColumns="False" runat="server" Skin="Outlook"

GridLines="None" AllowSorting="true">

<ClientSettings Selecting-AllowRowSelect="true" EnableRowHoverStyle="true">

<ClientEvents OnRowSelected="ShowSubject" />

<Selecting AllowRowSelect="True" />

</ClientSettings>

<MasterTableView DataKeyNames="ID,SUBJECT" ClientDataKeyNames="ID,SUBJECT" >

<Columns>

<telerik:GridBoundColumn DataField="SUBJECT" HeaderText="subject" />

</Columns>

</MasterTableView>

</telerik:RadGrid>

</div>

<br />

<hr />

<div class="RadGrid RadGrid_Outlook">

<table cellspacing="0" class="rgMasterTable" border="0" id="LinkGrid_ctl00" style="width:100%;table-layout:auto;empty-cells:show;">

<th scope="col" class="rgHeader"> links </th>

<tr class="rgRow" id="LinkGrid_ctl00__0">

<td onclick="javascript:window.open('http://iainet.maman.iai/DocLib21/Forms/AllItems.aspx')">conpany desc </td>

</tr>

<tr class="rgRow" id="LinkGrid_ct200__0">

<td onclick='javascript:window.open("http://iainet.maman.iai/ASSET/default.aspx")'>toutures</td>

</tr>

<tr class="rgRow" id="LinkGrid_ct300__0">

<td onclick='window.navigate("DODISS.htm");' > DODISS

</td>

</tr>

</table>

<input id="LinkGrid_ClientState" name="LinkGrid_ClientState" type="hidden" />

</div>

<hr />

<script language=vbscript type="text/vbscript">

sub Fcheck()

dim sers1,sAct,param1,sStr1

sers1 = document.getElementById("DetailURL").value

sAct = replace(sers1,"ReadProcNew.asp?", "query.asp?nAbsPage=1&submit=true&free=true")

sStr1 = document.getElementById("searchString1").value

param1 = "&searchString1=" & sStr1

if len(cstr(sStr1)) >2 then

document.forms("form1").action=sAct & param1

document.forms("form1").submit

else

msgbox("!not legal")

document.getElementById("searchString1").value=""

end if

end sub

</script>

<table border="0" align="left" bgcolor="#9ACEFE" cellpadding="2" cellspacing="2" >

<tr>

<td bgcolor="#9acefe" align="center" colspan="1">

<font face="Arial (Hebrew)" size="2">

<asp:TextBox id="searchString1" name="searchString1" maxlength="256" size="20" runat=server></asp:TextBox>

</font>

</td>

<td bgcolor="#9acefe" align="center">

<font face="Arial (Hebrew)" size="2">

<asp:ImageButton runat=server ImageUrl="~/images/search.gif" WIDTH="35"

HEIGHT="18" onclick="Unnamed1_Click" />

</font>

</td>

</tr>

<tr>

<td bgcolor="#9acefe" width="100%" colspan="3">

<table cellpadding="0" cellspacing="0" >

<tr>

<td bgcolor="#9acefe" align="right" valign="top">

<font face="Arial (Hebrew)" size="2">

<input type="checkbox" id="free" name="free" value="true" checked>key words </font>

</td>

</tr>

</table>

</td>

</tr>

</table>

<asp:TextBox ID="DetailURL" runat="server" Height=1 BorderStyle=None ForeColor="White">1</asp:TextBox>

<asp:TextBox ID="SubjectID" runat="server" Height=1 BorderStyle=None ForeColor="White">1</asp:TextBox>

</form>

</body>

</html>

Imports LHV_DAL

Imports System.Data

Imports Telerik.Web.UI

Imports System

Imports System.Collections

Imports System.ComponentModel

Imports System.Security

Imports System.Security.Principal

Imports System.Drawing

Imports System.Web

Imports System.Web.SessionState

Imports System.Web.UI

Imports System.Web.UI.WebControls

Imports System.Web.UI.HtmlControls

Public Class Nehalim

Inherits System.Web.UI.Page

Public Iis, pathApp, pathWait, pathArch, temps As String

Dim obj As New BL

Dim MyCode As String

Dim user1 As String = User.Identity.Name

Sub fillUsers(Optional ByVal mySubCode As Int16 = -10)

Dim dtUsr As New DataTable

Dim SubDt As DataTable

Dim res As Boolean = False

Dim resS As Boolean = False

dtUsr = Nothing

Dim Spopn_cls As String = Request("popn_cls")

If Spopn_cls = "" Then Spopn_cls = "OPEN"

Dim sNewSub As String = Request("pnewsubj")

If sNewSub = "" Then sNewSub = "Y"

Try

If mySubCode = -10 Or mySubCode = Nothing Then

dtUsr = obj.GetProcsData("ALL", res, user1, "ALL", "ALL", Spopn_cls, sNewSub)

Else

Dim Ssec As String = Request("mySec")

Dim Ssubsec As String = Request("mySubSec")

If Ssec Is Nothing Then Ssec = "ALL"

If Ssubsec Is Nothing Then Ssubsec = "ALL"

If Ssubsec = "" Then Ssubsec = "ALL"

If Ssec = "" Then Ssec = "ALL"

dtUsr = obj.GetProcsData(MyCode, res, user1, Ssec, Ssubsec, Spopn_cls, sNewSub)

End If

resS = obj.GetSubjects(SubDt)

If res Then

UserGrid.DataSource = dtUsr

UserGrid.DataBind()

End If

If resS Then

SubjGrid.DataSource = SubDt

SubjGrid.DataBind()

End If

Catch ex As Exception

obj.WriteToEventLog(ex.Message & ":" & ex.Source & Now.ToShortDateString, "QM_TELERIK : " & user1, Diagnostics.EventLogEntryType.Error)

Response.Write(ex.Message)

End Try

End Sub

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

temps = "Application_procs"

Iis = obj.GetProcVD(temps)

temps = "sProcShowLive"

pathApp = obj.GetProcLib(temps)

temps = "sProcShowArch"

pathArch = obj.GetProcLib(temps)

temps = "sProcShowWait"

pathWait = obj.GetProcLib(temps)

MyCode = Request("SubjectID")

Dim MsyCode As String = Request("SubjectID")

If MyCode = "" Then MyCode = "-10"

If Not IsPostBack Then

fillUsers(MyCode)

End If

UserGrid.MasterTableView.DataKeyNames = New String(11) {"ID", "SUBSECTIONID", "PROC_NUM", "PROCID", "FILENAME", "STATUS", "PR_AFFECTED", "PR_OWNER", "APPROVED", "SUBJECTID", "BUTTON_OPENCLS", "SECTIONID"}

Dim surl As String = "" & Iis & "ReadProcNew.asp?"

Me.DetailURL.Text = surl

Me.SubjectID.Text = MsyCode

End Sub

Public Sub UserInfo(ByVal sender As Object, ByVal e As EventArgs)

Dim instance As HttpApplication = sender.httpapplicationinstance

Dim value As IPrincipal

value = instance.User

Dim myPrincipal = instance.User

Dim tableString As String

tableString = "<table border=""1""><tr><td>Name</td><td>"

tableString &= Server.HtmlEncode(myPrincipal.Identity.Name) + "</td></tr><tr><td>"

tableString &= "</td></tr><tr><td>IsAuthenticated</td><td>"

tableString &= myPrincipal.Identity.IsAuthenticated.ToString() + "</td></tr></table>"

Response.Write(tableString)

End Sub

Protected Sub UserGrid_SortCommand(ByVal source As Object, ByVal e As Telerik.Web.UI.GridSortCommandEventArgs) Handles UserGrid.SortCommand

'Apply custom sorting

Dim res As Boolean

Dim dt As DataTable

If CStr(MyCode) <> "ALL" Then

dt = obj.GetProcsbydSubjectUsr(MyCode, res, user1)

Else

res = obj.GetProcs(dt)

End If

Dim dv As DataView

dv = dt.DefaultView

Dim sortExpr As New GridSortExpression()

Select Case e.OldSortOrder

Case GridSortOrder.None

sortExpr.FieldName = e.SortExpression

sortExpr.SortOrder = GridSortOrder.Descending

e.Item.OwnerTableView.SortExpressions.AddSortExpression(sortExpr)

Exit Select

Case GridSortOrder.Ascending

sortExpr.FieldName = e.SortExpression

sortExpr.SortOrder = IIf(UserGrid.MasterTableView.AllowNaturalSort, GridSortOrder.None, GridSortOrder.Descending)

e.Item.OwnerTableView.SortExpressions.AddSortExpression(sortExpr)

Exit Select

Case GridSortOrder.Descending

sortExpr.FieldName = e.SortExpression

sortExpr.SortOrder = GridSortOrder.Ascending

e.Item.OwnerTableView.SortExpressions.AddSortExpression(sortExpr)

Exit Select

End Select

e.Canceled = True

dv.Sort = e.SortExpression

UserGrid.DataSource = dv

UserGrid.DataBind()

End Sub

Protected Sub UserGrid_ItemDataBound(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridItemEventArgs) Handles UserGrid.ItemDataBound

If (TypeOf e.Item Is GridDataItem) Then

Dim dataItem As GridDataItem = CType(e.Item, GridDataItem)

Dim BtnIMG As String = ""

dataItem.Font.Size = 10

dataItem.Font.Name = "arial"

If (dataItem("PROC_NUM").Text = "00") Then

dataItem.CssClass = "ms-sectionheader"

dataItem("PROC_NUM").Text = " "

dataItem("PROCID").Text = " "

Else

dataItem.CssClass = "ms-gridtext"

End If

If (dataItem("STATUS").Text = "1") Then

dataItem("STATUS").Text = "approved"

End If

If dataItem("CLASS").Text = "SECTION" Then

dataItem.CssClass = "UserGenericHeader"

dataItem("HEADLINE").Text = " " & "<IMG ID=" & dataItem("SUBSECTIONID").Text & " SRC='IMAGES/" & dataItem("BUTTON_OPENCLS").Text & ".GIF'" & " />" & dataItem("HEADLINE").Text & " " & " "

End If

If dataItem("CLASS").Text = "SUBSECTION" Then

dataItem.CssClass = "ms-WPHeader"

dataItem("HEADLINE").HorizontalAlign = HorizontalAlign.Right

End If

If dataItem("CLASS").Text = "SUBJECT" Then

dataItem.CssClass = ""

dataItem("HEADLINE").Font.Bold = True

dataItem("HEADLINE").Font.Size = "15"

dataItem("HEADLINE").HorizontalAlign = HorizontalAlign.Right

End If

If dataItem("CLASS").Text <> "PROCEDURE" Then

dataItem("STATUS").Text = ""

dataItem("UPDATE_DATE").Text = ""

End If

End Sub

Protected Sub Unnamed1_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs)

Dim SrcS As String = Me.searchString1.Text

Dim res As Integer

Dim dt As DataTable

If SrcS <> "" Then

SrcS = Replace(SrcS, "'", "''")

SrcS = Replace(SrcS, "+", "%")

Try

dt = obj.GetFindProcs(SrcS, res)

If res Then

UserGrid.DataSource = dt

UserGrid.DataBind()

End If

Catch ex As Exception

Response.Write(ex.Message)

End Try

Else

fillUsers(MyCode)

End If

End Sub

End Class

10x

Product Bundles

DevCraft

Web

Mobile

Document Management

Desktop

Reporting & Mocking

Automated Testing

CMS

UI/UX Tools

Debugging

Extended Reality

Free Tools

problem with radgrid mouse hover

5 Answers, 1 is accepted