From: André S. <asn...@us...> - 2004-12-10 22:34:44
|
Update of /cvsroot/jvcl/dev/JVCL3/qrun In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29136/JVCL3/qrun Modified Files: JvQChart.pas JvQColorCombo.pas JvQDesktopAlert.pas JvQDesktopAlertForm.pas JvQFormPlacement.pas JvQGrids.pas JvQLogFile.pas JvQMTData.pas JvQProfilerForm.xfm JvQResources.pas JvQSimpleXml.pas JvQStringGrid.pas Log Message: clx bugfixes & updates from jvcl Index: JvQColorCombo.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/qrun/JvQColorCombo.pas,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** JvQColorCombo.pas 4 Dec 2004 00:26:02 -0000 1.5 --- JvQColorCombo.pas 10 Dec 2004 22:34:30 -0000 1.6 *************** *** 442,451 **** if S <> FOther then begin if coHex in FOptions then ! S := Format(HexPrefix + '%.6x', [ColorToRGB(TColor(Items.Objects[Index]))]) else if coRGB in Foptions then ! S := Format('(%d,%d,%d)', [GetRValue(TColor(Items.Objects[Index])), GetGValue(TColor(Items.Objects[Index])), ! GetBValue(TColor(Items.Objects[Index]))]); end; R.Left := R.Left + FColWidth + 6; --- 442,452 ---- if S <> FOther then begin + AColor := ColorToRGB(TColor(Items.Objects[Index])); if coHex in FOptions then ! S := Format(HexPrefix + '%.6x', [AColor]) else if coRGB in Foptions then ! S := Format('(%d,%d,%d)', [GetRValue(AColor), GetGValue(AColor), ! GetBValue(AColor)]); end; R.Left := R.Left + FColWidth + 6; Index: JvQSimpleXml.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/qrun/JvQSimpleXml.pas,v retrieving revision 1.24 retrieving revision 1.25 diff -C2 -d -r1.24 -r1.25 *** JvQSimpleXml.pas 1 Dec 2004 22:53:20 -0000 1.24 --- JvQSimpleXml.pas 10 Dec 2004 22:34:30 -0000 1.25 *************** *** 36,39 **** --- 36,42 ---- uses + {$IFDEF MSWINDOWS} + Windows, // Delphi 2005 inline + {$ENDIF MSWINDOWS} SysUtils, Classes, {$IFDEF HAS_UNIT_VARIANTS} Index: JvQStringGrid.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/qrun/JvQStringGrid.pas,v retrieving revision 1.16 retrieving revision 1.17 diff -C2 -d -r1.16 -r1.17 *** JvQStringGrid.pas 6 Nov 2004 22:08:20 -0000 1.16 --- JvQStringGrid.pas 10 Dec 2004 22:34:30 -0000 1.17 *************** *** 783,788 **** if Result then begin ! Col := ACol; ! Row := ARow; EditorMode := True; InplaceEditor.SelectAll; --- 783,788 ---- if Result then begin ! // Col := ACol; // triggers SelectCell !! ! // Row := ARow; EditorMode := True; InplaceEditor.SelectAll; *************** *** 844,849 **** FAlignment := Value; Invalidate; ! if Assigned(InplaceEditor) then ! TExInplaceEdit(InplaceEditor).RecreateWidget; end; end; --- 844,850 ---- FAlignment := Value; Invalidate; ! if Assigned(InplaceEditor) and ! not (csRecreating in InplaceEditor.ControlState) then ! TExInplaceEdit(InplaceEditor).RecreateWidget; end; end; Index: JvQLogFile.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/qrun/JvQLogFile.pas,v retrieving revision 1.17 retrieving revision 1.18 diff -C2 -d -r1.17 -r1.18 *** JvQLogFile.pas 7 Nov 2004 22:53:55 -0000 1.17 --- JvQLogFile.pas 10 Dec 2004 22:34:30 -0000 1.18 *************** *** 344,348 **** begin FFilename := Value; ! LoadFromFile(Filename); end; --- 344,349 ---- begin FFilename := Value; ! if FileExists(Filename) then ! LoadFromFile(Filename); end; Index: JvQDesktopAlertForm.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/qrun/JvQDesktopAlertForm.pas,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** JvQDesktopAlertForm.pas 7 Jul 2004 00:23:23 -0000 1.11 --- JvQDesktopAlertForm.pas 10 Dec 2004 22:34:30 -0000 1.12 *************** *** 93,97 **** procedure DoMouseTimer(Sender: TObject); ! procedure FormPaint(Sender: TObject); protected procedure FadeIn; --- 93,97 ---- procedure DoMouseTimer(Sender: TObject); ! // procedure FormPaint(Sender: TObject); protected procedure FadeIn; *************** *** 102,106 **** procedure MouseEnter(AControl: TControl); override; procedure MouseLeave(AControl: TControl); override; ! public imIcon: TImage; --- 102,106 ---- procedure MouseEnter(AControl: TControl); override; procedure MouseLeave(AControl: TControl); override; ! procedure BoundsChanged; override; public imIcon: TImage; *************** *** 220,224 **** Height := cDefaultAlertFormHeight; Width := cDefaultAlertFormWidth; ! OnPaint := FormPaint; imIcon := TImage.Create(Self); --- 220,224 ---- Height := cDefaultAlertFormHeight; Width := cDefaultAlertFormWidth; ! // OnPaint := FormPaint; imIcon := TImage.Create(Self); *************** *** 264,274 **** end; ! procedure TJvFormDesktopAlert.FormPaint(Sender: TObject); begin ! DrawDesktopAlertWindow(Canvas, ClientRect, FrameColor, WindowColorFrom, WindowColorTo, CaptionColorFrom, CaptionColorTo, Moveable or MoveAnywhere); end; - - procedure TJvFormDesktopAlert.acCloseExecute(Sender: TObject); begin --- 264,284 ---- end; ! //procedure TJvFormDesktopAlert.FormPaint(Sender: TObject); ! procedure TJvFormDesktopAlert.BoundsChanged; ! var ! Bmp: TBitmap; begin ! HandleNeeded; ! Bmp := TBitmap.Create; ! Bmp.Width := Width; ! Bmp.Height := Height; ! Bmp.PixelFormat := pf32bit; ! Bmp.Canvas.Start; ! DrawDesktopAlertWindow(Bmp.Canvas, ClientRect, FrameColor, WindowColorFrom, WindowColorTo, CaptionColorFrom, CaptionColorTo, Moveable or MoveAnywhere); ! Bmp.Canvas.Stop; ! Bitmap.Assign(Bmp); ! Bmp.Destroy; end; procedure TJvFormDesktopAlert.acCloseExecute(Sender: TObject); begin *************** *** 428,433 **** FadeTimer.Enabled := WaitTime > 0; // NB! If waittime = 0 then we never close - user has to do that manually ! // if not FadeTimer.Enabled then ! // FadeOut; end; --- 438,443 ---- FadeTimer.Enabled := WaitTime > 0; // NB! If waittime = 0 then we never close - user has to do that manually ! if not FadeTimer.Enabled then ! FadeOut; end; Index: JvQFormPlacement.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/qrun/JvQFormPlacement.pas,v retrieving revision 1.24 retrieving revision 1.25 diff -C2 -d -r1.24 -r1.25 *** JvQFormPlacement.pas 6 Nov 2004 22:08:18 -0000 1.24 --- JvQFormPlacement.pas 10 Dec 2004 22:34:30 -0000 1.25 *************** *** 265,268 **** --- 265,269 ---- {$ENDIF UNITVERSIONING} QConsts, + JclStrings, JvQJCLUtils, JvQPropertyStorage; *************** *** 270,275 **** siActiveCtrl = 'ActiveControl'; // do not localize siVersion = 'FormVersion'; // do not localize ! // siStoredValues = 'StoredValues'; // do not localize ! // siStoredProps = 'StoredProps'; // do not localize //=== { TJvFormPlacement } =================================================== --- 271,275 ---- siActiveCtrl = 'ActiveControl'; // do not localize siVersion = 'FormVersion'; // do not localize ! cFormNameMask = '%FORM_NAME%'; // do not localize //=== { TJvFormPlacement } =================================================== *************** *** 288,291 **** --- 288,292 ---- FVersion := 0; FVersionCheck := fpvcCheckGreaterEqual; + FAppStoragePath := cFormNameMask; end; *************** *** 356,359 **** --- 357,367 ---- else FAppStoragePath := Value; + if not (csDesigning in ComponentState) then + begin + if (StrFind( cFormNameMask, FAppStoragePath) <> 0) and + Assigned(Owner) and + (Owner is TCustomForm) THEN + StrReplace( FAppStoragePath, cFormNameMask, Owner.Name, [rfIgnoreCase]); + end; end; Index: JvQProfilerForm.xfm =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/qrun/JvQProfilerForm.xfm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** JvQProfilerForm.xfm 21 Feb 2004 21:35:17 -0000 1.1 --- JvQProfilerForm.xfm 10 Dec 2004 22:34:30 -0000 1.2 *************** *** 4,16 **** Width = 453 Height = 300 ActiveControl = lvReport BorderIcons = [biSystemMenu] Caption = 'Profiler Report' ! Color = clBtnFace ! Font.Charset = DEFAULT_CHARSET Font.Color = clBlack ! Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = { 0000010001002020040000000000E80200001600000028000000200000004000 --- 4,18 ---- Width = 453 Height = 300 + VertScrollBar.Range = 33 ActiveControl = lvReport BorderIcons = [biSystemMenu] Caption = 'Profiler Report' ! Color = clButton Font.Color = clBlack ! Font.Height = 11 Font.Name = 'MS Sans Serif' + Font.Pitch = fpVariable Font.Style = [] + Font.Weight = 40 Icon.Data = { 0000010001002020040000000000E80200001600000028000000200000004000 *************** *** 38,42 **** 003FF800003FFC00007FFC00007FFE0000FFFE0000FFFF0001FFFF0001FFFF80 03FFFF8003FFFFC007FFFFC007FFFFE00FFFFFE01FFFFFF07FFFFFF8FFFF} ! OldCreateOrder = True Position = poScreenCenter ShowHint = True --- 40,44 ---- 003FF800003FFC00007FFC00007FFE0000FFFE0000FFFF0001FFFF0001FFFF80 03FFFF8003FFFFC007FFFFC007FFFFE00FFFFFE01FFFFFF07FFFFFF8FFFF} ! ParentFont = False Position = poScreenCenter ShowHint = True *************** *** 44,58 **** PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 ! Top = 237 ! Width = 445 Height = 33 Align = alBottom BevelOuter = bvNone TabOrder = 0 - DesignSize = ( - 445 - 33) object SaveBtn: TButton Left = 8 --- 46,58 ---- PixelsPerInch = 96 TextHeight = 13 + TextWidth = 6 object Panel1: TPanel Left = 0 ! Top = 267 ! Width = 453 Height = 33 Align = alBottom BevelOuter = bvNone TabOrder = 0 object SaveBtn: TButton Left = 8 *************** *** 67,71 **** end object Panel2: TPanel ! Left = 270 Top = 0 Width = 175 --- 67,71 ---- end object Panel2: TPanel ! Left = 278 Top = 0 Width = 175 *************** *** 74,80 **** BevelOuter = bvNone TabOrder = 1 - DesignSize = ( - 175 - 33) object OKBtn: TButton Left = 60 --- 74,77 ---- *************** *** 107,112 **** Left = 0 Top = 0 ! Width = 445 ! Height = 237 Hint = 'Click the top column to sort the items' Align = alClient --- 104,109 ---- Left = 0 Top = 0 ! Width = 453 ! Height = 267 Hint = 'Click the top column to sort the items' Align = alClient *************** *** 115,118 **** --- 112,116 ---- item Caption = 'Function / Procedure ' + Tag = 0 Width = 160 end *************** *** 120,123 **** --- 118,122 ---- Alignment = taRightJustify Caption = 'Total time (ms)' + Tag = 0 Width = 80 end *************** *** 125,128 **** --- 124,128 ---- Alignment = taRightJustify Caption = 'Calls' + Tag = 0 Width = 35 end *************** *** 130,133 **** --- 130,134 ---- Alignment = taRightJustify Caption = 'Average time (ms)' + Tag = 0 Width = 100 end *************** *** 135,144 **** Alignment = taRightJustify Caption = 'Percent (%)' Width = 70 end> - GridLines = True MultiSelect = True RowSelect = True ! SortType = stText TabOrder = 1 ViewStyle = vsReport --- 136,146 ---- Alignment = taRightJustify Caption = 'Percent (%)' + Tag = 0 Width = 70 end> MultiSelect = True RowSelect = True ! ShowColumnSortIndicators = True ! Sorted = True TabOrder = 1 ViewStyle = vsReport Index: JvQGrids.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/qrun/JvQGrids.pas,v retrieving revision 1.23 retrieving revision 1.24 diff -C2 -d -r1.23 -r1.24 *** JvQGrids.pas 1 Dec 2004 22:53:19 -0000 1.23 --- JvQGrids.pas 10 Dec 2004 22:34:30 -0000 1.24 *************** *** 1108,1112 **** (goFixedVertLine in Options) then Inc(TempRect.Bottom, GridLineWidth); ! RequiredState(Canvas, [csHandleValid, csPenValid, csBrushValid]); DrawEdge(Canvas.Handle, TempRect, EdgeFlag[Down], FrameFlags1); DrawEdge(Canvas.Handle, TempRect, EdgeFlag[Down], FrameFlags2); --- 1108,1112 ---- (goFixedVertLine in Options) then Inc(TempRect.Bottom, GridLineWidth); ! //RequiredState(Canvas, [csHandleValid, csPenValid, csBrushValid]); DrawEdge(Canvas.Handle, TempRect, EdgeFlag[Down], FrameFlags1); DrawEdge(Canvas.Handle, TempRect, EdgeFlag[Down], FrameFlags2); Index: JvQChart.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/qrun/JvQChart.pas,v retrieving revision 1.34 retrieving revision 1.35 diff -C2 -d -r1.34 -r1.35 *** JvQChart.pas 7 Nov 2004 22:53:53 -0000 1.34 --- JvQChart.pas 10 Dec 2004 22:34:29 -0000 1.35 *************** *** 120,123 **** --- 120,124 ---- private FData: TJvChartDataArray; + FClearToValue:Double; // Typically either 0.0 or NaN FTimeStamp: array of TDateTime; // Time-series as a TDateTime // Dynamic array of dynamic array of Double. *************** *** 144,147 **** --- 145,149 ---- property Timestamp[ValueIndex: Integer]: TDateTime read GetTimestamp write SetTimestamp; property ValueCount: Integer read FValueCount write FValueCount; + property ClearToValue:Double read FClearToValue write FClearToValue; // Typically either 0.0 or NaN. default 0.0 end; *************** *** 584,589 **** --- 586,594 ---- property Options: TJvChartOptions read FOptions write FOptions; { chart events} + + property OnChartClick: TJvChartClickEvent read FOnChartClick write FOnChartClick; + { NEW: July 4, 2004 WPostma. --------------------------------- *************** *** 660,663 **** --- 665,669 ---- begin // Grow base array + Assert(ValueIndex>=0); Grow(Pen, ValueIndex); Result := FData[ValueIndex, Pen]; // This will raise EInvalidOP for NaN values. *************** *** 715,723 **** procedure TJvChartData.Grow(Pen, ValueIndex: Integer); begin ! if (Pen < 0) or (ValueIndex < 0) then raise ERangeError.CreateRes(@RsEDataIndexCannotBeNegative); ! if (Pen > CHART_SANITY_LIMIT) or (ValueIndex > CHART_SANITY_LIMIT) then raise ERangeError.CreateRes(@RsEDataIndexTooLargeProbablyAnInternal); if ValueIndex >= FDataAlloc then --- 721,733 ---- procedure TJvChartData.Grow(Pen, ValueIndex: Integer); + var + t,u,oldLength:Integer; begin ! if (Pen < 0) or (ValueIndex < 0) then begin raise ERangeError.CreateRes(@RsEDataIndexCannotBeNegative); ! end; ! if (Pen > CHART_SANITY_LIMIT) or (ValueIndex > CHART_SANITY_LIMIT) then begin raise ERangeError.CreateRes(@RsEDataIndexTooLargeProbablyAnInternal); + end; if ValueIndex >= FDataAlloc then *************** *** 734,742 **** FDataAlloc := ValueIndex + 64000; SetLength(FData, FDataAlloc); - end; ! if Pen >= Length(FData[ValueIndex]) then SetLength(FData[ValueIndex], Pen + 1); end; --- 744,772 ---- FDataAlloc := ValueIndex + 64000; + oldLength := Length(FData); SetLength(FData, FDataAlloc); ! // new: If we set FClearToValue to NaN, special handling in growing arrays: ! if IsNan(FClearToValue) then begin ! for t := oldLength to FDataAlloc-1 do begin ! for u := 0 to Length(FData[t])-1 do begin ! FData[t][u] := FClearToValue; // XXX Debug me! ! end;{for u} ! end;{for t} ! end;{if} ! ! end; ! if Pen >= Length(FData[ValueIndex]) then begin ! oldLength := Length(FData[ValueIndex]); SetLength(FData[ValueIndex], Pen + 1); + if IsNan(FClearToValue) then begin + for t := oldLength to FDataAlloc-1 do begin + FData[ValueIndex][t] := FClearToValue; // XXX Debug me! + end; + end; + end; + + + end; *************** *** 771,775 **** for I := 0 to FDataAlloc - 1 do for J := 0 to Length(FData[I]) - 1 do ! FData[I, J] := 0.0; FValueCount := 0; end; --- 801,805 ---- for I := 0 to FDataAlloc - 1 do for J := 0 to Length(FData[I]) - 1 do ! FData[I, J] := FClearToValue; FValueCount := 0; end; *************** *** 1983,1996 **** // Calculate Marker position: X := Round(XOrigin + J * LineXPixelGap); ! Y := Round(YOrigin - ((V / PenAxisOpt.YGap1) * PenAxisOpt.YPixelGap)); SetLineColor(I); ! if Y < 0 then ! begin ! {$IFDEF DEBUGINFO_ON} ! OutputDebugString(PChar('TJvChart Marker Out of Visible Range. Marker Value=' + FloatToStr(V) + ! ', Range YMax=' + FloatToStr(PenAxisOpt.YMax))); ! {$ENDIF DEBUGINFO_ON} ! Y := 0; // constrain Y. ! end; (* --- 2013,2020 ---- // Calculate Marker position: X := Round(XOrigin + J * LineXPixelGap); ! Y := Round(YOrigin - (((V -PenAxisOpt.YMin)/ PenAxisOpt.YGap) * PenAxisOpt.YPixelGap)); SetLineColor(I); ! if Y < (Options.YStartOffset+20) then ! Y := (Options.YStartOffset+20); // constrain Y to stay on chart. (* *************** *** 2006,2012 **** PlotFilledDiamond(X, Y); pmkCircle: ! PlotCircle(X, Y); pmkSquare: ! PlotSquare(X, Y); pmkCross: PlotCross(X, Y); --- 2030,2044 ---- PlotFilledDiamond(X, Y); pmkCircle: ! begin ! ChartCanvas.Brush.Style := bsClear; ! PlotCircle(X, Y); ! ChartCanvas.Brush.Style := bsSolid; ! end; pmkSquare: ! begin ! ChartCanvas.Brush.Style := bsClear; ! PlotSquare(X, Y); ! ChartCanvas.Brush.Style := bsSolid; ! end; pmkCross: PlotCross(X, Y); *************** *** 2029,2032 **** --- 2061,2067 ---- X := Round(XOrigin + J * LineXPixelGap); Y := Round(YOrigin - ((V / PenAxisOpt.YGap1) * PenAxisOpt.YPixelGap)); + if Y < (Options.YStartOffset+10) then + Y := (Options.YStartOffset+10); // constrain Y to stay on chart. + // Format with fixed number of decimal places (avoid screen clutter) Decimals := Options.PenAxis[I].MarkerValueDecimals; *************** *** 2221,2227 **** NanFlag: Boolean; VC: Integer; // PenAxisOpt: TJvChartYAxisOptions; begin - NanFlag := False; VC := Options.XValueCount; if VC < 2 then --- 2256,2262 ---- NanFlag: Boolean; VC: Integer; + // PenAxisOpt: TJvChartYAxisOptions; begin VC := Options.XValueCount; if VC < 2 then *************** *** 2239,2247 **** J := 0; V := GraphConstrainedLineY(I, J); ! if IsNaN(V) then ! Y := 0 // what else can we do? ! else ! Y := Round(V); ! ChartCanvas.MoveTo(Round(XOrigin), Y); for J := 1 to Options.XValueCount - 1 do begin --- 2274,2285 ---- J := 0; V := GraphConstrainedLineY(I, J); ! if not IsNaN(V) then begin ! Y := Round(V); ! ChartCanvas.MoveTo(Round(XOrigin), Y); ! NanFlag := false; ! end else begin ! NanFlag := true; ! end; ! for J := 1 to Options.XValueCount - 1 do begin *************** *** 2558,2561 **** --- 2596,2601 ---- Timestamp := FData.Timestamp[I * Options.XAxisValuesPerDivision - 1]; + if (Timestamp<0.0000001) then + continue; if Length(Options.FXAxisDateTimeFormat) = 0 then // not specified, means use Locale defaults *************** *** 3279,3283 **** FMouseDownHintStrs.Clear; ! if Options.XAxisDateTimeMode then begin if Length(Options.DateTimeFormat) = 0 then --- 3319,3323 ---- FMouseDownHintStrs.Clear; ! if Options.XAxisDateTimeMode then begin if Length(Options.DateTimeFormat) = 0 then Index: JvQMTData.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/qrun/JvQMTData.pas,v retrieving revision 1.17 retrieving revision 1.18 diff -C2 -d -r1.17 -r1.18 *** JvQMTData.pas 6 Nov 2004 22:08:19 -0000 1.17 --- JvQMTData.pas 10 Dec 2004 22:34:30 -0000 1.18 *************** *** 37,45 **** uses SysUtils, Classes, Contnrs, SyncObjs, - {$IFDEF MSWINDOWS} {$IFDEF DEBUGINFO_ON} ! Windows, // for OutputDebugString {$ENDIF DEBUGINFO_ON} - {$ENDIF MSWINDOWS} JvQMTSync, JvQMTConsts, JvQMTThreading; --- 37,43 ---- uses SysUtils, Classes, Contnrs, SyncObjs, {$IFDEF DEBUGINFO_ON} ! QWindows, // for OutputDebugString {$ENDIF DEBUGINFO_ON} JvQMTSync, JvQMTConsts, JvQMTThreading; *************** *** 375,379 **** finalization FreeAndNil(GlobalDataThreadsMan); - {$IFDEF MSWINDOWS} // (rom) no OutputDebugString in production code {$IFDEF DEBUGINFO_ON} --- 373,376 ---- *************** *** 382,386 **** 'Memory leak detected: free MTData objects before application shutdown'); // do not localize {$ENDIF DEBUGINFO_ON} - {$ENDIF MSWINDOWS} {$IFDEF UNITVERSIONING} --- 379,382 ---- Index: JvQResources.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/qrun/JvQResources.pas,v retrieving revision 1.29 retrieving revision 1.30 diff -C2 -d -r1.29 -r1.30 *** JvQResources.pas 1 Dec 2004 22:53:20 -0000 1.29 --- JvQResources.pas 10 Dec 2004 22:34:30 -0000 1.30 *************** *** 1804,1807 **** --- 1804,1811 ---- + //=== JvThreadDialog.pas ===================================================== + resourcestring + RsENotATJvThread = 'TJvCustomThreadDialogForm.SetConnectedThread: A thread must be a TJvThread-Component'; + //=== JvThumbImage.pas ======================================================= resourcestring Index: JvQDesktopAlert.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/qrun/JvQDesktopAlert.pas,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** JvQDesktopAlert.pas 6 Nov 2004 22:08:16 -0000 1.12 --- JvQDesktopAlert.pas 10 Dec 2004 22:34:30 -0000 1.13 *************** *** 662,666 **** FLocation.OnChange := DoLocationChange; ! FDesktopForm := TJvFormDesktopAlert.Create(Self); AlertStyle := asFade; --- 662,666 ---- FLocation.OnChange := DoLocationChange; ! FDesktopForm := TJvFormDesktopAlert.CreateNew(Self, 0); AlertStyle := asFade; |