線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:947
推到 Plurk!
推到 Facebook!

請問怎麼將字畫出來?

答題得分者是:andychang1690
pireer
初階會員


發表:73
回覆:80
積分:30
註冊:2004-12-14

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-07-29 15:46:14 IP:61.220.xxx.xxx 未訂閱
如下圖所示.先再輸入文字的地方輸入需要顯示的文字. 然後按下顯示文字的Button.將輸入的文字顯示在文字顯示下方. 文字顯示的地方用Image1畫出文字. 只能用Image1->Canvas->Pixels[x][y] = clRed; 不能用BCB或其他元件任何函式畫. 也就是只能用最基礎的畫"點".把一個文字畫出來.    請大大們指導..謝謝    
andychang1690
資深會員


發表:20
回覆:694
積分:442
註冊:2003-03-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-07-30 01:46:05 IP:221.169.xxx.xxx 未訂閱
pireer:
  Graphics::TBitmap *newBitmap;
  newBitmap = new Graphics::TBitmap();
  newBitmap->Height=Edit1->Height;
  newBitmap->Width=Edit1->Width;
  newBitmap->Canvas->TextOut(0, 0,Edit1->Text);
  int h=newBitmap->Height;
  int w=newBitmap->Width;
  for (int y=0;yCanvas->Pixels[x][y]=newBitmap->Canvas->Pixels[x][y];
    }
  }
  newBitmap->Free();
請參考!
P.S.如果能使用Label元件更方便!
  Label1->Caption=Edit1->Text;
  Label1->Update();
  for (int y=0;yHeight-1;y  ) {
    for (int x=0;xWidth-1 ;x  )
      Image1->Canvas->Pixels[x][y]=Label1->Canvas->Pixels[x][y];
  }
Andy Chang
------
Andy Chang
pireer
初階會員


發表:73
回覆:80
積分:30
註冊:2004-12-14

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-07-30 13:36:20 IP:61.230.xxx.xxx 未訂閱
感謝大大指導...
系統時間:2024-05-18 6:25:30
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!