读书软件做自己的

来源：百脑汇作者：出处：巧巧读书 2006-02-14 进入讨论组

关键词：
nat

　　const int TitleLineCount = Buf－Memo－>Lines－>Count; //memo总行数

　　　　int LabelLeft = 40;

　　　　int LabelTop = 38;

　　　　if(line_cou < 0)

　　　　 //line_cou是标记现在的行位置

　　　　line_cou = 0;

　　　　int lineInx=0;

　　　　//当前行数指针

　　　　int i=0;

　　　　bool vis=1;

　　　　int c=Panel_1－>ControlCount;

　　　　 // 得到Panel_1上的控件数

　　　　TLabel ＊pLa;

　　　　 //定义TLabel类的指针

　　　　while(i 　　{

　　　　//遍历panel_1上的所有控件，这个方法很有用，

　　　　if(Panel－1－>Controls[i]－>ClassNameIs("TLabel"))

　　　　//判断控件类名

　　　　{ pLa=dynamic_cast< TLabel＊ >(Panel_1－>Controls[i]); //强行转换指针类型

　　　　pLa－>Visible= vis;

　　　　if(!vis) {i ＋＋; continue;}

　　　　//设置多余label为不可视

　　　　pLa－>Top= LabelTop;

　　　　pLa－>Left= LabelLeft;

　　　　pLa－>Caption=Buf_Memo－>Lines－>Strings[lineInx＋line_cou];

　　　　 //用 label 显示行内容

　　　　LabelTop＋=L_TOP;

　　　　}

　　　　else

　　　　//若不是想要的(label)类，继续判断下一个控件

　　　　{i＋＋; continue;}

　　　　i＋＋;

　　　　lineInx＋＋;

　　　　if(LabelLeft < 300)

　　　　if(lineInx＋1 == Page_Nums)

　　　　{ LabelTop = 38;

　　　　LabelLeft = 410;

　　　　}

　　　　if(lineInx＋1 == 2＊Page_Nums) //如果已经显示一页

　　　　vis = 0;

　　　　if(lineInx ＋ line_cou == TitleLineCount－1) //如果全文结束

　　　　vis = 0;

　　　　}

　　　　if(lineInx ＋ line_cou < TitleLineCount－1)

　　　　{

　　　　Now_Line = line_cou ＋ lineInx; //记录当前行数

　　　　End = 0;

　　　　}

　　　　else

　　　　End = 1;

　　　　}

　　　　//

　　　　void TMainForm::Inin()

　　　　{

　　　　End = 0;

　　　　PrintPage(0);

　　　　}

　　　　//

　　　　void TMainForm::Inin_face()

　　　　//初始化界面

　　　　{

　　　　Width = 740;

　　　　//这里设置窗体大小

　　　　Height = 495;

　　　　Back_Image－>SendToBack();

　　　　Face_Image－>BringToFront();

　　　　Panel_1－>Align = alClient;

　　　　ack_Image－>Align = alClient;

　　　　Face_Image－>Align = alClient;

　　　　//这些初始化设置，虽然有违“所见即所得”的本意，但却使得在编辑时更方便

　　　　}

　　　　//观看地址： http://www.qqread.com/bcb/a862354500.html