Changeset 24 for branches/Xvcl/Xvcl.Graphics.pas

Timestamp:

May 8, 2013, 2:53:22 PM (12 years ago)

Author:

chronos

Message:

• Fixed: Make only one form focused at once.
• Modified: Enhanced TList generic class to support more methods.

File:

• branches/Xvcl/Xvcl.Graphics.pas (modified) (2 diffs)

branches/Xvcl/Xvcl.Graphics.pas

@@ -116 +116 @@
 function TCanvas.GetVideoDevice: TVideoDevice;
 begin
-  Result := FVideoDevice;
+  Result := nil;
 end;
 
@@ -139 +139 @@
 begin
   if Assigned(VideoDevice) then VideoDevice.SetPixel(Position, Color);
-end;
-
-procedure TCanvas.SetVideoDevice(const Value: TVideoDevice);
-begin
-  FVideoDevice := Value;
 end;