Changeset 9

Timestamp:

Mar 17, 2011, 9:45:18 AM (13 years ago)

Author:

george

Message:

• Fixed: Flickering on Win32 resolved by use of DoubleBuffer.

Location:

trunk

Files:

• . (modified) (1 prop)
• UMainForm.lfm (modified) (3 diffs)
• UMainForm.pas (modified) (1 diff)
• tunneler.lpi (modified) (8 diffs)

trunk

@@ -2 +2 @@
 lib
 backup
+tunneler.exe

@@ -2 +2 @@
 lib
 backup
+tunneler.exe

trunk/UMainForm.lfm

@@ -5 +5 @@
   Width = 514
   Caption = 'Tunneler'
-  ClientHeight = 389
+  ClientHeight = 393
   ClientWidth = 514
   Menu = MainMenu1
@@ -15 +15 @@
   object StatusBar1: TStatusBar
     Left = 0
-    Height = 17
-    Top = 372
+    Height = 20
+    Top = 373
     Width = 514
     Panels = <    
@@ -29 +29 @@
   object Image1: TImage
     Left = 0
-    Height = 372
+    Height = 373
     Top = 0
     Width = 514

trunk/UMainForm.pas

@@ -82 +82 @@
 begin
   Randomize;
+  DoubleBuffered := True;
   Engine.Bitmap := Image1.Picture.Bitmap;
   with Engine do begin

trunk/tunneler.lpi

@@ -58 +58 @@
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="UMainForm"/>
-        <EditorIndex Value="7"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="81"/>
-        <CursorPos X="3" Y="90"/>
+        <IsVisibleTab Value="True"/>
+        <EditorIndex Value="2"/>
+        <WindowIndex Value="0"/>
+        <TopLine Value="75"/>
+        <CursorPos X="18" Y="84"/>
         <UsageCount Value="60"/>
         <Loaded Value="True"/>
@@ -70 +71 @@
         <IsPartOfProject Value="True"/>
         <UnitName Value="UCore"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="0"/>
         <WindowIndex Value="0"/>
         <TopLine Value="229"/>
-        <CursorPos X="1" Y="250"/>
+        <CursorPos X="56" Y="242"/>
         <UsageCount Value="60"/>
         <Loaded Value="True"/>
@@ -112 +112 @@
         <Filename Value="../../../lazarus/lcl/graphics.pp"/>
         <UnitName Value="Graphics"/>
-        <EditorIndex Value="1"/>
         <WindowIndex Value="0"/>
         <TopLine Value="2417"/>
         <CursorPos X="3" Y="2459"/>
         <UsageCount Value="12"/>
-        <Loaded Value="True"/>
       </Unit7>
       <Unit8>
@@ -143 +141 @@
       <Unit11>
         <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericMatrix.inc"/>
-        <EditorIndex Value="8"/>
         <WindowIndex Value="0"/>
         <TopLine Value="52"/>
         <CursorPos X="15" Y="29"/>
         <UsageCount Value="25"/>
-        <Loaded Value="True"/>
       </Unit11>
       <Unit12>
         <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Specialized/SpecializedMatrix.pas"/>
         <UnitName Value="SpecializedMatrix"/>
-        <EditorIndex Value="10"/>
         <WindowIndex Value="0"/>
         <TopLine Value="16"/>
         <CursorPos X="22" Y="33"/>
         <UsageCount Value="22"/>
-        <Loaded Value="True"/>
       </Unit12>
       <Unit13>
@@ -177 +171 @@
       <Unit15>
         <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
-        <EditorIndex Value="5"/>
         <WindowIndex Value="0"/>
         <TopLine Value="473"/>
         <CursorPos X="1" Y="60"/>
         <UsageCount Value="22"/>
-        <Loaded Value="True"/>
       </Unit15>
       <Unit16>
@@ -269 +261 @@
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="UMapForm"/>
-        <EditorIndex Value="6"/>
+        <EditorIndex Value="1"/>
         <WindowIndex Value="0"/>
         <TopLine Value="15"/>
@@ -299 +291 @@
       <Unit31>
         <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListObject.inc"/>
-        <EditorIndex Value="11"/>
         <WindowIndex Value="0"/>
         <TopLine Value="1"/>
         <CursorPos X="34" Y="12"/>
         <UsageCount Value="14"/>
-        <Loaded Value="True"/>
       </Unit31>
       <Unit32>
@@ -339 +329 @@
       <Unit36>
         <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericBitmap.inc"/>
-        <EditorIndex Value="4"/>
         <WindowIndex Value="0"/>
         <TopLine Value="9"/>
         <CursorPos X="32" Y="26"/>
         <UsageCount Value="12"/>
-        <Loaded Value="True"/>
       </Unit36>
       <Unit37>
         <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Specialized/SpecializedBitmap.pas"/>
         <UnitName Value="SpecializedBitmap"/>
-        <EditorIndex Value="2"/>
         <WindowIndex Value="0"/>
         <TopLine Value="3"/>
         <CursorPos X="22" Y="20"/>
         <UsageCount Value="12"/>
-        <Loaded Value="True"/>
       </Unit37>
       <Unit38>
         <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Specialized/SpecializedList.pas"/>
         <UnitName Value="SpecializedList"/>
-        <EditorIndex Value="3"/>
         <WindowIndex Value="0"/>
         <TopLine Value="91"/>
         <CursorPos X="19" Y="107"/>
         <UsageCount Value="12"/>
-        <Loaded Value="True"/>
       </Unit38>
       <Unit39>
         <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListString.inc"/>
-        <EditorIndex Value="9"/>
         <WindowIndex Value="0"/>
         <TopLine Value="1"/>
         <CursorPos X="1" Y="1"/>
         <UsageCount Value="11"/>
-        <Loaded Value="True"/>
       </Unit39>
       <Unit40>

@@ -2 +2 @@
 lib
 backup
+tunneler.exe