| 共 664 篇文章 |
|
阅1 转自aaie_ 公众公开 19-11-14 09:48 |
DBGrid中顯示多行的方法。Q:當DBGrid的資料內容長度超過欄寬時，自动换行。DBGrid1.//這一段程式碼中，主要設定了 //1) default row height TStringGrid(DBGrid1).DefaultRowHeight := 70 ;//2) 還原 heading 的 row height TStringGrid(DBGrid1).RowHeights[0] := 20 ;DBGridOptions := DBGrid1.DBGrid1DrawColumnCell(Sender: TObject;ba... 阅1 转自public2000 公众公开 19-11-13 12:35 |
void __fastcall SetButtonWidth(int Value);}TEditStyle __fastcall TDropListGrid::GetEditStyle(int ACol, int ARow){ TEditStyle es = TStringGrid::GetEditStyle(ACol, ARow);}void __fastcall TDropListGrid::GetPickListItems(int ACol, int ARow, TStrings *Items){ if (FOnGetPickListItems) FOnGetPickListItems(ACol, ARow, It... 阅291 转1 评0 公众公开 16-06-09 19:21 |
如果大侠们找的是这个代码就不用贴出来了。esc: TOutBufPassThrough;prt := Printers.esc.nDataLen := Length(c_OpenMoneyBoxCommand);Handle, PASSTHROUGH, sizeOf(esc), @esc, 0, nil);if not OpenPrinter(@Device, Handle, nil) then begin.S:= AnsiString(CHR(27)+Chr(112)+CHR(0)+CHR(60)+CHR(255));WritePrinter(Handle, PChar(S), Leng... 阅896 转6 评0 公众公开 16-06-09 19:11 |
如：STAR票据打印机接在LPT1口中，驱动指令是： 进制 指令 开钱箱指令 十六进制 1B 70 7 CHR(0x1B)+ CHR(0x70)+ CHR(0x7) 十进制 27 112 7 CHR(27)+ CHR(112)+ CHR(7) ASCII代码 ESC p CHR(27)+''p''+ CHR(7) 阅6310 转8 评0 公众公开 16-06-09 19:09 |
Name:=''宋体''; printer.Canvas.Font.Size:=8; printer.Canvas.Font.Charset:=GB2312_CHARSET; Rewrite(PrnFileName); write(PRNFileName,chr(12)); //清除顾显 write(PRNFileName,chr(27)+chr(81)+chr(65)+Money_String+chR(13)); //显示信息 CloseFile(PRNFileName);end;Name:=''... 阅109 转1 评0 公众公开 16-06-09 19:08 |
实现原理： TStringGird 第一次进入编辑状态前由CreateEditor 创建编辑器，在编辑器显示前会访问TCustomGrid.GetEditStyle 函数，并由该函数的返回值决定编辑器类型。type TOnGetEditStyle = procedure(ACol, ARow: Integer;procedure GetPickListitems(ACol, ARow: Integer; 阅4 转自独孤求财 公众公开 16-06-08 11:56 |
其实用delphi写双屏幕的程序是比较简单的，Screen.MonitorCount就是当前系统屏幕的数量，TForm也有与屏幕相关的属性，比如DefaluMonitor,不过想设一个窗体显示在哪个屏幕上好象没有属性（可能我没找到），不过研究VCL代码发现如何把一个窗体显示在某个屏幕上(可以看TCustomForm的SetWindowToMonitor方法),把它抽出来封装成一个函数：//Form:目... 阅149 转1 评0 公众公开 16-06-08 09:19 |
今天做定制时遇到Delphi位操作及多显示器扩展显示问题，故总结一下。Windows最多支持10个显示器，Windows将所有显示器映射为一个大的虚拟桌面。为了不使一个窗体显示在两个显示器之间等原因的考虑，Windows将一个显示器作为主显示器。几个重要的概念：桌面、显示器、主显示器。通过这两个属性我们可以枚举出系统中所有的显示器（TMonitor）的实... 阅736 转1 评0 公众公开 16-06-08 09:17 |
每次要远程调试的时候都要看半天的xe2英文帮助文档，今天正好有点时间，把它写下来。本文是拿c++ builder xe2为例写的，但绝大多数内容也适用于delphi xe2 并且可以很容易的推广到 xe3 xe4 等版本。由于embarcadero rad studio 远程调试都是建立在socket通信基础上的。点击菜单 Run->Load Process 在左边选择remote 然后设置好Remote path... 阅270 转0 评0 公众公开 15-07-26 12:54 |
