В связи с предстоящим выпуском CD-ROM Set и DVD "Torry's Delphi Pages" для зарубежных программистов, спешу уведомить соотечественников, что аналогичный выпуск по специальным ценам, учитывающим российскую реальность, будет сделан и в России, ориентировочно, в ноябре.
Источник: www.torry.net/cd4.htm
Автор: Torry -= · VCL · DB-aware · Apps · Tools · Samples · =-
В связи с предстоящим выпуском CD-ROM Set и DVD "Torry's Delphi Pages" для зарубежных программистов, спешу уведомить соотечественников, что аналогичный выпуск по специальным ценам, учитывающим российскую реальность, будет сделан и в России, ориентировочно, в ноябре.
Источник: www.torry.net/cd4.htm
Автор: Torry -= · VCL · DB-aware · Apps · Tools · Samples · =-
SMExport - компонент для экспорта данных из DBGrid/TDataSet в различные форматы Excel,MS Word, RTF, Lotus 1-2-3 (direct), QuattroPro (direct), Text (fixed or comma-delimited), HTML, XML, SYLK, DIF, SQL and Paradox/DBase/ASCII files.
Просмотр импортируемых/экспортируемых функций Windows Portable Executable (PE) файлов
Источник: www.torry.net
Автор: K. Karthikhttp://www.kkarthik.indianet.org -= · VCL · =-
Плагин для винампа. Два колбасящихся под музон провочных человечка. Весьма хитрый, но интересный и что самое главное работающий алгоритм!
»»» Скачать: исходные тексты (15кб)
Русифицированный HELP для DelphiMerlindelphi@mastak.com (12.02.01 06:30)
У нас вы можете скачать русский HELP для Delphi (переведено не много) 2,2Мб
»»» Скачать: исходные тексты
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var i, x, y: Integer; begin if gdFixed in State then Exit; if ARow > 1 then Exit; {Draw row 1 with text from cell 1,1 spanning all cells in the row} with sender as TStringGrid dobegin {Extend rect to include grid line on right, if not last cell in row} if aCol < Pred(ColCount) then Rect.Right := Rect.Right + GridlineWidth; {Figure out where the text of the first cell would start relative to the current cells rect} y := Rect.Top + 2; x := Rect.Left + 2; for i:= 1 to aCol - 1 do x := x - ColWidths[i] - GridlineWidth; {Paint cell pale yellow} Canvas.Brush.Color := $7FFFFF; Canvas.Brush.Style := bsSolid; Canvas.FillRect( Rect ); {Paint text of cell 1,1 clipped to current cell} Canvas.TextRect( Rect, x, y, Cells[1, 1] ); end; end;
procedure TForm1.FormCreate(Sender: TObject); var i, k: Integer; begin with StringGrid1 dobegin cells[1, 1] := 'A rather long line which will span cells'; for i:= 1 to colcount-1 do for k:= 2 to rowcount -1 do cells[i,k] := Format( 'Cell[%d, %d]', [i, k]); end; end;
Давно витающая в воздухе нашего сайта идея создания журнала, посвященного всеми нами любимой среде разработки Delphi, похоже, обретает зримую форму. Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!
Для души
Хокку дня
Бесполезно, бесполезно - сильный дождь, идущий в море.
Афоризмы
Как хорошо ничего не делать, а потом отдохнуть! (Испанская пословица)
Фраза дня
Ты, работа, нас не бойся, мы тебя не тронем.
И на закуску коротенький анекдот
Мы с дpyгом поставили Windows'2000... И тоpмознyли кpyтейший PentiumIII-600.