JPEG: Save JPG in Database (Paradox)
[code lang=”delphi”]Procedure LoadJpeg; Var str : tblobstream; img:Tjpegimage; begin Str := Tblobstream.Create(Table1.fieldbyname(‘Yourfield’); img:=tjpegimage.create; img.loadfromstream(str);// or image1.picture.assign(img); img.free; str.free; end; Procedure SaveJpeg; Var str…
Drag&Drop im Tree für bestimmte Nodes verhindern
Hallo Boris, dein Vorschlag mit DragMode = dmManual funktioniert. Zu beachten ist noch der Parameter FALSE in BeginDrag. Der Drag-Vorgang wird dann erst…
Scroll Treeview when Drag/Drop
jj wrote: > > Hello, clever types. > > I have a treeview filled with a multi-level structure and i want > to…
TreeView Background color: Textcolor
Try someting like this [code lang=”delphi”]/////////////////////// uses COMMCTRL; const TVM_SETBKCOLOR = (TV_FIRST + 29); TVM_SETTEXTCOLOR = (TV_FIRST + 30); ////////////////////////////////////// —————————————————————————- —————————- var…
TreeView Scroll when Drag
The following code works in a TListBox. I assume that it will also work in a TTreeView. I have the Timer1.Interval set to…
Adding a ComboBox to a cell
> I am using Delphi 2.0. I have a TStringGrid. In one of the columns, I want > the cells to act as…
New Scrollbar for StringGrid
[code lang=”delphi”]var info: TScrollInfo; begin fillchar(info, sizeof(info), 0); with info do begin cbsize := sizeof(info); fmask := SIF_ALL; GetScrollInfo( TheGrid.handle, SB_VERT, info );…
Change RichEdit without moving the Cursor
> > I’m trying to trim any spaces at the end of a line in a TRichEdit after > the cursor moves off…
How to draw lines on TRichEdit-Canvas?
[code lang=”delphi”]procedure TFormREdit.SetMaxFrame(MaxFrame:TRect); var OldMixMode : integer; DC : hdc; Pen : HPen; begin // Get TRichEdit Device Context (DC) DC := GetDc(Editor.Handle);…
Richedit on a transparent background
> > I would like to have a Richedit box with a transparent background. > > To be more precise, I would like…