From f2c54cab546bb1cc403fc23b04f49f6b0b8b14dc Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Thu, 11 Oct 2007 07:55:26 +0000
Subject: Fixed bugs 1803016 and 1798475. When resizing a window a few times
 the painting goes corrupt under GDI (Windows). This bug was actually
 introduced in revision 210 - ages ago!

---
 prototypes/fpgui2/tests/edittest.dpr |  3 ++-
 prototypes/fpgui2/tests/edittest.lpi | 14 ++++++++++----
 2 files changed, 12 insertions(+), 5 deletions(-)

(limited to 'prototypes')

diff --git a/prototypes/fpgui2/tests/edittest.dpr b/prototypes/fpgui2/tests/edittest.dpr
index e4107d50..29089e93 100644
--- a/prototypes/fpgui2/tests/edittest.dpr
+++ b/prototypes/fpgui2/tests/edittest.dpr
@@ -366,6 +366,7 @@ begin
   label1 := CreateLabel(self, 5, 5, 'Hello world!');
   label2 := CreateLabel(self, 5, 20, 'Hello world in Bold!');
   label2.FontDesc := 'Sans-12:bold:underline';
+  label2.Width := 200;
   
   w := TMyWidget.Create(self);
   w.Top := 40;
@@ -408,7 +409,7 @@ begin
   memo.Left   := 250;
   memo.Width  := 200;
   memo.Height := 80;
-  memo.Anchors := [anLeft, anTop, anRight, anBottom];
+//  memo.Anchors := [anLeft, anTop, anRight, anBottom];
 
   listbox         := TfpgListBox.Create(self);
   listbox.Top     := 100;
diff --git a/prototypes/fpgui2/tests/edittest.lpi b/prototypes/fpgui2/tests/edittest.lpi
index 1ecb384f..9392cdcb 100644
--- a/prototypes/fpgui2/tests/edittest.lpi
+++ b/prototypes/fpgui2/tests/edittest.lpi
@@ -1,7 +1,7 @@
 <?xml version="1.0"?>
 <CONFIG>
   <ProjectOptions>
-    <PathDelim Value="/"/>
+    <PathDelim Value="\"/>
     <Version Value="5"/>
     <General>
       <Flags>
@@ -9,7 +9,7 @@
       </Flags>
       <SessionStorage Value="InProjectDir"/>
       <MainUnit Value="0"/>
-      <IconPath Value="./"/>
+      <IconPath Value=".\"/>
       <TargetFileExt Value=""/>
     </General>
     <VersionInfo>
@@ -23,7 +23,7 @@
     <RunParams>
       <local>
         <FormatVersion Value="1"/>
-        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
+        <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
       </local>
     </RunParams>
     <RequiredPackages Count="1">
@@ -32,16 +32,22 @@
         <MinVersion Minor="5" Valid="True"/>
       </Item1>
     </RequiredPackages>
-    <Units Count="1">
+    <Units Count="2">
       <Unit0>
         <Filename Value="edittest.dpr"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="edittest"/>
       </Unit0>
+      <Unit1>
+        <Filename Value="uhelpers.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="uhelpers"/>
+      </Unit1>
     </Units>
   </ProjectOptions>
   <CompilerOptions>
     <Version Value="5"/>
+    <PathDelim Value="\"/>
     <CodeGeneration>
       <Generate Value="Faster"/>
     </CodeGeneration>
-- 
cgit v1.2.3-54-g00ecf