最近在找BCB的demo程式(indy)
卻只有DELPHI的......(被放棄的CB......)
在試著轉c 碼的同時，遇到了一點問題…
[code delphi]
procedure TfrmMain.lbProcessesDrawItem(Control: TWinControl;
Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
with Control as TListBox do
begin
Canvas.Brush.Color := Color;

Canvas.FillRect(Rect);
Canvas.Font.Color := TColor(Items.Objects[Index]); // 1.
Canvas.TextOut(Rect.Left 2, Rect.Top, Items[Index]); // 2.
end;
end;
[/code]

上面註解 1、2兩點，不論我怎麼對TWinControl Control轉型，就是沒辦法編譯成功
請問這問題該如何解呢？

以下是我做的內容，過不了啊~~~~~@@
[code cpp]
void __fastcall TfrmMain::lbProcessesDrawItem(TWinControl *Control,
int Index, TRect &Rect, TOwnerDrawState State)
{
((TListBox*)Control)->Canvas->Brush->Color = Color;
((TListBox*)Control)->Canvas->FillRect(Rect);
((TListBox*)Control)->Font->Color = ((TListBox*)Control)->Items->Object[Index].GetText(); //掛點
((TListBox*)Control)->Canvas->TextOut(Rect.left 2, Rect.top, ((TListBox*)Control)->Items[Index]); //掛點
}
[/code]

編輯記錄

不曉得行不行
void __fastcall TfrmMain::lbProcessesDrawItem(TWinControl *Control,
int Index, TRect &Rect, TOwnerDrawState State)
{
TListBox *lb = (TListBox*)Control;
if (lb){
lb->Canvas->Brush->Color = Color;
lb->Canvas->FillRect(Rect);
lb->Font->Color = clBlack; //需要TColor 資料型態
lb->Canvas->TextOut(Rect.left 2, Rect.top, lb->Items->Strings[Index]);
}
}

哦哦！
可以過了！
真是太感謝 taishyang 大大了！

再請教一下
第一行的地方：c 沒有類似像delphi的語法嗎？還是delphi語法解釋出來就是這行？？
(不知道 「Items.Objects[Index]」 怎麼解釋它)
第二行：如果改採
[code cpp]
lb->Canvas->TextOut(Rect.left 2, Rect.top, lb->Items[Index].GetText());
[/code]
會同等第二句的語法嗎？
===================引 用 taishyang 文 章===================
[code cpp]
lb->Font->Color = clBlack; //需要TColor 資料型態
lb->Canvas->TextOut(Rect.left 2, Rect.top, lb->Items->Strings[Index]);
[/code]

回傳值一個是char* 另外一個是AnsiString

受教了
謝謝 taishyang 大大

===================引 用 taishyang 文 章===================
回傳值一個是char* 另外一個是AnsiString

編輯記錄