Ver Mensaje Individual
  #2  
Antiguo 03-05-2006
Avatar de fredo
fredo fredo is offline
Miembro
 
Registrado: oct 2003
Ubicación: Chile, Valparaiso
Posts: 318
Reputación: 21
fredo Va por buen camino
Post si se puede

hola es realmente ataoso hacerlo, pero se puede.....en rl rave no tienes que hacer nada.....solo en delphi....supongo que estas usando un RBDatasetConnection..., buen este tiene una propiedad onGetRow...
ahi declara las siguientes variables

Cita:
Código Delphi [-]
var MyPage: TRavePage;
     MyText1,MyText2{tantas como necesites cambiar}: TRaveText;
     Square1,Square2{tantos como necesites cambiar}:TRaveRectangle

Begin
      if {tu condicion}
      then
      Begin
             with RvLetterCovert.ProjMan do
             Begin
                    MyPage := FindRaveComponent('RCoverLetter.MainPage',nil)  as TRavePage;
                    MyText1 := FindRaveComponent('DataText1',MyPage) as TRaveText; {nombre de tus componentes dentro del rave}
                    Square1:= FindRaveComponent('Square1',MyPage) as TRaveRectangle;
                    if {condicion} 
                    then
                    begin 
                           MyText1.Font.Style:=[fsBold,fsItalic]
                           Square1.FillColor:=clWhite; 
                    end  
                    else
                   begin
                          MyText1.Font.Style:=[];
                          Square1.FillColor:=$00E4E4E4;
                   end;  
                   
                  {por ultimo, esto es muy importante, pasale valor a las columnas a manito... ya que te asume directamente que euieres conservar los campos....}  
                 // ejemplo
                   
                    With Connection do
                    begin
                           WriteIntData('',LettersXCourierLETTER_REF.AsInteger);
                           WriteIntData('',LettersXCourierCORRELATIVO.asInteger);
                           WriteFloatData('',LettersXCourierREF.asFloat);
                           WriteStrData('',LettersXCourierTEXT.AsString);
                           WriteStrData('',LettersXCourierCOURIER_.AsString);
                           WriteStrData('',LettersXCourierYOUR_REF.AsString);
                           {deben ir en el orden que estan definidos en el field editor... y con el tipo correspondiente.....}
                    end;
  
             end;
      end;
end;
;

eso es todo.... saludos

estas son las uniodades que necesitas para que no te cabesees tanto....

RpDefine, RpCon, RpConDS, RpBase, RpFiler, RpRave,
RpRender, RpRenderRTF, OleServer, Word97, RpRenderPDF, RpSystem,RVClass, RVProj, RVCsStd,RVCsDraw
__________________
^_^

http://stna.cl
Responder Con Cita