Delphi

How Can I Keep the FindDialog from Staying on Top (Delphi)?

由 一笑奈何 提交于 2020-01-12 20:54:33
问题 In Delphi 2009, I do a simple: FindDialog.Execute; The FindDialog window stays on top of my program's main window as it should. However, if I open another window from some other program over my own program's window, the FindDialog window remains on top of the other window. If I try this with a FindDialog from another program (e.g. Notepad), this does not happen. Opening another program's window over Notepad and its FindDialog will cover both the Notepad and FindDialog windows. This seems to

Winsoft Barcode v4.5 for Delphi & C++ -SEO-狼术

由 ぐ巨炮叔叔 提交于 2020-01-12 20:15:46
　 　Delphi和C ++ Builder条形码组件。 　　使用Zint条形码生成器 　　支持超过50种符号，包括Code 128，Data Matrix，USPS OneCode，EAN-128，UPC / EAN，ITF，QR Code，Code 16k，PDF417，MicroPDF417，LOGMARS，Maxicode，GS1 DataBar，Aztec，复合符号等 　　支持Windows 32和Windows 64 　　适用于Delphi / C ++ Builder 5-10.3和Lazarus 2.0.6 　　注册版本中包含的源代码 　　应用程序中的免版税分配 　　Delphi and C++ Builder barcode component. 　　uses Zint Barcode Generator 　　supports over 50 symbologies including Code 128, Data Matrix, USPS OneCode, EAN-128, UPC/EAN, ITF, QR Code, Code 16k, PDF417, MicroPDF417, LOGMARS, Maxicode, GS1 DataBar, Aztec, Composite Symbols and more 　　supports Windows 32 and

Fast copy of TList <T>?

由 北慕城南 提交于 2020-01-12 14:37:55
问题 Is there a fast way to copy a generic TList? Copy.Capacity := List.Count; for Item in List do Copy.Add (Item); is very slow. There seems to be no way to use CopyMemory since I can't get the memory adress of the internal array (which is obvious from an information hiding viewpoint). I miss something like List.Copy (Copy); which uses the knowledge of the internal representation to improve performance. Can it be done? 回答1: For the generic TList<T> it is simply not possible to implement the

Fast copy of TList <T>?

由 拥有回忆 提交于 2020-01-12 14:36:06
问题 Is there a fast way to copy a generic TList? Copy.Capacity := List.Count; for Item in List do Copy.Add (Item); is very slow. There seems to be no way to use CopyMemory since I can't get the memory adress of the internal array (which is obvious from an information hiding viewpoint). I miss something like List.Copy (Copy); which uses the knowledge of the internal representation to improve performance. Can it be done? 回答1: For the generic TList<T> it is simply not possible to implement the

Enums vs Const vs Class Const in Delphi programming

由 柔情痞子 提交于 2020-01-12 13:46:34
问题 I have an integer field in a ClientDataSet and I need to compare to some values, something like this: I can use const const mvValue1 = 1; mvValue2 = 2; if ClientDataSet_Field.AsInteger = mvValue1 then or enums TMyValues = (mvValue1 = 1, mvValue2 = 2); if ClientDataSet_Field.AsInteger = Integer(mvValue1) then or class const TMyValue = class const Value1 = 1; Value2 = 2; end; if ClientDataSet_Field.AsInteger = TMyValues.Value1 then I like the class const approach but it seems that is not the

Why the exception is not caught by the try… except end;?

由 狂风中的少年 提交于 2020-01-12 12:50:30
问题 I have this code (that runs under iOS with Delphi Tokyo): procedure TMainForm.Button1Click(Sender: TObject); var aData: NSData; begin try try aData := nil; finally // this line triggers an exception aData.release; end; except on E: Exception do begin exit; end; end; end; Normally the exception should be caught in the except end block, but in this case it is not caught by the handler and it is propagated to the Application.OnException handler. Access violation at address 0000000100EE9A8C,

Why the exception is not caught by the try… except end;?

由 社会主义新天地 提交于 2020-01-12 12:50:11
问题 I have this code (that runs under iOS with Delphi Tokyo): procedure TMainForm.Button1Click(Sender: TObject); var aData: NSData; begin try try aData := nil; finally // this line triggers an exception aData.release; end; except on E: Exception do begin exit; end; end; end; Normally the exception should be caught in the except end block, but in this case it is not caught by the handler and it is propagated to the Application.OnException handler. Access violation at address 0000000100EE9A8C,

How can I write a Windows Shell Namespace Extension in Delphi?

由 前提是你 提交于 2020-01-12 10:21:18
问题 First, sorry for my poor English... I want to add a virtual folder to Windows Explorer using a Namespace Extension (NSE), and I want users to be able to open this virtual folder to explore some path (e.g., c:\test ). How can I do this using Delphi? Thanks. 回答1: The place to start is the MSDN documentation: Introduction to the Shell Namespace. Naturally this is written from a C++ perspective but it's not too hard to map that across to Delphi. Another excellent resource for such tasks is Code

Programmatically swap colors from a loaded bitmap to Red, Green, Blue or Gray, pixel by pixel

由 百般思念 提交于 2020-01-12 10:15:50
问题 Download source code here: http://www.eyeClaxton.com/download/delphi/ColorSwap.zip Yes, I want to convert something "mostly blue" to something "mostly green". I would like to take a original bitmap (light blue) and change the colors (Pixel by Pixel) to the red, green, blue and gray equivalence relation. To get an idea of what I mean, I have include the source code and a screen shot. Any help would be greatly appreciated. If more information is needed, please feel free to ask. If you could

Programmatically swap colors from a loaded bitmap to Red, Green, Blue or Gray, pixel by pixel

由 你说的曾经没有我的故事 提交于 2020-01-12 10:15:33
问题 Download source code here: http://www.eyeClaxton.com/download/delphi/ColorSwap.zip Yes, I want to convert something "mostly blue" to something "mostly green". I would like to take a original bitmap (light blue) and change the colors (Pixel by Pixel) to the red, green, blue and gray equivalence relation. To get an idea of what I mean, I have include the source code and a screen shot. Any help would be greatly appreciated. If more information is needed, please feel free to ask. If you could
订阅 Delphi