Category Archives: Delphi

Delphi相关

Manual uninstall of Rad Studio/Delphi/C++Builder XE6- DelphiGear.cn

Manual uninstall of Rad Studio/Delphi/C++Builder XE6

适合安装后出现一些莫名其妙的问题后的处理!
================================================================
Abstract: How to delete all the files just in case you need to for some unknown reason. Note: This process is recommended for field testers before installing the RTM release.

Under your Control Panel's Program and Features Add/Remove Program uninstall the following entries:
1)在“控制面板”中卸载下面3个程序组件;
    Embarcadero Delphi and C++Builder XE6 Help System
    Boost Libraries for C++Builder XE6
    Embarcadero Rad Studio XE6

Please follow these instructions to remove any leftover files:  
2)删除下面这些文件夹和注册表中相关键值;
    Remove the %USERPROFILE%\Documents\Rad_Studio_XE6_Downloads folder
    Remove the C:\Program Files\Embarcadero\Studio\14.0 directory
    Remove the C:\Users\Public\Documents\Embarcadero\Studio\14.0 directory
    Remove the C:\ProgramData\Embarcadero\Studio\14.0 directory
    Remove the following folders with a GUID name in C:\ProgramData\
        {8BC39306-28C8-4CAB-801D-9BB22E813571} (help)
        {315FB277-DFEF-4F1B-801B-9CD2EA8C3324} (boost)
        {0DE47792-19BD-4AF4-B9CF-6378FBA44825} (main installer)
    Remove the HKEY_LOCAL_MACHINE\SOFTWARE\Embarcadero\BDS\14.0 registry key
    Remove the HKEY_CURRENT_USER\SOFTWARE\Embarcadero\BDS\14.0 registry key
    Remove the following files from Windows\System32:
        BDEAdmin.*
        CC32*.DLL
        Midas.*
        Xerces*.DLL

Field testers should also do the following (and others may want to as well):
3)最好也删除下面这些内容:
    Delete sample files from %PUBLIC%\Public Documents\Embarcadero\Studio\14.0
    Delete DBExpress connection files from %PUBLIC%\Public Documents\Embarcadero\Studio\dbExpress\14.0

On 64-bit machines:
64位操作系统要删除这些东东:
    Program Files = C:\Program Files (x86)\Embarcadero\Studio\14.0

    Registry keys = HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Embarcadero\BDS\14.0

    Windows\System32 = C:\Windows\SysWOW64

 

delphi 更改DBGrid 颜色技巧

delphi 更改DBGrid 颜色技巧 – Tyler 的专栏 – 博客频道 – CSDN.NET

delphi 更改DBGrid 颜色技巧

1、根据条件更改某一单元格的颜色

 

  1. procedure TMainFrm.First_DGDrawColumnCell(Sender: TObject;  
  2.   const Rect: TRect; DataCol: Integer; Column: TColumn;  
  3.   State: TGridDrawState);  
  4. begin  
  5.   if DM.FirstListStatus.AsString=‘生产’ then begin  
  6.      First_DG.Canvas.Font.Color:=clGreen  
  7.    end  
  8.   else begin  
  9.      First_DG.Canvas.Font.Color:=clRed;  
  10.   end;  
  11.   if DataCol = 4 then  
  12.      First_DG.DefaultDrawColumnCell(Rect,DataCol,Column,State);  
  13. end;  

2、多种改变方式

 

  1. <span style=”color:#000000;”>procedure TMainForm.DBGrid1DrawColumnCell(Sender: TObject;  
  2.   const Rect: TRect; DataCol: Integer; Column: TColumn;State: TGridDrawState);  
  3. var i :integer;  
  4. begin  
  5.   if gdSelected in State then Exit;  
  6. //定义表头的字体和背景颜色:  
  7.     for i :=0 to (Sender as TDBGrid).Columns.Count-1 do  
  8.     begin  
  9.       (Sender as TDBGrid).Columns[i].Title.Font.Name :=‘宋体’//字体  
  10.       (Sender as TDBGrid).Columns[i].Title.Font.Size :=9//字体大小  
  11.       (Sender as TDBGrid).Columns[i].Title.Font.Color :=$000000ff//字体颜色(红色)  
  12.       (Sender as TDBGrid).Columns[i].Title.Color :=$0000ff00//背景色(绿色)  
  13.     end;  
  14. //隔行改变网格背景色:  
  15.   if Query1.RecNo mod 2 = 0 then  
  16.     (Sender as TDBGrid).Canvas.Brush.Color := clInfoBk //定义背景颜色  
  17.   else  
  18.     (Sender as TDBGrid).Canvas.Brush.Color := RGB(191255223); //定义背景颜色  
  19. //定义网格线的颜色:  
  20. DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);  
  21.   with (Sender as TDBGrid).Canvas do //画 cell 的边框  
  22.   begin  
  23.     Pen.Color := $00ff0000//定义画笔颜色(蓝色)  
  24.     MoveTo(Rect.Left, Rect.Bottom); //画笔定位  
  25.     LineTo(Rect.Right, Rect.Bottom); //画蓝色的横线  
  26.     Pen.Color := $0000ff00//定义画笔颜色(绿色)  
  27.     MoveTo(Rect.Right, Rect.Top); //画笔定位  
  28.     LineTo(Rect.Right, Rect.Bottom); //画绿色的竖线  
  29.   end;  
  30. end;</span>  

 

 

 

3、纵向斑马线效果:实现网格的奇数列和偶数列分别以不同的颜色显示以区别相邻的数据列。

 

  1. Case DataCol Mod 2 = 0 of  
  2.   True: DbGrid1.Canvas.Brush.Color:= clBlue; file://偶数列用蓝色  
  3.  False: DbGrid1.Canvas.Brush.Color:= clAqua; file://奇数列用浅绿色  
  4. End;  
  5. DbGrid1.Canvas.Pen.Mode:=pmMask;  
  6. DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);  

 

4、纵向斑马线,同时以红色突出显示当前单元格效果:以突出显示当前选中的字段。

  1. Case DataCol Mod 2 = 0 of  
  2. True: DbGrid1.Canvas.Brush.Color:= clBlue; file://偶数列用蓝色  
  3. False: DbGrid1.Canvas.Brush.Color:= clAqua; file://奇数列用浅绿色  
  4. End;  
  5. If ((State = [gdSelected]) or (State=[gdSelectedgdFocused])) then  
  6. If Not DbGrid1.SelectedRows.CurrentRowSelected then  
  7. DbGrid1.Canvas.Brush.Color:=clRed; file://当前选中单元格显示红色  
  8. DbGrid1.Canvas.Pen.Mode:=pmMask;  
  9. DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);  

 

5、在数据网格中以红色突出显示当前选中的行。

 

 

  1. 设置DbGrid控件的Options属性中的dgRowSelect属性为真,Color属性为clAqua(背景色)  
  2. 在DbGrid的DrawColumnCell事件中编写如下代码:  
  3.   
  4. if ((State = [gdSelected]) or (State=[gdSelected gdFocused])) then  
  5. DbGrid1.Canvas.Brush.color:=clRed; file://当前行以红色显示,其它行使用背景的浅绿色  
  6. DbGrid1.Canvas.pen.mode:=pmmask;  
  7. DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);  

 


6、行突显的斑马线效果:既突出当前行,又区分不同的列(字段)。

 

 

  1. if ((State = [gdSelected]) or (State=[gdSelectedgdFocused])) then  
  2. begin  
  3. Case DataCol Mod 2 = 0 of  
  4. True : DbGrid1.Canvas.Brush.color:=clRed; file://当前选中行的偶数列显示红色  
  5. False: DbGrid1.Canvas.Brush.color:=clblue; file://当前选中行的奇数列显示蓝色  
  6. end;  
  7. DbGrid1.Canvas.pen.mode:=pmmask;  
  8. DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);  

 

7、横向斑马线, 同时以红色突显当前行效果。

 

 

  1. Case Table1.RecNo mod 2 = 0 of file://根据数据集的记录号进行判断  
  2. True : DbGrid1.Canvas.Brush.color:=clAqua; file://偶数行用浅绿色显示  
  3. False: DbGrid1.Canvas.Brush.color:=clblue; file://奇数行用蓝色表示  
  4. end;  
  5. if ((State = [gdSelected]) or (State=[gdSelectedgdFocused])) then file://选中行用红色显示  
  6. DbGrid1.Canvas.Brush.color:=clRed;  
  7. DbGrid1.Canvas.pen.mode:=pmMask;  
  8. DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);  

 

 
 


8、双向斑马线效果:即行间用不同色区分,同时,选中行以纵向斑马线效果区分不同的列。

 

 

  1. Case Table1.RecNo mod 2 = 0 of file://根据数据集的记录号进行判断  
  2. True : DbGrid1.Canvas.Brush.color:=clAqua; file://偶数行用浅绿色显示  
  3. False: DbGrid1.Canvas.Brush.color:= clblue; file://奇数行用蓝色表示  
  4. end;  
  5. If ((State = [gdSelected]) or (State=[gdSelectedgdFocused])) then  
  6. Case DataCol mod 2 = 0 of  
  7. True : DbGrid1.Canvas.Brush.color:=clRed; file://当前选中行的偶数列用红色  
  8. False: DbGrid1.Canvas.Brush.color:= clGreen; file://当前选中行的奇数列用绿色表示  
  9. end;  
  10. DbGrid1.Canvas.pen.mode:=pmMask;  
  11. DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State); 

ReportBuilder Enterprise v15.00 Registered Version

ReportBuilder Enterprise v15.00 Registered Version » Все для Delphi …

ReportBuilder Enterprise v15.00 Registered Version

For Delphi 7, 2007, 2009, 2010, XE, XE2, XE3, XE4

rbent11\
rbent12\
rbent14\
rbent15\
rbent16\
rbent17\
rbent18\
rbent7\

New features include:
– Delphi XE4 support (Win32 & win64)
– TableGrid
– Designer zoom (Design workspace)
– Previewer Page Thumbnails
– Previewer scrolling Text Search
– QRCode barcode
– DataMatrix barcode
– Text VerticalAlignment
– RichText/Memo RemoveEmptyLines
– QueryDesigner SQL RowLimit option
– Copy/Paste Queries
– PrinterSetup.Duplex dpDefault
– PDF 128-bit encryption
– XLS Hyperlink support
– XLSReport IgnorePageHeight prop
– XLSData IncludeSingleHeader/Footer
– PrintDialog Open File checkbox

Скачать / Downloadunibytes
gigabase
share4web