Adaptando código em Pascal para C
10/01/2004
0
Pessoal, eu preciso passar um código que achei em pascal, para c++, estou tendo dificuldade num ponto, veem se podem me ajudar... ai vai os dois códigos
------------------------ PASCAL -----------------------------
R:=Rect; // declara uma variável local R : TRect
Dec(R.Bottom,2);
if Column.Field=ClientDataSet1OBS then
begin
if not (gdSelected in State) then
DBGrid1.Canvas.FillRect(Rect);
DrawText(DBGrid1.Canvas.Handle,
pchar(ClientDataSet1OBS.AsString),
length(ClientDataSet1OBS.AsString),
R,DT_WORDBREAK);
end;
end;
--------------------------------------------------
------------------------C ++ ----------------------------
TRect R=Rect;
if (Column->Field == cds1->Fields->FieldByName(´COR´) )
{
if (!(State.Contains(gdSelected)))
{
gd1->Canvas->FillRect(Rect);
DrawText(gd1->Canvas->Handle,PChar(cds1->Fields->FieldByName(´COR´) ),20,Rect,DT_WORDBREAK);
}
}
------------------------------------
Porem tá acusando um erro de TRect, que nao consegue transformar para
tagRect..
Alguem poderia me dar uma força?
COMO TRANSFORMAR ISSO:
DrawText(DBGrid1.Canvas.Handle,
pchar(ClientDataSet1OBS.AsString),
length(ClientDataSet1OBS.AsString),
R,DT_WORDBREAK);
PARA C++ ?
Obrigado....
Danilo
------------------------ PASCAL -----------------------------
R:=Rect; // declara uma variável local R : TRect
Dec(R.Bottom,2);
if Column.Field=ClientDataSet1OBS then
begin
if not (gdSelected in State) then
DBGrid1.Canvas.FillRect(Rect);
DrawText(DBGrid1.Canvas.Handle,
pchar(ClientDataSet1OBS.AsString),
length(ClientDataSet1OBS.AsString),
R,DT_WORDBREAK);
end;
end;
--------------------------------------------------
------------------------C ++ ----------------------------
TRect R=Rect;
if (Column->Field == cds1->Fields->FieldByName(´COR´) )
{
if (!(State.Contains(gdSelected)))
{
gd1->Canvas->FillRect(Rect);
DrawText(gd1->Canvas->Handle,PChar(cds1->Fields->FieldByName(´COR´) ),20,Rect,DT_WORDBREAK);
}
}
------------------------------------
Porem tá acusando um erro de TRect, que nao consegue transformar para
tagRect..
Alguem poderia me dar uma força?
COMO TRANSFORMAR ISSO:
DrawText(DBGrid1.Canvas.Handle,
pchar(ClientDataSet1OBS.AsString),
length(ClientDataSet1OBS.AsString),
R,DT_WORDBREAK);
PARA C++ ?
Obrigado....
Danilo
Danilo Pinheiro
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)